gerade programmiere ich, paar kleinere Makros in starbasic und versuche gerade mittels excel tabelle mehrere dokumente gleichzeitig zu bearbeiten,
dabei lese ich alle dateien aus einem ordner aus und gebe sie mit einem dateipfad in einem sheet aus.
jetzt möchte ich in jedem writer dokument die Tabelle(0) an der Position (1,3) auslesen. doch jetzt bekomme ich bei der methode getTextTables einen
Code: Alles auswählen
Runtime Error
BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.uno.RuntimeException
Message: .
meine zwei Methoden sehen wie folgt aus
Code: Alles auswählen
Sub personAuslesen(zeile As integer)
oDoc = DateiVerstecktOeffnen(thisComponent.sheets(4).getCellRangeByName("C" + zeile).String
Tables = oDoc.getTextTables
Table=Tables.getbyIndex(0)
'Inhalt zurücksetzen
thisComponent.sheets(4).getCellRangeByName("A" & zeile).string = Table.getCellbyPosition(1,3).String
End Sub
Sub DateiVerstecktOeffnen(datei As String ) As New Object
url=converttourl(datei)
dim myFileProp(0) as New com.sun.star.beans.PropertyValue
myFileProp(0).name="Hidden"
myFileProp(0).value=True
oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )
DateiVerstecktOeffnen = oDocument
oDocument.Close(-1)
End sub
Code: Alles auswählen
For i=2 To counter
personAuslesen(i)
i = i +1
Next i