导入excel问题**

xhsoft

现在使用的是exceltotabel控制，每次要对应，然后选择行数，有些麻烦，有其他好的方案 吗

jiahaiming

楼主，exceltotable的这些操作是可以代码完成的。

或者，你编写代码直接访问excel文件吧

xhsoft

var
  lstr,errstr: String;
begin
  if OpenDialog1.Execute then
  begin
    lstr := OpenDialog1.FileName;
    ExcelToTable1.FileName := lStr;
    ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1);
    ExcelToTable1.Execute(lstr);
    datasetbroker1.DataSet.ApplyUpdates;
    if ErrStr <> '' then
      dialogs.ShowMessage(ErrStr);
  end;
   datasetbroker1.DataSet.Open;
   datasetbroker1.DataSet.Refresh;
end;


我现在的，怎么写，直接访问？

xhsoft

有例子吗？

jiahaiming

主要是用代码设置fieldmap属性。
楼主可以试试，或者在论坛中搜索一下

xhsoft

ExcelToTable1.EndRow :=100;   

必须设置一个常量？

jiahaiming

导入记录的结束行，一定要大于你excel的记录行数

xhsoft

没法是个变量？

jiahaiming

你用代码设置不就可以了吗？
我没有说是常量啊。

xhsoft

我代码设置了100

如果下次是200条呢，再改代码？