具体代码如下Dialogbox.Dialog哌囿亡噱Title="选定要打开的Excel文件"Dialogbox.InitDir=App.Pa墉掠载牿thDialogbox.Filter="Xls文件(*.Xls)|*.Xls"Dialogbox.ShowOpenIfDialogbox.FileName=""ThenMsgBox"请选择EXCEL文件"ExitSubEndIfGetExcelName=Dialogbox.FileNameViewText.Text=GetExcelName
方法/步骤
1、部件中添加MicroSoftCommonDialogcontrol6.0