VBA - Application.GetOpenFilename

Post date: Oct 1, 2010 9:21:38 AM

Path = ActiveWorkbook.Path

Dim fname As Variant

Dim a As String

a = MsgBox("Do you want import the Customer Master Data? ", vbYesNo, "Import")

If a = vbNo Then

MsgBox "User press the button NO!"

Else

' // open file with variable cancell

ChDrive Path

fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Choose Files", MultiSelect:=False)

If fname = False Then

MsgBox "User pressed cancel"

Else

MsgBox "Press ENTER and wait until the import is Completed!", 0 + 64, "Moët Hennessy - BCP - Temporary Order Form" '

Workbooks.Open Filename:=fname

end if

end if