LO-Tabelle mit Makro als xlsx exportieren
Verfasst: Mo, 18.03.2024 21:30
Hallo,
nach langer zeit habe ich wieder eine Frage: ich exportiere bereits eine LO-Tabell mit Hilfe eines Makros (danke mikeleb) als PDF-Dokument. Nun möchte ich diese Tabelle als XLSX exportieren. Dazu habe ich das Makro für PDF abgeändert:
Fehlermeldung:
Message: SfxBaseModel::impl_store <file:///D:/SCHLARAFFIA%20RApp/RApp-Berichte/XLSX_Ausgabe/DiplCorps_20240318.xlsx> failed: 0x81a(Error Area:Io Class:Parameter Code:26).
Danke für eure Hilfe!
nach langer zeit habe ich wieder eine Frage: ich exportiere bereits eine LO-Tabell mit Hilfe eines Makros (danke mikeleb) als PDF-Dokument. Nun möchte ich diese Tabelle als XLSX exportieren. Dazu habe ich das Makro für PDF abgeändert:
Code: Alles auswählen
sub XLSX_Ausgabe
Datum=year(Date) & right("0"&Month(Date),2) & right("0"&Day(Date),2)
odoc=ThisComponent
Dim arg(2) as new com.sun.star.beans.PropertyValue
arg(0).Name = "URL"
arg(0).Value = Left(odoc.url, Len(odoc.url) - 4)
arg(0).value = Replace (arg(0).value, "Dokumente", "XLSX_Ausgabe") + "_" + Datum + ".xlsx"
arg(1).Name = "FilterName"
arg(1).Value = "calc_xlsx_Export" '<=== hier habe ich auf gut Glück pdf auf xlsx geändert
Dim aFilterData(0) as new com.sun.star.beans.PropertyValue
aFilterData(0).Name = "Selection"
aFilterData(0).Value = ThisComponent.Sheets(0) 'die Zählung der Tabellen beginnt bei 0
arg(2).Name = "FilterData"
arg(2).Value = aFilterData()
ThisComponent.storeToUrl(arg(0).value,arg()) '<=== hier wird Laufzehler gemeldet (siehe unten)
' Fertigmeldung
Datei = ConvertFromUrl(right(arg(0).value,len(arg(0).value)-8))
msgbox "Die XLSX-Datei:" + chr(13) + Datei + chr(13) +"ist fertig"
end sub
Message: SfxBaseModel::impl_store <file:///D:/SCHLARAFFIA%20RApp/RApp-Berichte/XLSX_Ausgabe/DiplCorps_20240318.xlsx> failed: 0x81a(Error Area:Io Class:Parameter Code:26).
Danke für eure Hilfe!