[[20230305175720]]　『ActiveWorkbook.Pathの書き方』（梅生）　ページの最後に飛ぶ

『ActiveWorkbook.Pathの書き方』（梅生）

"報告.xlsx"を格納するのに下記マクロを使っています。
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "報告.xlsx"
今回ActiveWorkbook.Pathに「提出」というフォルダを作り格納したいのですが、ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\提出\"& "報告.xlsx"と書き換えたところ、エラー「ファイルc:\提出にアクセスできません...」となります。どのように書き換えたらよいか教えてください。

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

 >「提出」というフォルダを作り格納したいのですが、
提出フォルダを作っていないからじゃないですか？
（フォーキー） 2023/03/05(日) 18:16:45

ActiveWorkbookと同じ階層には、すでに「提出」というフォルダが存在するのですが....
（梅生） 2023/03/05(日) 19:06:30

 Sub test()
     Application.DisplayAlerts = False
     ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\提出\" & "報告.xlsx", _
     FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
     Application.DisplayAlerts = True
 End Sub
（フォーキー） 2023/03/05(日) 19:20:01

＞ファイルc:\提出にアクセスできません...
ActiveWorkbook.Path が空文字列で、CurDirが C:\ ということ
未保存のブックを最初に保存するときには、 ActiveWorkbook.Path は使えません
（と） 2023/03/05(日) 19:35:08

フォーキーさん　お考えいただきありがとうございます。しかし同じエラーとなりました。
とさん　ActiveWorkbook.Path は使えないのですね。下記の代替え案として元ファイルと同じ階層の「提出」フォルダへ格納する方法がありますでしょうか。ご存じの方教えてください。
Sub 報告_ファイル化()

    Worksheets(Array("Sheet1", "Sheet2.Copy  
    Application.DisplayAlerts = False '警告メッセージを表示しない
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\提出\" & "報告.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True '警告メッセージを表示       
    ActiveWorkbook.Close  
End Sub
（梅生） 2023/03/05(日) 20:15:50

マクロが保存されているパスは、ThisWorkbook.Path です

最初からこのように全部載せていたら直ぐに終わっていたと思います。
（と） 2023/03/05(日) 20:24:34

とさん　ありがとうございます。Thisですね！
できました。
（梅生） 2023/03/05(日) 20:33:35

コメント返信：

[ 一覧(最新更新順) ]

[[20230305175720]] 『ActiveWorkbook.Pathの書き方』（梅生） ページの最後に飛ぶ

[[20230305175720]]　『ActiveWorkbook.Pathの書き方』（梅生）　ページの最後に飛ぶ