Problem bei Speichern mit storeAsURL
Verfasst: Do, 06.11.2008 21:20
Hallo Zusammen,
ich kämpfe jetzt zwei Tage mit einen, wir mir scheint, einfachen Problem. Ich habe eine Makro in der Datei Erzeuge.ods. Ich erzeuge damit eine neue Calc-Datei, lösche zwei Tabellen und ändere den Name der ersten und füge 5 weitere mit ähnlichem Namen ein. Dann möchte ich das neu erstellte calc-Dokument speichern. Soweit läuft alles bis auf das Speichern. Ich erhalte immer eine Fehlermeldung, weiß aber nicht, wo dieser Fehler ist, weil ich damit nichts anfangen kann. Hier der Quellcode:
Bemerkung: Mein Ziel ist es in der weiteren Programierung die einzelnen Blätter noch mit Daten zu füllen und natürlich auch noch Sicherheitsabfragen einzufügen, ob die Angaben zur URL richtig sind. Das ist also erst einmal der Anfangscode. Nur, ich brauche ja nicht weiter machen, wenn das nicht läuft.
Bemerkung 2: Ich bitte um Nachsicht, fange gerade erst an, in StarBasic zu programmieren...
Dies ergibt die Fehlermeldung:
Es ist eine Exception aufgetreten
com.sun.star.task.ERRORCodeIOException
Message .
Ich stehe vor einem Rästel, was mache ich falsch? Googlen hat leider auch nichts für mich erhellendes gebracht.
Edit: Ich vergaß:
Ich benutzte Ooo 2.4.1 auf einem Debian-Sid (Sidux) Linuxsystem.
Danke schon einmal
Neelix
ich kämpfe jetzt zwei Tage mit einen, wir mir scheint, einfachen Problem. Ich habe eine Makro in der Datei Erzeuge.ods. Ich erzeuge damit eine neue Calc-Datei, lösche zwei Tabellen und ändere den Name der ersten und füge 5 weitere mit ähnlichem Namen ein. Dann möchte ich das neu erstellte calc-Dokument speichern. Soweit läuft alles bis auf das Speichern. Ich erhalte immer eine Fehlermeldung, weiß aber nicht, wo dieser Fehler ist, weil ich damit nichts anfangen kann. Hier der Quellcode:
Code: Alles auswählen
REM ***** BASIC *****
Sub ErsTabellen
Dim objDesktop As Object
Dim objDatei As Object
Dim objBlaetter As Object
Dim objBlatt As Object
Dim objmydoc As Object
Dim strURL As String
Dim strDateiname As String
Dim strSpeicherort As String
Dim mNoArgs()
Dim i As Integer
objDesktop = createUnoService("com.sun.star.frame.Desktop")
strURL = "private:factory/scalc"
objDatei = objDesktop.loadComponentFromURL _
(strURL, "_blank", 0, mNoArgs())
objBlaetter = ObjDatei.Sheets
For i = objBlaetter.getCount() - 1 To 1 Step -1
objBlaetter.removeByName(objDatei.Sheets(i).Name)
Next i 'Löscht die Blätter 2 und 3
ObjDatei.Sheets(i).Name = "Arbeit_1" 'Umbenennt Blatt1 in Arbeit_1
For i = 2 to 6
objBlatt = _
objDatei.createInstance("com.sun.star.sheet.Spreadsheet")
objDatei.Sheets.insertByName("Arbeit_" & Format(i, "0"), objBlatt)
Next i 'Fügt die Blätter Arbeit_2 bis Arbeit_6 ein
strDateiname = InputBox ("Geben Sie bitte den Dateinamen ein:") 'Usereingabe des Dateinamens
strDateiname = "file:///" & InputBox ("Geben Sie bitte ein Verzeichnis ein:") & strDateiname 'Eingabe des Verzeichnisse
objmydoc = StarDesktop.CurrentComonent 'objmydoc die gerade erzeugte Calc-Datei
strmyUrl = ConvertToURL (strDateiname)
objmydoc.storeToURL(strmyUrl, mNoArgs())
msgbox "Ihre Datei wurde gespeichert"
End Sub
Bemerkung 2: Ich bitte um Nachsicht, fange gerade erst an, in StarBasic zu programmieren...
Code: Alles auswählen
objmydoc.storeToURL(strmyUrl, mNoArgs())
Es ist eine Exception aufgetreten
com.sun.star.task.ERRORCodeIOException
Message .
Ich stehe vor einem Rästel, was mache ich falsch? Googlen hat leider auch nichts für mich erhellendes gebracht.
Edit: Ich vergaß:
Ich benutzte Ooo 2.4.1 auf einem Debian-Sid (Sidux) Linuxsystem.
Danke schon einmal
Neelix