Excel 运行时错误'；9'；vba代码；在不知道名称的情况下打开xlsx文件并对其进行更改

我正在尝试打开文件夹中的几个xlsx文件，在其中进行一些操作（在本例中，只需写“hello there”），然后关闭（保存不相关）。我不知道档案的名称和数量。 到目前为止，我已经有了这段代码，它可以有效地打开和关闭文件夹中的所有xlsx，但是当我想对它们进行任何操作（写“hello there”）时，我得到了一个“运行时错误'9'：” 任何帮助都将不胜感激

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String

MyFolder = "C:\Users\frank003\Documents\Local\VBA - Test"
MyFile = Dir(MyFolder & "\*.xls")
Do While MyFile <> ""
    Workbooks.Open Filename:=MyFolder & "\" & MyFile
    MyFile = Dir
    
    Workbooks(MyFile).Sheets(1).Range("A15") = "Hello there"
    
    Workbooks.Close

Loop
End Sub

子OpenFiles（）
将MyFolder设置为字符串
将MyFile设置为字符串
MyFolder=“C:\Users\frank003\Documents\Local\VBA-Test”
MyFile=Dir（MyFolder&“\*.xls”）
当我的文件“”时执行此操作
工作簿。打开文件名：=MyFolder&“\”&MyFile
MyFile=Dir
工作簿（MyFile）.Sheets（1）.Range（“A15”）=“您好”
作业本，关上
环
端接头

循环浏览文件夹中的文件

选项显式
子OpenFiles（）
将MyFolder设置为字符串
将MyFile设置为字符串
MyFolder=“C:\Users\frank003\Documents\Local\VBA-Test”
MyFile=Dir（MyFolder&“\*.xlsx”）“\*.xls*”
将wb设置为工作簿
当我的文件“”时执行此操作
设置wb=Workbooks.Open（文件名：=MyFolder&“\”&MyFile）
wb.Sheets（1）.Range（“A15”）.Value=“你好”
wb.Close SaveChanges:=真
MyFile=Dir
环
端接头

Move

MyFile=Dir

就在

Loop

之前。你真的应该使用一个工作簿变量：

Dim wb-As-workbook

，

Set wb=Workbooks.Open（Filename:=MyFolder&“\”&MyFile）

，

wb.Sheets（1）.范围（“A15”）.Value=“你好那里”

，

wb.Close True

。。。