【搞定】再发关于EXCELTOTABLE**

jacobpro

再发一次试试

jiahaiminghr

是不是没有设置ExcelToTable1的开始行和结束行两个属性

jacobpro

这个设置了。我把EXCEL也传上去

jacobpro

关键是BUTTON2的事件。BUTTON1可以不管。。

aPanther

楼主的代码应该这样修改：
procedure TMAINFORM.Button1Click(Sender: TObject);
var
  lstr: String;
begin
  if OpenDialog1.Execute then
  begin
    lstr := OpenDialog1.FileName;
    ExcelToTable1.FileName := lStr;
    ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1);
  end;
end;

procedure TMAINFORM.Button2Click(Sender: TObject);
var
  lstr, ErrStr: String;
begin
//  if OpenDialog1.Execute then
//  Edit1.Text :=SysUtils.ExtractFileName(opendialog1.FileName);
//  Edit1.Text :=sysUtils.ExtractFileDir(opendialog1.FileName)+'\'+SysUtils.ExtractFileName(opendialog1.FileName);
//  ExcelToTable1.FileName := Edit1.Text;
   ExcelToTable1.Execute(lstr);
   dsbMaster.DataSet.ApplyUpdates;
   if ErrStr <> '' then
     dialogs.ShowMessage(ErrStr);
end;

aPanther

楼主是BUTTON1来选择，BUTTON2来执行。
其实可以在一个按钮上来做这样的事，代码如下：
procedure TMAINFORM.Button1Click(Sender: TObject);
var
  lstr: String;
begin
  if OpenDialog1.Execute then
  begin
    lstr := OpenDialog1.FileName;
    ExcelToTable1.FileName := lStr;
    ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1);
    ExcelToTable1.Execute(lstr);
    dsbMaster.DataSet.ApplyUpdates;
    if ErrStr <> '' then
      dialogs.ShowMessage(ErrStr);
  end;
end;

jacobpro

最初由 aPanther 发布
[B]楼主是BUTTON1来选择，BUTTON2来执行。
其实可以在一个按钮上来做这样的事，代码如下：
procedure TMAINFORM.Button1Click(Sender: TObject);
var
  lstr: String;
be..

以下省略...... [/B]

非常感谢APANTHER老师的帮助，
但是运行这段代码后还存在这样的问题，不知道如何解决。

    ExcelToTable1.Execute(lstr);  

这句报错如下：

aPanther

代码没有问题：
你的这个错误是控件的一个BUG，解决方法是：
在TEST这个excel文件里插入一个新的sheet页，excel不能只有一个sheet页。
用下面的就可以了。

目前exceltotable控件有两个BUG：
1，第一个就是上面说的。
2，如果excel中有日期型字段，在导入到表的时候会有问题，读出来的不是日期，还有可能报错。

jacobpro

编译没问题，但是当运行时，会报错。

不选TEST1.XLS肯定报错，选了TEST1.XLS有时候报错。
报错截图如下：

aPanther

你把你excel文件里的那两个日期的单元格子，都改成文本。
然后你看看你自己定义的单元格对应是否正确！

test1是必须的！～～明显是test1字段为主键，但没有插入值造成的！你自己好好想想！！！