VBA エクセルのファイル名指定の件

質問

ファイル名の指定方法について質問させていただきます。

フォルダ内に
2021年度ファイルが有ったと仮定して

私のエクセルのファイルの指定はいつも
標準モジュール内にて
Workbooks("2021年度.xls")
とこのようにファイルを指定しています。

ですが、この方法だと
来年2022年度のファイルになった場合
例えば2021年度のファイルをコピーして
ファイル名だけ変更して2022年度にした時には
Workbooks("2022年度.xls")
とファイル名を標準モジュール内にて
入力しなおさないとエラーが起きます。

いちいちファイル名を修正するのは大変です。
このような場合
年度が替わるたびに標準モジュールのコードを
自動的に変わるような仕組みってあるのでしょうか？
今回なら簡単に Workbooks("2022年度.xls")にコードを
変更してくれる等

なにかいい方法あればご教授お願い致します。

回答No.5

SI299792 · ベストアンサー

2022年度になっても、2021年度のテータを処理する可能性がある場合です。
３月締めと仮定して、
A1: =YEAR(EDATE(TODAY(),-3))
を入れておきます。

Workbooks([A1]&"年度.xls")
でファイルを指定します。

その可能性が無い場合は、他の人が回答を上げているので省略します。

お礼

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

一番わかりやすかったので
この回答を元に実践してみます。

回答No.4

superside0

"2021年度.xls"の部分を　計算式にしてしまえばよいのですが、
その計算方法には、いろいろ考えられますね。

(１)
今の年月日から計算する方法
なお、"年度"ということは　１～３月は前年なので、年から-1する必要があります。
（会社によっては自社の決算期で、年度を切り替えることもあるんで
　読み替えてください）

Dim nendo As String
If Month(Date)<=3 Then
　nendo = Year(Date) - 1　
Else
　nendo = Year(Date)　　　
End if
Workbooks(nendo & "年度.xls")
みたいな感じ。
＃DateAdd関数を使ったほうがきれいかも。

(２)
Excelブック上に、ファイル名を記載するセルを用意して
それを参照する方法。

(３)
フォルダ内にある ”*年度.xls"　というファイル名を
ワイルドカードで探して、*の部分が最大のファイル名を採用する方法

(１)の場合は、4月1日から強制的に新しいファイルに切り替わります。
(２)の場合は、セルを書き換えることで　新しいファイルに切り替わります。
(３)の場合は、新しく"????年度.xls"という ファイルを作った時点から切り替わります。

他にも　やり方はあるでしょうけど
現場での運用的にどのやり方が　マッチするかで選ぶのがよいかと。

回答No.3

imogasi

勝手（VBAで、ロジックで）に変わると、それはそれで都合が悪い場合があると思う．年度や年次経過後すぐなどにおいて。バッチ処理では、暦とデータ基準はズレルことが多い。
また質問者自身にはよいかもしれないが、他人（操作者）にはその仕組みは自然には判らないだろう。
説明が必要となる。だから戸惑いも生じるだろう。
結局利用者に、候補リストを出して（例えば、決めた１フォルダにその類のファイルだけ集めるようにして）、選ばせるにが自然ではないか。その時、リストに出すアイテムを加減できるかもしれない。VBAでファイル名の文言の１部(例　年数字）を見て。２年分ぐらいどうか。
直、その年（年１回として）だけの分もVBAで、ブック名の一部の語句から判別・選択（標示）できる
しかし選択間違いの可能性もわずかに増える。その辺の加減は、設計者のシステム間による。
リストボックスのアイテムにFSOを使ってファイル名を出して、選ばせる、のが自然ではないかな。
作業月・年と、ファイルデータの基準年月とは、ずれる時期があることが多いから。ファイル名称は
データの中身の時期を入れることが多いだろうから。

回答No.2

kkkkkm

たとえば4月から新年度となる場合でしたら

Dim FileName As String

If Month(Date) > 3 Then
FileName = Year(Date) & "年度.xls"
Else
FileName = Year(Date) - 1 & "年度.xls"
End If
で
Workbooks("2022年度.xls")
を
Workbooks(FileName)
にして試してみてください。

回答No.1

emsuja

Workbooks("2021年度.xls")
を
Workbooks (Year(Date) & "年度.xls")
とする