Problem mit Excelexport

[roga]

Hallo Borschti,

also bei mir läufts mit der Unit "u_ExportEXCEL" ohne Probleme. Das folgende Beispiel speichert eine ListView in eine Excel-Datei:

Delphi-Quellcode:

procedure ExportDataToExcel(ExportFileName: string;
  ExportListView: TListView);
var XLSFile: TXLSExport;
    XLSFileName: string;
    ColumnsCount, ItemsCount, i, x, y: Integer;
begin
  // Excel-Tabelle erstellen
  XLSFileName := ExportFileName;
  XLSFile := TXLSExport.Create(XLSFileName);
  if FileExists(XLSFileName) then DeleteFile(XLSFileName);
  try
    ColumnsCount := ExportListView.Columns.Count;
    ItemsCount := ExportListView.Items.Count;
    // Kopfzeilen
    for i := 0 to ColumnsCount -1 do
      XLSFile.Write(i, 0, ExportListView.Columns[i].Caption);
    // Daten
    y := 1;
    for i := 0 to ItemsCount -1 do
    begin
      XLSFile.Write(0, y, ExportListView.Items[i].Caption);
      for x := 0 to ColumnsCount -2 do
        XLSFile.Write(x + 1, y, ExportListView.Items[i].SubItems.Strings[x]);
      inc(y);
    end;
  finally

  end;
  XLSFile.Free;
  // Excel starten und Tabelle anzeigen
  if MessageDlg('Soll die Excel-Tabelle jetzt angezeigt werden?',
                mtConfirmation, [mbYes,mbNo], 0) = mrYes then
  try
    ShellExecute(0, nil, PChar(ExportFileName), nil, nil, SW_NORMAL);
  except
    MessageDlg('Excel-Programm konnte nicht gestartet werden!',
               mtError, [mbOk], 0);
  end;
end;

Leider kann man die Spaltenbreite nicht ändern.

Gruß RoGa