OLE Fehler

[TillWe]

Habe nun mal den Code aus der Code Lib hier getestet
http://www.delphipraxis.net/internal...ghlight=excel&
Leider kommt "Fehler bei Bereichsprüfung"
und beim öfnnen der Datei "Kann DAtei nicht öffnen" ?!?
mfg

Delphi-Quellcode:

function XLS_LWPathDateiname(const DateiVorgabe, OrdnerVorgabe: String;
                                                       SD: TSaveDialog): String;
begin
  // Unter XLS-Dateierweiterung die XLS-Datei abspeichern.
  SD.Filter:= 'Microsoft Excel-Arbeitsmappe (*.xls)|*.XLS';
  SD.DefaultExt:= 'XLS';
  sd.InitialDir := OrdnerVorgabe;
  SD.FileName:= DateiVorgabe;
  if SD.Execute then
  begin
    Result:= SD.FileName;  // Der aktuelle DateiName wird zurückgegeben.
  end;
end;


procedure TForm3.Button13Click(Sender: TObject);
var
  XLSOrdner: String;
  XLSDateiName: String;
begin
  // Unter XLS-Dateierweiterung die XLS-Datei abspeichern.
  XLSOrdner:= extractfilepath(savedialog1.filename);
  XLSDateiName:=extractfilename(savedialog1.filename);
  XLSDateiName:= XLS_LWPathDateiname(XLSDateiName, XLSOrdner,
                                                          savedialog1);
// Daten vom StringGrid: Datengitter in eine XLS-Datei speichern.
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
  DatenInXLSDateiUebertragen(XLSDateiName, stringgrid1);
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}

end;

stringgrid hat geschätzt 48 Spalten und 5-6 Zeilen derzeit zum testen, und keine gefixten, ein ganz normales stringgrid halt?!

EDIT:
ICh wußte doch, hatte schonmal was gesehenw as funzt:
http://www.delphi-treff.de/tipps/kom...20exportieren/
Thread kann geschlossen oder gelöscht werden.