VBA 毎日取得するデータを反映させる方法 の応用

先日こちらで質問してすごくぴったりなVBA構文を教えていただきました！

で、またもや問題が出てきました。
教えてもらってばかりで申し訳ないのですが、教えてください。
先日いただいた回答は

Sub CSV入力1()
Dim varFileName As Variant
Dim intFree As Integer
Dim strRec As String
Dim strSplit() As String
Dim i As Long, j As Long
Dim maxrow As Long
Dim wrow As Long
varFileName = Application.GetOpenFilename(FileFilter:="CSV〇〇店売上日計(*.csv),*.csv", _
Title:="CSVファイルの選択")
If varFileName = False Then
Exit Sub
End If
maxrow = Cells(Rows.Count, "A").End(xlUp).Row '最終行取得
wrow = maxrow + 1 '書き込み開始行
intFree = FreeFile '空番号を取得
Open varFileName For Input As #intFree 'CSVファィルをオープン

i = 0

Do Until EOF(intFree)
Line Input #intFree, strRec '1行読み込み
i = i + 1
'最初の1～14行はスキップする。15行以降を処理する
If i > 14 Then
strSplit = Split(strRec, ",") 'カンマ区切りで配列へ
For j = 0 To UBound(strSplit)
Cells(wrow, j + 1) = strSplit(j)
Next
wrow = wrow + 1
End If
Loop

Close #intFree
End Sub

毎日送られてくるデータをコツコツ取得する分には十分なのですが、
例えば月曜日のデータを取得するのを忘れて火曜日に取得しようとするとできないようです。
（うちの会社が本社は日曜日が休みですが、営業所は日曜日開いているので、どうしても日曜のデータは月曜に取り込むことになります）

指定したファイルを順番に取得してけるような構文などありましたら教えてもらいたいです。どうぞよろしくお願いいたします。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2023/09/05 17:42

こんにちは

No1様の回答にある通りですが・・

ご提示の処理では、最初に対象のCSVファイルを指定するようになっています。
ですので、
　・日曜日のファイルを指定して実行
　・月曜日のファイルを指定して実行　
すれば済む話だと思いますけれど？


それとも、CSVを出力するシステム側が、自動的に古いファイルを削除するような仕組みになっているのでしょうか？
その場合は、VBAの問題ではなく、そのＣSVファイルが削除されないようにする工夫が必要になります。（削除されたファイルは読み込むことはできませんので）
具体的には、削除される前に別のフォルダにコピーを作成しておくとか・・
自動化するなら、タスクスケジューラ等を利用するとかでしょうか。
でも、これまでは問題がなかったのでしょうから、この可能性ではなさそうですね・・


もしも、CSVファイル自体は残っているのであれば、前回も回答しましたように、データに日付を付すような仕組みにしておけば、VBA側で照合して「取り込んでいないデータだけを全て取り込む」ようにしておけば、ご質問の内容になるかと思います。
（処理済みであることが識別できればよいので、日付を付さなくとも、処理したCSVファイルはファイル名に「（済｝」等を付しておくことでも可能です。）
また、CSVが蓄積されていく想定でよいのなら、毎日実行する必要もなく、集計結果を必要とする時に実行すれば、まとめて追加取得できるようになるでしょう。

この回答へのお礼

こんにちは。ご丁寧にありがとうございます。
参考にさせていただきます。
ありがとうございます。

お礼日時：2023/09/08 17:45

No.1 回答者： chiune 回答日時： 2023/09/05 16:54

ファイル名を指定するときに

20230904170630_general_purpose.csv　←9月4日(月)
の処理をする前に
20230903160630_general_purpose.csv　←9月3日(日)
の処理をすることはできないのですか？

この回答へのお礼

ありがとうございます。
できないときもあります。

お礼日時：2023/09/08 17:45