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

您可以在Dir（）中使用模式來執行此操作：

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