如何在delphi中调用excel?
如何在delphi中调用excel?
procedure TstartForm.SpeedButton10Click(Sender: TObject) var MSExcel:Variant begin MSExcel:=CreateOLEObject(Excel.Application) MSExcel.WorkBooks.Add MSExcel.Visible:=True MsExcel.Cells[i,1].value:=Dm1.Query1.FieldByName(cpxhno).Asstring for i:=5 to Query1.RecordCount 4 do begin MsExcel.Cells[i,3].value:=Dm1.Query1.FieldByName(cpunit).Asstring退出Excel: MsExcel.Cells[i,4].value:=Dm1.Query1.FieldByName(htnumber).Asstring MsExcel.Cells[i,2].value:=Dm1.Query1.FieldByName(cpname).Asstring MsExcel.Cells[i,5].value:=Dm1.Query1.FieldByName(number).Asstring MsExcel.Cells[i,6].value:=Dm1.Query1.FieldByName(ljno).Asstring end end********************************* MSExcel.Quit MSExcel:=Unassigned //释放VARIANT变