export delphi stringgrid to excel

by

The quickest way is to use an array of Variant,and just pass the entire array to Excel:

uses OleAuto;

var
  xls, wb, Range: OLEVariant;
  arrData: Variant;
  RowCount, ColCount, i, j: Integer;
begin
  {create variant array where we'll copy our data}
  RowCount := StringGrid1.RowCount;
  ColCount := StringGrid1.ColCount;
  arrData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

  {fill array}
  for i := 1 to RowCount do
    for j := 1 to ColCount do
      arrData[i, j] := StringGrid1.Cells[j-1, i-1];

  {initialize an instance of Excel}
  xls := CreateOLEObject('Excel.Application');

  {create workbook}
  wb := xls.Workbooks.Add;

  {retrieve a range where data must be placed}
  Range := wb.WorkSheets[1].Range[wb.WorkSheets[1].Cells[1, 1],
                                  wb.WorkSheets[1].Cells[RowCount, ColCount]];

  {copy data from allocated variant array}
  Range.Value := arrData;

  {show Excel with our data}
  xls.Visible := True;
end;

More Related Contents:

  1. How to have Delphi TWebbrowser component running in IE9 mode?
  2. Profiler and Memory Analysis Tools for Delphi [closed]
  3. List of Delphi language features and version in which they were introduced/deprecated
  4. Delphi: Access Violation at the end of Create() constructor
  5. Split a string into an array of strings based on a delimiter
  6. Is Delphi “with” keyword a bad practice?
  7. Why do I get “type has no typeinfo” error with an enum type
  8. How do I send a string from one instance of my Delphi program to another?
  9. How to change the implementation (detour) of an externally declared function
  10. How to use Animated Gif in a delphi form
  11. “Left side cannot be assigned to” for record type properties in Delphi
  12. Replacing a component class in delphi
  13. Load Jpg/Gif/Bitmap and convert to Bitmap
  14. Google like edit/combo control for Delphi?
  15. Conversion between absolute and relative paths in Delphi
  16. Using 7-Zip from Delphi?
  17. Handling a Unicode String in Delphi Versions
  18. Using TRichEdit at runtime without defining a parent
  19. How to check if two events are pointing to the same procedure in Delphi?
  20. How to shell to another app and have it appear in a delphi form
  21. Using WebView (EdgeHTML) in Delphi / C++ Builder
  22. Delphi 2009: How to communicate between Windows service & desktop application under Vista?
  23. How do I declare an array when I don’t know the length until run time?
  24. How do I hash a string with Delphi?
  25. Are GUIDs necessary to use interfaces in Delphi?
  26. Delphi pre-build event not executing BEFORE compile
  27. How to take a screenshot of the Active Window in Delphi?
  28. Delphi 7: ADO, need basic coding example
  29. How to translate (internationalize, localize) application?
  30. Using TChromium, Delphi Chromium Embedded

Leave a Comment