質問: VBAに関する質問です。 以下のVBAのコードの「2020年度」フォルダや「202010リスト.xlsm」ファイルの年度や年月の部分を自動的に今年度・今年今月にする方法はありますでしょうか? 例えば本日が2021年09月17日と仮定した場合、 2021年度¥202109リスト.xlsm のように自動で本日の日付にしたいです。 Workbooks.Open "C:\Users\Desktop\2020年度\202010リスト.xlsm" ご教授よろしくお願い致します。
回答: ワークシート関数とほぼ一緒です。 Sub Sample() Dim t As Date Dim ymd(2) t = Date ymd(0) = Year(t) ymd(1) = Month(t) ymd(2) = Day(t) MsgBox Join(ymd, vbCr) End Sub あるいは Sub Sample2() Dim t As Date Dim ymd(2) t = Date ymd(0) = Format(t, "yyyy") ymd(1) = Format(t, "m") ymd(2) = Format(t, "d") MsgBox Join(ymd, vbCr) End Sub