首页 / 软件开发 / Delphi / 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;