EXCEL VBA 新規ブック保存について

質問

フォームで作成したデータから、請求書などの帳票をシートに作成しています。

その請求書シートを、新たなブックを作成し、シートへ貼り付け
セルC7（帳票名）
　　　F11（コード１）
　　　J11（コード２）
この３つを合わせた名前で任意のフォルダへ保存して、閉じるようにしたいと考えています。

また、ブックの保存先を指定するにあたり
下の指定でコードを書いたのですが

　　　C:\Users\××××××\Desktop\管理システム\帳票

システムを丸ごと違うPCに変えても、エラーが出ないようにするには
この指定の書き方でも良いのでしょうか？

まだ初心者なもので
二つのブックを行き来するコードで頭が混乱しています。

まだVBA勉強を始めたばかりで、質問方法も拙いところも多々あると思いますが
ご教授いただけます様、どうぞよろしくお願い致します！

自分で書いたコードですが
考えすぎて、ちょっと支離滅裂になってしまい
恥ずかしいのですが藁にもすがる思いでご質問させていただきました

Dim Newbook As Workbook
　　Set Newbook = Workbooks.Add
　　fileName = Range("C7") & "_" & Range("F11") & Range("J11")
　　Newbook.SaveAs fileName:=Worksheets("請求書").Range("C7") & "_" & Worksheets("請求書").Range("F11") & Worksheets("請求書").Range("J11")

Windows("管理システム.xls").Activate
Worksheets("請求書").Select
Cells.Select
Selection.Copy
Windows("fileName").Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select

　ブック名　（元データ）　管理システム.Xls
　シート名　　　　　　　　請求書

追記：　本来はフォームから直接印刷を出したいのですが
　　　　　フォームでは対応しきれない部分を、シート上にて必要に応じ手を加えてから、
　　　　　出力したいと考え、今回のシートへの出力を考えています

回答No.3

watabe007 · ベストアンサー

参考に
Dim myPath As String, Filename As String

myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\管理システム\帳票"
With Worksheets("請求書")
　　Filename = .Range("C7") & "_" & .Range("F11") & .Range("J11") & ".xls"
End With
Worksheets("請求書").Copy
ActiveWorkbook.SaveAs Filename:=myPath & "\" & Filename

お礼

回答頂きありがとうございます！

自分でパスをとれば良かったんですね！！

丁寧にご回答頂き本当に感謝しております。

先週末から、私事で恐縮なのですが
身内の見舞いに遠方に行っていた為
お礼を申し上げるのが遅くなってしまい
申し訳ありませんでした。

本当にありがとうございました！！！！

回答No.2

watabe007

>　C:\Users\××××××\Desktop\管理システム\帳票
>システムを丸ごと違うPCに変えても、エラーが出ないようにするには
以下でPCが変わっても・・・\デスクトップ\\管理システム\帳票
のパスを取得できます。
Dim myPath As String
myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\管理システム\帳票"
MsgBox myPath

回答No.1

cma3atgoo

個人的意見ですが・・・

ブックの保存先ですが、
まったく別のPCで使うことを考えるならば、
固定ではなくて毎回指定できるようにしたほうがよろしいかと思います

「GetSaveAsFilename」
をつかうと「名前をつけて保存」で出てくるようなダイアログを使うことができますし、

「ThisWorkbook.Path」
で開いたブックと同じフォルダが取得できます

毎回指定するのが面倒な場合は固定でもよいと思いますが、
その場合はできるだけわかりやすく、
階層が深くない（\がたくさんつかない）ところがよいと思います（c:\workなど）

具体的なコードをかけなくて申し訳ありませんが、ご参考まで

お礼

私も階層はつけたくなかったので、その方法も参考にさせて頂きたいと思います！
早速の回答を頂きありがとうございます！！

With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 1
If.Show = -1 Then.Execute
End With
End Sub

↑　名前をつけて保存ダイアログボックスを表示して保存　コード書いてみました