[[20191028145247]]　『VBA　先月のフォルダを開く』（PAMO）　ページの最後に飛ぶ

『VBA　先月のフォルダを開く』（PAMO）

こんにちはm(__)m

早速ですが、先月のフォルダを開きたいです。
今月ですと、2019年9月になります。

いつもマクロの記憶だよりでしたが、できませんので、手詰まり状態です。すみません。。。

先月のフォルダを指定するというのは、どのように書けばよいか教えていただけますと幸いです。

下記はいろいろ拾ってきて繋げたものですが、実際に2019年9月と記載すれば動きました。
日付の書き方が分からず、余計な文字を付け足してしまいました。

YとCを付けました。

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

Const WF As String = "C:\Users\"

Y = Format$(Date, "yyyy")
c = Format$(DateAdd("m", -1, Date), "mm")

Dim WFna As String
WFna = Dir(WF & Y & "年" & c & "月" & "\" & "*集計*.xlsx")

If WFna <> "" Then

Workbooks.Open Filename:=WF & Y & "年" & c & "月" & "\" & WFna
Else

MsgBox "ファイルが存在しません。"

End If

End Sub

＜使用 Excel：unknown、使用 OS：Windows10 ＞

 ＞実際に2019年9月と記載すれば動きました

 もしかすると
 c = Format$(DateAdd("m", -1, Date), "mm") 
 ↓
 c = Format$(DateAdd("m", -1, Date), "m")

 ということかな？
（bi） 2019/10/28(月) 15:03

（bi）様！
早速のお返事ありがとうございます！開きました(^^)/！！
ありがとうございました！！
（PAMO） 2019/10/28(月) 15:41

コメント返信：