Question

我一直在尝试做一些非常简单的事情但是，无论出于何种原因，它都无法正常工作。

我所要做的就是使用通配符从特定目录中获取所有.txt文件。

以下是我正在使用的完整代码：

Sub RenameFiles()

    'Variables Declaration
    Dim vSpreadsheetPath As String
    Dim vFolderName As String
    Dim vFilesPath As String
    Dim vFile As String
    Dim vRow As Long
    Dim vFilter As String

    'Getting the vFile path
    vSpreadsheetPath = ActiveWorkbook.Path
    vFolderName = "COMBINED FOLDER"
    vFilter = "*.txt"
    vFilesPath = vSpreadsheetPath & Application.PathSeparator & vFolderName & Application.PathSeparator

    vFile = Dir(vFilesPath & vFilter)
    MsgBox (vFile)

End Sub

但结果中没有任何显示。

最奇怪的是：如果我使用

file = Dir(vFilesPath & "filename.txt")

它有效

但是如果我尝试使用任何通配符，就像下面的通配符那样，它就不会。

file = Dir(vFilesPath & "filename.t*")

知道我可能做错了什么？

Answer 1

与相关，因为Mac不使用像Windows这样的通配符。

您需要一个不同的方法或一个新的（重新措辞）问题，以获取有关使用VBA处理Mac文件系统的更多信息。

This应该可以帮助您入门。

_{（由O.P.请求作为答案发布。）： - ）}

通配符不能使用Excel 15 VBA目录（）

1 个答案: