File 循环浏览文件夹中的excel文件，并在不参考文件名的情况下打开它

我想循环浏览文件夹中的excel文件并提取信息。我的问题是excel文件的文件名是越南语的，所以当我使用Dir函数循环时，它不起作用。如何在文件夹中循环文件并打开它们，而无需特别提及名称

我也尝试了GetFolder方法，但它似乎也不起作用

谢谢你的帮助

Sub LoopThroughFiles()
   Dim MyObj As Object, MySource As Object, File As Variant
   Dim wb As Workbook
   Set MySource = MyObj.GetFolder("C:\Excel")
   For Each File In MySource.Files
        Set wb = Worksbooks.Open(File)
   Next File
End Sub

---

看起来您有一个MyObj的DIM，但是在使用它之前您不会初始化它。您可能应该有一个SET MyObj=something

您收到了什么错误消息？上面的代码导致错误91对象变量或SET MySource行上未设置块变量。当我使用Dir函数循环遍历文件夹时，由于文件名不正确，因此无法打开该文件并导致在文件夹中找不到文件名的错误。