GetOpenFilename不打开VBA文件

Question

我有这样的密码：

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

对话框窗口打开，它允许我浏览并选择我想要的文件，但是当我单击“打开”按钮时，不会发生其他任何事情。我需要能够浏览和打开文件。

我是VBA的新手，如果你想知道。谢谢!

Answer 1

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

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

并确保您总是在顶部有选项显式，以避免像这样的错误。

Answer 2

您已经将变量命名为"myFileName“，但是在If语句中，您编写了"fileName”。你必须把它改成"myFileName“。