Need Help With Input Box To Open File in Specified Path

[大灰狼1976]

Sorry, The picture post failed in #19.
20180227011320160.jpg
you can also use you original code with error handle.

[大灰狼1976]

Is png format not uploadable? try again used jpg format.
20180227011320160.jpg

[MagPower]

Do you have an English version of the picture?

[大灰狼1976]

Sorry, I don't have it, But according to the content of the picture, should be able to find the corresponding options.

[大灰狼1976]

An example used your original code with error handle.
I'm disappointed that didn't use code editing.

[ham123]

Hi I managed to debug it

Sub OpenFile()Dim sFileName As Variant


 sFileName = Application.GetOpenFilename("Excel Files (*.xl*), *.xl*")
If sFileName <> False And sFileName <> "" Then


Call ShowForm(sFileName)


End If
End Sub


Sub ShowForm(ByVal FilePath As String)


    Application.Run "'" & FilePath & "'!ShowForm"
    
    On Error GoTo ErrHandle
    Application.Run "'" & FilePath & "'!ShowForm"
    Exit Sub
ErrHandle:
    MsgBox "You canceled the process!"
End Sub

[大灰狼1976]

@ham
Are you sure "on error" under "application.run" is no problem?


--Okami