OLE Fehler

[TillWe]

Hallo,
hoffe ich habe das richtige Forum erwischt?

Ich habe folgendes Problem wo ich nicht weiterkomm:
Ich rufe eine Form über eine DLL auf.
Auf der Form befindet sich ein TStringgrid welches ich mit der Funktion
http://www.swissdelphicenter.ch/de/showcode.php?id=379
in ein Excel File machen will.
OleInitialize(nil); habe ich im Create der Form und so den berühmten CoInitialize Fehler ausgeschaltet.
Jetzt erscheint schonmal die Excel Tabelle.
Leider ist die aber leer und es erscheint folgender Fehler:
"OLE-Fehler 800A03EC"

Liegt es an dem Strings und DLL Problem?
Habe versucht mit
libhandle:=LoadLibrary(PChar(ExtractFilePath(appli cation.exename+'\3rdparty\borlndmm.dll')));
die Borland Dll einzubinden, reicht das so?
Das Resultat bleibt dasselbe OLE Fehler.

Vielen Dank für Hilfe!
mfg

EDIT: An der DLL scheint es nicht zu liegen, es geht auch nicht wenn ich die Form in einer exe aufrufe.

[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.