同じフォルダーに保存したい。

質問

報告書.xlsを一部加工後に実行するVBマクロで教えてください。同じフォルダー内で報告書.xlsを上書き保存しさらに４個のsheet(報告書、詳細、依頼書、関連写真)の内、２個のsheet(依頼書、関連写真)を削除した後にsheet(報告書)のセル"Z1"の名前で保存すべく作成したのですが(Z1).xlsが同じフォルダーに作成できません。マイドキュメントに出来てしまいます。

Sub Macro2()
Dim strFilePath As String
Dim strFileName As String
Dim flg As Boolean
'◆保存するパスの設定
strFilePath = ThisWorkbook.Path & "\"
'◆保存するファイル名の指定
Application.DisplayAlerts = False
strFileName = "報告書"
ThisWorkbook.SaveAs strFilePath & strFileName
Sheets("関連写真").Select
ActiveWindow.SelectedSheets.Delete
Sheets("依頼書").Select
ActiveWindow.SelectedSheets.Delete
Sheets("報告書").Select
strFilePath = ThisWorkbook.Path & "\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Range("z1").Value

End Sub

回答No.1

watabe007 · ベストアンサー

こんにちは、参考に
ThisWorkbookは、保存済みのブックとします。
Sub Test()
　　With ThisWorkbook
　　　　'上書き保存
　　　　.Save
　　　　'依頼書、関連写真シート削除
　　　　Application.DisplayAlerts = False
　　　　.Worksheets(Array("依頼書", "関連写真")).Delete
　　　　Application.DisplayAlerts = True
　　　　'既に同名のファイルが有るとエラーが発生するのでSaveCopyAsで処理
　　　　.SaveCopyAs .Path & "\" & .Worksheets("報告書").Range("Z1").Value & ".xls"
　　End With
End Sub

お礼

早速のご回答ありがとうございます。