代码如下:
if Opendialog1.Execute then
exceltotable1.FileName := Opendialog1.FileName;
Business.Forms.ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1);
if exceltotable1.Execute(imsg) then
business.forms.Dialogs.ShowMessage('导入成功')
else
business.forms.Dialogs.ShowMessage(imsg);