Question

我正在尝试创建一个宏，允许我从以＆＃34; .xlsx＆＃34;结尾的所有文件中导入数据。将指定的文件夹放入单个电子表格中。我大部分时间都认为是这样，但是在我找到解决方案之前需要手动解决这个问题。

源.xlsx文件包含用于输入数据的标准模板，并由其他用户填充并提交给我。我将这些文件下载到计算机上的指定文件夹中。但是，除非我在Excel中打开文件并单击＆＃34;保存＆＃34;，否则Dir函数无法识别指定文件夹中的任何.xlsx文件。一旦我这样做，Dir功能完美地工作，所有.xlsx文件都列在立即窗口中。我很感激任何人都知道为什么会发生这种情况以及是否有任何方法可以修复代码，以便在不打开和保存的情况下识别文件。

Sub Test()
Dim strPath As String
Dim strFile As String

strPath = ActiveWorkbook.Path & Application.PathSeparator & "ReferenceFolderName" & Application.PathSeparator
strFile = Dir(strPath, MacID("XLSX"))

Do While Len(strFile) > 0
    strFile = Dir
    Debug.Print strFile
Loop
End Sub

Mac Excel 2011 VBA Dir（）函数文件识别问题

0 个答案: