起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 179|回复: 3

[请求]EXECL导入出错!**

[复制链接]
发表于 2009-2-18 15:32:45 | 显示全部楼层 |阅读模式
使用lExcelToTable进行EXECL导入,
每第一次运行时,就会提示读取文件失败,第二是就可以成功!
求助!!!!!!!!
回复

使用道具 举报

发表于 2009-2-18 16:02:42 | 显示全部楼层
请问
1、你使用的版本是多少?
2、把你的代码贴出来看看。
3、把原始的错误信息也一起贴出来
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-2-18 16:07:54 | 显示全部楼层
procedure TBF_LOGISTICS_FORMDOC.Button_inputClick(Sender: TObject);
var
   lExcelToTable:TExcelToTable;
   bookname , lmsg : string;
begin

     lExcelToTable:=TExcelToTable.Create(self);
     try
          lExcelToTable.FileName := input_config_dt.DataSet.FieldByName('file_name').AsString;
          bookname := input_config_dt.DataSet.FieldByName('sheet_name').AsString;
          lExcelToTable.DataSource := input_data_dt;
          lExcelToTable.StartRow := input_config_dt.DataSet.FieldByName('star_row').AsInteger;
          lExcelToTable.EndRow := input_config_dt.DataSet.FieldByName('end_row').AsInteger;

          lExcelToTable.FieldMap.Add('DataSetinput_data_dt.DEPOT_NAME=' + bookname + '[1,0]');
                   //lExcelToTable.Execute(lmsg);
   //{   if ExcelFieldMapFunc.ShowFieldMapEditor(lExcelToTable) then
      //begin
       if not lExcelToTable.Execute(lmsg) then
          begin
            jsDialogs.ShowError(lmsg, '导入excel失败!');
          end ;
    // end;
     finally
           lExcelToTable.Free;
     end;

未名.jpg

79.33 KB, 下载次数: 112

回复 支持 反对

使用道具 举报

发表于 2009-2-18 17:22:57 | 显示全部楼层
楼主把input_config_dt.DataSet.FieldByName('file_name').AsString;  showmessage一下
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-27 18:12 , Processed in 0.040766 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表