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 

И убедитесь, что у вас всегда есть Option Explicit на вершине, чтобы избежать ошибок, как этот.

Answer 2

Вы вызвали переменную «myFileName», но затем в выражении If вы написали «fileName». Вы должны изменить его на «myFileName».