Dir（）在Excel for Mac 2016導致崩潰

Question

我想通過使用Dir的文件進行迭代，並且我知道它在Mac上的工作方式與Windows不同。 This question一直有幫助，但我一直無法實施建議的解決方案。第一次調用Dir成功返回所需的文件名，但第二次調用崩潰excel。我想實現這樣的模式：

Sub printFileNames() 
    Dim path as String 
    Dim fileName as String 
    path = ThisWorkbook.Path & "/SUBFOLDER/" 
    fileName = Dir(path, MacID("XLSX")) 
    While fileName <> "" 
    MsgBox fileName 
    fileName = Dir 'This CRASHES EXCEL 
    Wend 
End Sub 

以下是錯誤消息的屏幕截圖，在碰撞時：

這是一個已知的bug？我是否錯誤地使用了Mac版Excel 2016的Dir？

編輯： 我一直在使用這個精確解也試過，貼在上面的鏈接的問題：

Sub Sample() 
MyDir = ActiveWorkbook.Path 
strPath = MyDir & ":SUBFOLDER:" 

strFile = Dir(strPath, MacID("TEXT")) 

'Loop through each file in the folder 
Do While Len(strFile) > 0 
    If Right(strFile, 3) = "csv" Then 
     Debug.Print strFile 
    End If 

    strFile = Dir  
Loop 
End Sub 

但是，這給出了一個「找不到文件」的錯誤，即使有兩個的.csv ，.txt和.xlsx文件在指定的文件夾中。使用：的/SUBFOLDER/代替:SUBFOLDER:打印第一個循環相應的文件名，但崩潰在調用strFile = Dir

Answer 1

使用羅恩德布魯因的macscript：

https://www.rondebruin.nl/mac/mac013.htm 遍歷在Mac（DIR爲Mac的Excel文件中的文件夾）