open dialogbox to select excel file to import to mdb

[cuongvt]

i have this small code to import excel data into mdb file:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
"datapub", "D:\datapubcolumnar.xls", True, "datapubcolumnar!"

But I want to improve by call a dialog box for user to choose excel file.
Could anyone can write this code for me.
Thanks in advance.

 

[RuralGuy]

Call the standard Windows File Open/Save dialog box