delphi读取EXCEL

Delphi读取excel数据(转)2010-04-21 13:06Delphi读取excel数据(转)

默认分类 2009-12-12 20:31:05 阅读101 评论0 
字号：大中小


从数据库导数据至excel 容易，但要是想把excel 里的数据通过delphi写的程式导入数据库就没那么简单了，并且网上讲的都不全面，没有几个完整可行的方案，以下是我收集的个人认为比较可行的方案，不敢独享，故拿出来供大家学习参考之用!

procedure load(rowCount,colCount:integer; fileName:String; var grid:TStringGrid);
//从Excel中读取数据到 Grid
var
   v:variant;
   i,j:integer;
begin
   grid.RowCount:=rowCount;
   grid.ColCount:=colCount;
   v:=createoleobject('Excel.Application');//创建OLE对象
   try
     form2.show;
     form2.ProgressBar1.Position := 0;
     form2.ProgressBar1.Max :=   65535;
     V.workBooks.Open(fileName);
     //for i:=1 to rowCount do
     for i:=1 to 65535 do
       for j:=1 to colCount do
         //if grid.Cells[j-1,i-1] = '' then break;
         form2.ProgressBar1.Position := i;
         grid.Cells[j-1,i-1]:=v.workbooks[1].sheets[1].cells[i,j];
     v.workbooks[1].close;
   finally