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

EXCEL VBA：访问“Debug.Print”

1 个答案: