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