StringGrid mit Spalten nach Excel exportieren

[toms]

Zitat von ErdNussLocke:

hmm schaffs net

Also die Variable ist hinzugefügt

An welche Stelle muss denn

Delphi-Quellcode:

SelRange := XLApp.Workbooks[M].Worksheets[N].Range[RefToCell(1, 1), RefToCell(SheetRowCount, SheetColCount)]; 
SelRange.Select; 
XLApp.Selection.NumberFormat := '@';

genau hin?

Das Autofit muss schon statt finden, nachdem die Zellen befüllt wurden.

Delphi-Quellcode:

   XLApp.Worksheets[N].Select; 
          XLApp.Workbooks[M].Worksheets[N].Name := SheetName + IntToStr(N); 
          //Zellen als String Formatieren 

          SelRange := XLApp.Workbooks[M].Worksheets[N].Range[RefToCell(1, 1), RefToCell(SheetRowCount, SheetColCount)]; 
          SelRange.Select; 
 
          XLApp.Selection.NumberFormat := '@'; 

          XLApp.Workbooks[M].Worksheets[N].Range['A1'].Select; 
          //Daten dem Excelsheet übergeben 
          Sheet := XLApp.Workbooks[M].WorkSheets[N]; 
          Sheet.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Value := Data; 
     
      SelRange.Select; 
          XLApp.Selection.Columns.AutoFit;