【结贴】TExcelToTable导入问题

刺青

用TExcelToTable来导入数据，当数据10000条时，就卡死了
这个能解决吗？用户的Excel表大概有30000多条记录。

shangxy

看看能不能设置设置Texceltotable控件的startrow和endRow分批进行导入？比如一次导入5000

刺青

1、如何获取Excel表格中有多少行是有记录的？想用代码，分批来导入，这个可行吗？
2、如何获取Excel表格中的Sheet1名字是什么？
这两个能实现吗？

jiahaiming

这个需要借助vba代码了。
楼主可以参考一下相关帮助。

刺青

能给具体说说吗？

AExcel.ActiveSheet.UsedRange.Rows.Count;行数
网上找到的，不知道平台怎么用！

jiahaiming

平台中调用vba脚本：
请用“DispatchHelper”做关键字搜索一下。

刺青

在excel中，Sheets(1).Columns(1).Find("*", , xlValues, , , 2).Row是查得出来有几行记录的，但是就是不会写到平台，我创建了Sheets这个的对象，到了这个Columns就不知道应该怎么做了。

jiahaiming

最初由 jiahaiming 发布
[B]平台中调用vba脚本：
请用“DispatchHelper”做关键字搜索一下。 [/B]

论坛中有很多类型的例子。

刺青

帮忙看一下，这一行有错  s :=row.PropertyGet('count',[]).ToString;          //-----------这句出错了
是什么问题？错误如图：
procedure TFBDR.BitBtn5Click(Sender: TObject);
var
  s, strFname, lFilename : string;
  App, Exc, E1 : object;
  FApp, FDocs, Ac, range, row : system.DispatchHelper;
begin
  if OpenDialog1.Execute then
  begin
    lFileName := OpenDialog1.FileName;
    App := ComObj.CreateOleObject('Excel.Application');
    FApp := system.DispatchHelper.Create(App);
    FApp.PropertyPut('visible',[true]);
    Exc := FApp.PropertyGet('Workbooks',[]);
    FDocs := system.DispatchHelper.Create(Exc);
    FDocs.InvokeMethod('open',[lFileName]);

    E1 := Fapp.PropertyGet('ActiveSheet',[]);
    Ac := system.DispatchHelper.Create(E1);
    range := System.DispatchHelper.Create(ac.PropertyGet('UsedRange',[]));
    row := System.DispatchHelper.Create(range.PropertyGet('Rows',[]));
    s :=row.PropertyGet('count',[]).ToString;          //-----------这句出错了

    (E1 as System.IDisposable).Dispose;        //释放
    (App as System.IDisposable).Dispose;        //释放
    (Exc as System.IDisposable).Dispose;        //释放
  end;
end;

刺青

原代码是：ActiveSheet.UsedRange.Rows.Count