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.