【结贴】[请求]ExcelToTable导入一个问题？**

janycamy

问题,是这样的:
运行后,第一次导入没出错,第二次导入时选择别一个电子表格就出错了.(如图)
看看我的代码是不是有问题?


var
Errstr:string;
n:integer;
begin
Errstr:='导入成功';
SAPname:='';
SAPnamedir:='';
if OpenDialog1.Execute then
begin
SAPname:=SysUtils.ExtractFileName(opendialog1.FileName);
n:=StringUtils.pos('.',SAPname);
StringUtils.Delete(SAPname,n,4);
SAPnamedir:=sysutils.ExtractFileDir(opendialog1.FileName)+''+SysUtils.ExtractFileName(opendialog1.FileName);
btnadd.Click;
end;
ExcelToTable1.DataSource:=DataSetBrokerSAPMBJG;
ExcelToTable1.FileName :=SAPnamedir;
ExcelToTable1.StartRow:=3;
ExcelToTable1.EndRow :=1000;
ExcelToTable1.FieldMap.Clear;
Business.Forms.ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1);
//ExcelToTable1.FieldMap.Add('DataSetBrokerSAPMBJG.顺序号='+SAPname+'[20.0]');
//ExcelToTable1.FieldMap.Add('DataSetBrokerSAPMBJG.WBS元素名称='+SAPname+'[4.0]');
try
ExcelToTable1.Execute(ErrStr);
DataSetBrokerSAPMBJG.DataSet.ApplyUpdates;
finally
dialogs.ShowMessage(Errstr);
end;

janycamy

请高手指点

lixy

代码看不出来。
换下顺序导入下。是不是那个文档有问题。
楼主自己看看那2个表格的区别吧。

janycamy

好了,自己找到了.结吧

atiger

啥问题，共享出来看看

janycamy

用代码控制创建ExcelToTable

atiger

楼主，谢谢你的反馈。
不过，没有太明白6楼的意思，从1楼代码看没有看见你创建ExcelToTable这个控件，是我理解差了，能否再说说呢，谢谢