マクロを用いたテキストファイルの自動読み込み

Question

前提・実現したいこと

testファイルで送られてくるデータをエクセルに取り込みたい。
そのtestデータについて、日程＋付番で送られてきます。
たとえば、本日2020/10/24のデータの場合

20201024-〇
※〇：付番

これをエクセルにマクロを用いて順次取り込む場合、どのようなコーディングになるでしょうか。

dim i as long
dim path as string

for i = 〇 to 〇
path = "C:\Users\省略してます。\log.txt-i"

みたいなことをしたいのですが
その場合どのような記載になるでしょうか。

調べても分からなく、、、
アドバイス頂けると幸いです。
宜しくお願い致します。

Comments

[tatsu99]

20201024-〇　はファイル名ですか？
付番は1からの連番ですか？
付番の飛びはないのですか？
log.txt-iとはどのような関係ですか。

[somechan1]

ご連絡ありがとうございます。

〇はファイル名で、入る数字は連番になります。
20201024-〇　= log.txt-i
という意味でした。分かりにくい表現で申し訳ございません。

宜しくお願い致します。

Answer 1

任意のフォルダに存在するファイル名取得はDir関数を用いたLoopにて実現できます。
参考になるサイトを以下に紹介しますので、まずはご自身でコードを書いてみてください。
ファイルの一覧を取得する

Comments

[somechan1]

TanakaHiroakiさん、コメントありがとうございます。
添付頂いたファイルはブックマークし、今後活用させて頂きます。
また参考にした結果、無事に動かすことも出来ました。

Answer 2

ファイル一覧を取得する２つの方法です。
ファイル一覧１は、指定フォルダ内の全ファイルを取得する方法です。
ファイル一覧２は、指定フォルダ内のファイルを名前をその都度指定して取得する方法です。

Public Sub ファイル一覧1()
    Dim fname As String
    Dim folder As String
    Dim path As String
    Dim seq As Long
    folder = "d:\goo\data2\"
    path = folder & "*"
    fname = Dir(path)
    
    Do While fname <> ""
        seq = seq + 1
        Debug.Print seq, fname
        fname = Dir()
    Loop
    
End Sub

Public Sub ファイル一覧2()
    Dim fname As String
    Dim folder As String
    Dim path As String
    Dim seq As Long
    Dim i As Long
    Dim yyyymmdd As String
    folder = "d:\goo\data2\"
    path = folder & "*"
    yyyymmdd = Format(Date, "yyyymmdd")
    seq = 0
    For i = 1 To 999
        path = folder & yyyymmdd & "-" & i
        fname = Dir(path)
        If fname = "" Then Exit For
        seq = seq + 1
        Debug.Print seq, fname
    Next
    fname = Dir(path)
    
End Sub

指定フォルダ内にデータが以下のようにあった場合です。

ファイル一覧１の実行結果は以下の通り

ファイル一覧２の実行結果は以下の通り

どちらを採用するかは、あなたのほうで判断してください。
ファイル一覧１の場合は、全ファイルを処理できますが、付番の順序通りには処理できません。
ファイル一覧２の場合は、付番通りに処理できますが、歯抜けがあると、そこで打ち切られます。したがって
全ファイルが処理できない場合があります。又、当日日付を自動的に算出するので、昨日のファイルを
処理することはできません。（yyyymmddの値を直接書き換えて実行すれば可能ですが）

testファイルの内容が不明及びexcelにどのように取り込みたいのかが不明なので、一覧表示までとします。

Comments

[somechan1]

tatsu99さん、コメントありがとうございます。
本日動かしてみた結果、動きました。
ありがとうございました。