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 

对话框打开，它让我浏览和select我想要的文件，但是当我点击打开button时，没有其他的事情发生。 我需要能够浏览文件并打开它。

如果您想知道，我是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

你会调用variables“myFileName”，然后在你写的“fileName”的If语句中。 您必须将其更改为“myFileName”。