Question

我一直在尝试编写excel宏，该宏循环遍历文件夹中返回文件名的文件。我一直在进行谷歌搜索和测试，但是无法正常工作。这是代码：

Sub LoopThroughFiles()

   Dim MyObj As Object, MySource As Object, file As Variant
   Set MySource = MyObj.GetFolder("c:\test\")
   For Each file In MySource.Files
      MsgBox file
   Next file

End Sub

我收到此错误：

运行时错误“ 91”：

对象变量或未设置块变量的情况。

Excel文件被命名为test.xlsm。文件夹中有3个文件：test01.txt，test02.txt，test03.txt。我正在使用Windows 7、64位。

Answer 1

例如，您需要Set MyObj

Dim MyObj As Object
Set MyObj = CreateObject("Scripting.FileSystemObject")

否则MyObj是一个空变量，并返回Nothing。

Answer 2

使用Dir function吗？

autoplay=1

使用Excel宏循环浏览文件夹中的文件

2 个答案: