Delphi XE3 Excel匯入資料到StringGrid

procedure TDataEditDrFrm.btn8Click(Sender: TObject);varexcelx,excely:string;ExcelApp:Variant;workBook:OleVariant;excelRowCount,excelColumnCount:longint;i,j,row,row1:integer;    beginrow1:=1;pb1.Min:=0;dlgOpen1.Filter:='Excel檔案|*.xls|*.xlsx';if dlgOpen1.Execute thenbegintryExcelApp:=CreateOleObject('Excel.Application');workBook:=ExcelApp.WorkBooks.open(dlgOpen1.FileName);ExcelApp.visible:=False;excelRowCount:=ExcelApp.ActiveSheet.UsedRange.Rows.count;row:=1;pb1.Max:=excelRowCount;    for i := 1 to excelRowCount dobeginexcelx:= excelapp.Cells[i,1].Value;excely:=ExcelApp.cells[i,2].value;if (excelx<>'') and (excely<>'') thenbeginif strngrd1.RowCount<i thenstrngrd1.RowCount:=strngrd1.RowCount+1;strngrd1.Cells[0,row]:=IntToStr(row);strngrd1.Cells[1,row]:=excelx;strngrd1.Cells[2,row]:=excely;row:=row+1;end;pb1.StepBy(1);end;finallyworkBook.Close;ExcelApp.quit;ExcelApp := Unassigned;WorkBook := Unassigned;    end;    end;end;

Author：cnblogs 嘯月☆天狼

更多精彩內容：http://www.bianceng.cnhttp://www.bianceng.cn/Programming/Delphi/