GetOpenFilename未在VBA中打开文件

我有这个密码：

Sub openMyStatsData()

Dim myFileName As Variant

myFileName = Application.GetOpenFilename '(FileFilter:="Excel Files,*.xlsx*;*.xlsm*")

If fileName <> False Then
    Workbooks.Open (myFileName)
End If

End Sub

Sub-openMyStatsData（）
Dim myFileName作为变量
myFileName=Application.GetOpenFilename'（文件过滤器：=“Excel文件，*.xlsx*；*.xlsm*”）
如果文件名为False，则
工作簿.打开（myFileName）
如果结束
端接头

对话框窗口打开，它让我浏览并选择我想要的文件，但当我点击打开按钮时，其他什么都没有发生。我需要能够浏览文件并打开它

---

我是VBA新手，以防你想知道。谢谢

将您的代码更改为以下代码：

Sub openMyStatsData()

Dim myFileName As Variant

myFileName = Application.GetOpenFilename '(FileFilter:="Excel Files,*.xlsx*;*.xlsm*")

If myFileName <> False Then
    Workbooks.Open (myFileName)
End If

End Sub

Sub-openMyStatsData（）
Dim myFileName作为变量
myFileName=Application.GetOpenFilename'（文件过滤器：=“Excel文件，*.xlsx*；*.xlsm*”）
如果myFileName为False，则
工作簿.打开（myFileName）
如果结束
端接头

---

并确保你总是在上面，以避免像这样的错误

将您的代码更改为以下代码：

Sub openMyStatsData()

Dim myFileName As Variant

myFileName = Application.GetOpenFilename '(FileFilter:="Excel Files,*.xlsx*;*.xlsm*")

If myFileName <> False Then
    Workbooks.Open (myFileName)
End If

End Sub

Sub-openMyStatsData（）
Dim myFileName作为变量
myFileName=Application.GetOpenFilename'（文件过滤器：=“Excel文件，*.xlsx*；*.xlsm*”）
如果myFileName为False，则
工作簿.打开（myFileName）
如果结束
端接头

---

并确保你总是在上面，以避免像这样的错误

您调用了变量“myFileName”，但在If语句中写入了“fileName”。您必须将其更改为“myFileName”。

您调用了变量“myFileName”，但在If语句中写入了“fileName”。您必须将其更改为“myFileName”。

在模块顶部（在代码的其余部分之前）声明“Option Explicit”，并查看您是否可以从中计算出来……在模块顶部（在代码的其余部分之前）声明“Option Explicit”，并查看您是否可以从中计算出来。。。