StringGrid mit Spalten nach Excel exportieren

[ErdNussLocke]

Geht auch nicht (Wenn ich es richtig gemacht hab)

Delphi-Quellcode:

          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; 
        end; 
    end; 

    XLApp.Workbooks[M].Cells.Select;  
    XLApp.Workbooks[M].Cells.EntireColumn.AutoFit; 
    XLApp.Workbooks[M].Cells.Numberformat := '@'; 
    XLApp.Workbooks[M].Range['A1','A1'].Select; 

    //Save Excel Worksheet 
    try
      for M := 1 to BookCount do
      begin
          SaveFileName :=Copy(FileName,1,Pos('.',FileName)-1) +
          Copy(FileName,Pos('.',FileName),
          Length(FileName)-Pos('.',FileName)+1);
          if fileexists(pfadE+Form1.EExportname.text+'.xls')=true
           then deletefile(pfadE+Form1.EExportname.text+'.xls');
          XLApp.Workbooks[M].SaveAs(SaveFileName);
      end;