用下面的代码
Dim dlg As new SaveFileDialogdlg.Filter = "Excel|*.xls;*.xlsx"If dlg.ShowDialog = DialogResult.OK Then CurrentTable.SaveExcel(dlg.FileName, CurrentTable.Name) Dim proc As new Process proc.File = dlg.FileName proc.StartEnd If