如何寫入宏以將文本文件導入Excel，其中要選擇的文本文件基於電子表格中的變量

Question

我需要選擇一個文本文件以導入Excel，其中文本文件的名稱包含一串與Excel電子表格中的單元格匹配的文本。

例如，

具有值「D12345」

我需要導入文本文件到其中相同的字符串（即「D12345」）被包含在文本文件的名稱的片材A細胞。

選擇需要從一組文本文件中進行選擇。集合中只有一個文件將包含匹配的字符串。

希望是有道理的。

Answer 1

這給一試：

Sub SimpleFileListre() 
Dim s As String, FileName As String 
Dim mesage As String 
Range("A:A").Clear 
s = "C:\TestFolder\*.txt" 
sFolder = "C:\TestFolder\" 
FileName = Dir(s) 
Do Until FileName = "" 
    If InStr(1, FileName, "D12345") > 0 Then 
     Call GetStuff(sFolder & FileName) 
    End If 
    FileName = Dir() 
Loop 
End Sub 

Sub GetStuff(s) 
    Close #2 
    Open s For Input As #2 
    j = 1 
    Do While Not EOF(2) 
      Line Input #2, TextLine 
      Cells(j, 1) = TextLine 
      j = j + 1 
     Loop 
    Close #2 
End Sub