【结贴】ExcelToTable1**

op+

在论坛看了有关ExcelToTable1的后做的。发现自己做的不对。看图：
在浏览下的代码：
begin
if Opendialog1.Execute then
begin

edtPath.Text:=Opendialog1.FileName;
ExcelToTable1.FileName:=edtPath.Text;
end;
end;

在确定下的代码：
var
str:string;
begin
DataSource.DataSet.Open;
Business.Forms.ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1);
ExcelToTable1.Execute(str);
dialogs.ShowMessage(str);
end;

我dialogs.ShowMessage(str);下。它说我EXECL读取文件失败。。

不知道哪里没做对。帮我看看。谢谢先~~ :1eye:

cxxwz123

查看下是否已经赋值了ExcelToTable1.FileName:=Opendialog1.FileName;

op+

dialogs.ShowMessage(edtPath.Text);  
看T。。这样的。。

op+

dialogs.ShowMessage(ExcelToTable1.FileName);   接楼上的图

lixy

您的excel文件什么版本？

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=21567

op+

6楼的代码看了。。换成为
procedure TMAINFORM.Button1Click(Sender: TObject);
var
   lExcelToTable:TExcelToTable;
   lmsg:string;
begin
if OpenDialog1.Execute then
begin
    lExcelToTable:=TExcelToTable.Create(self);
    try
      lExcelToTable.FileName := OpenDialog1.FileName;
      lExcelToTable.DataSource:=DataSetBroker1;
      if ExcelFieldMapFunc.ShowFieldMapEditor(lExcelToTable) then
      begin
       if not lExcelToTable.Execute(lmsg) then
          begin
            jsDialogs.ShowError(lmsg, '导入excel失败!');
          end ;
       end;
     finally
       lExcelToTable.free;
     end;
  end;
end;

现在提示说读取EXECL文件失败。

op+

EXECL文件~~

lixy

换个excel文件试试。

op+

试了下。代码应该没问题。问题是不是我的EXECL文件不对啊？？