EXCEL VBA：訪問「Debug.Print」

Question

我使用看起來像下面從一個文件夾叫的名字代碼：

Sub PrintFilesNames() 
Dim file As String 
file = Dir$(PathToFolder) 
While (Len(file) > 0) 
    Debug.Print file 
    file = Dir 
Wend 
End Sub 

它打印的名字都以眼前的文件夾中。現在有什麼方法可以使用VBA搜索已打印的文件，選擇一些包含特定子字符串的文件，然後將它們粘貼到Excel表格中？

謝謝！

邁克爾

Answer 1

您可以使用迪爾模式（）來做到這一點：

Sub PrintFilesNames() 
Dim file As String, c as range 
    Set c = thisworkbook.sheets("Sheet1").Range("A1") 
    file = Dir$(PathToFolder & "\*yoursubstring*.xls") 
    While (Len(file) > 0) 
     c.value = file 
     Set c = c.offset(1,0) 
     file = Dir 
    Wend 
End Sub