Aus mehreren Writer Dokmunten - Inhalt auslesen

[schwammer]

Hallo,

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

und das ist meine for schleife

Code: Alles auswählen

  	For i=2 To counter 
  	personAuslesen(i)
  
  	
  	i = i +1 
  	Next i 

Ich hab leider keine Idee, woran es liegen könnte.

[mikele]

Hallo,
warum schließt du die Datei

Code: Alles auswählen

oDocument.Close(-1)

bevor du die Daten ausliest?

[schwammer]

Ja daran hat es gelegen. musste es umschreiben und erst danach schließen lassen.
dann funktioniert es ^^