シートをコピーして新規シートへ値貼付け後、指定フォルダへ保存

題名の通りのVBAコードを作成したのですが、ファイルの保存先が、指定フォルダでは無く、
最後に指定したフォルダへ保存されてしまいます。

どこがおかしいのかご教示頂けますでしょうか。

Private Sub シート保存_Click()

Windows("A.xlsm").Activate
Dim FLname As String
Range("F11,G11").Select
FLname = "申込書_" & Range("F11") & "_" & Range("G11") & ".xlsx"

Workbooks.Add

ActiveWorkbook.SaveAs Filename:=FLname, FileFormat:=xlOpenXMLWorkbook

Windows("A.xlsm").Activate
Cells.Select
Selection.Copy
Windows(FLname).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "\\TEST\test"
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

No.1 ベストアンサー 回答者： fujillin 回答日時： 2016/05/31 15:29

こんにちは

＞ファイルの保存先が、指定フォルダでは無く、
＞最後に指定したフォルダへ保存されてしまいます。
保存先としたいフォルダは、\\TEST\testということでしょうか？

＞ActiveWorkbook.SaveAs～～
のところで、思い通りにならないのかと想像しますが、パラメータに
　Filename:="\\TEST\test\" & FLname
を加えてもうまくいきませんか？
https://msdn.microsoft.com/ja-jp/library/office/ …

この回答へのお礼

ありがとうございます！指定したパスに保存することが出来ました。

お礼日時：2016/05/31 15:48