How does one copy data to Excell? 3

[delphiman]

Is there a guru out there who can advise how to copy the date from (say) MyTableMYFIELD.value to (say) Book1.Sheet1.A1 in MyExcell.xls?

Thanks in advance.

 

[delphiman]

To Steve Van Els.

Before you respond to this I have just found your very informative forum102 which deals with this.

Thanks mate! And a great 2004 to you!!

 

[lespaul]

Here's some snippets of another option that allows you to fill an array and transfer the entire array to a sheet in a workbook:

var
ArrayOfData : variant;
excelapp, excelsht: variant;
begin
//create an array
ArrayOfData := VarArrayCreate([0, 100, 0, 2], varOleStr);
//fill the array
for i := 1 to 99 do
  begin
    ArrayOfData [i, 0] := qry.FieldByName('Field1').AsString;
    ArrayOfData [i, 1] := qry.FieldBYName('Field2').AsString;
    qry.Next;
  end; 

//initialize Excel 
  excelapp:= CreateOleObject('Excel.Application');
  excelapp.Visible := False;
  excelapp.Workbooks.Add;
  excelsht :=  excelapp.WorkSheets.Item['Sheet1'];
  excelsht.Activate;

//transfer entire array to spreadsheet
  excelsht.Range[excelsht.Cells.Item[1, 1], excelsht.Cells.Item[(100), 2]].Value := ArrayOfData;

//save and close
  excelapp.displayalerts := False;
  excelsht.SaveAs('R:\Labels.xls');
  excelapp.Workbooks.Close;
  excelapp.quit;
end;

Leslie

 

[ChrisGSchultz]

I've just been doing the same, and found this helpful free VCL component called TmxNativeExcel (works in D5,D6 & D7).
You can find it at:

http://www.maxcomponents.net

Works well!

Cheers


Chris ;-)

 

[VintageWine]

Delphi includes its own wrapper objects
TExcelApplication
TExcelWorkbook
TExcelWorkSheet
etc

Although frankly I find Leslie's approach of using the commands directly easier.

Out of the box Delphi also includes Formula 1 (TF1Book). A lighter weight spreadsheet which will save and read Excel compatible .xls files. Just gives another option.

Simon