【VBA】マクロの入ったファイルと同じフォルダに，出力したファイルを保存するコードについて

Excel（office365）を使っている者です。
Excel VBAで，PDFでファイルを出力して，そのファイルを当該マクロの入ったファイルと同じ場所に保存したく，以下のようなコードを書いたのですが，一つ上の階層のフォルダに保存（作成）されてしまいます。

どうすれば，同じ階層のフォルダに保存できるようになるのか，ご教示願います。

よろしくお願いいたします。


-----------------------------------------------------（関連する部分のみ抜粋）
Dim myfolder As String

myfolder = ThisWorkbook.Path

l = Worksheets("評価").Range("N5").Value & "・" & Worksheets("評価").Range("N4").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=myfolder & l & ".pdf", OpenAfterPublish:=True, IgnorePrintAreas:=False
------------------------------------------------------

No.3 ベストアンサー 回答者： Zincer 回答日時： 2023/09/28 14:38

No１です

＞その同じフォルダにある「test」というフォルダに保存させるにはどうしたら良いですか？
パラメータ、fileNameはフルパスで設定しなくてはいけません。
つまり、
fileName:=myfolder & "test￥” ＆ l & ".pdf"
とすればよいのですよ。
ただし、そこに「test」というフォルダーが存在していなくてはいけません。
既にお分かりとは思いますが、前回の回答では
fileName:=myfolder & "\" & l & ".pdf"
としても効果は同じです。
後は「どちらがわかりやすいか」や「後から修正しやすいか」などで判断することになります。

この回答へのお礼

ありがとうございます。
希望通りのマクロができました。

お礼日時：2023/09/28 16:04

No.2 回答者： fujillin 回答日時： 2023/09/28 14:34

こんにちは

＞その同じフォルダにある「test」というフォルダに
＞保存させるにはどうしたら良いですか？
パスの構成をよく観察してみればわかるはずです。
また、パス自体は「文字列」ですので、文字列の操作で作成することが可能です。

　myfolder = ThisWorkbook.Path & ”\test\”

この回答へのお礼

ご教示いただきありがとうございます。

お礼日時：2023/09/28 16:02

No.1 回答者： Zincer 回答日時： 2023/09/28 13:47

ファイル名も目的のものと異なりませんか？

多分、階層を示す”￥”が不足しています。
＞myfolder = ThisWorkbook.Path
を
myfolder = ThisWorkbook.Path＋”￥”
とすればできませんか？

この回答へのお礼

ありがとうございます。
同じフォルダに保存することができました。￥がないとダメなんですね。

もう一つ教えていただけるとありがたいのですが，その同じフォルダにある「test」というフォルダに保存させるにはどうしたら良いですか？

お礼日時：2023/09/28 14:08