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

并确保您始终拥有Option Explicit，以避免像这样的错误。

Answer 2

您已调用变量＆＃34; myFileName＆＃34;但是在If语句中你写了＆＃34; fileName＆＃34;。您必须将其更改为＆＃34; myFileName＆＃34;。

GetOpenFilename无法在VBA中打开文件

2 个答案: