【结帖】EXCEL导入数据问题**

欧诺万德

下面代码X3如何执行
功能是将EXCEL中的数据导入到STRINGGRID中
v:=createoleobject('Excel.Application');//创建OLE对象
V.workBooks.Open(fileName);

for i:=1 to rowCount do
  for j:=1 to colCount do
     //if grid.Cells[j-1,i-1] = '' then break;   
     Stringgrid.Cells[j-1,i-1]:=v.workbooks[1].sheets[1].cells[i,j];
v.workbooks[1].close;
v.quit;

参考了论坛的一些资料
var
  FileName: String;
  o:   Object;
  app ,docs, doc: System.DispatchHelper;
  i ,row , Col :integer;
begin
  FileName := 'C:\Documents and Settings\Administrator\桌面\测试组织机构表.xls';
  o :=ComObj.CreateOleObject('Excel.Application');
  app := DispatchHelper.Create(o);
  app.PropertyPut('Visible', [True]);
  docs := DispatchHelper.Create(app.PropertyGet('workBooks',[]));
  docs.InvokeMethod('Open', [fileName]);

  //System.DispatchHelper.Create(app.workBooks.Open(fileName));

    //
  //app.workbooks[1].close;
  docs.InvokeMethod('close', []);
  (o as System.IDisposable).Dispose;
end;
写到这种程度就不会写了，
尽快帮我解决，很急，谢谢

zfang

用ExcelToTable控件吧。先导入到表然后再展现。。。。
具体的用法可以在bbs上以“ExcelToTable ”搜索

欧诺万德

这个结了，看这个http://bbs.justep.com/forum.php?mod=viewthread&tid=23847

zfang

好，谢谢反馈。