OpenOffice.info

Hallo Jürgen,
hat geklappt - bin begeistert!
Jetzt habe ich aber noch das Problem, dass ich die gelesenen Zellinformationen in der aktuellen Datei (die mit dem Programm) notieren. So ging das aber nicht:

myDoc = thisComponent
oSheet = myDoc.Sheets(0)
'Schleife
'..........
'..........
'Schleife bringt Wert im Feld mystring

zeile = zeile + 1
mycell = osheet.getCellByPosition(2 , zeile)
mycell.string = mystring


und so geht es nur einmal und dann Fehler:

'Schleife
'..........
'..........
'Schleife bringt Wert im Feld mystring
myDoc = thisComponent
oSheet = myDoc.Sheets(0)
zeile = zeile + 1
mycell = osheet.getCellByPosition(2 , zeile)
mycell.string = mystring

Gruß
Tikoo

Hallo Jürgen,
danke für den Code. Ich werde die Sache ausprobieren.
Gruß
Tikoo

Sub Doc_auslesen
    Dim oDocSrc1  As Object
    Dim oDummy()
	oDoc = thisComponent

	'Start Deiner Schleife
	'Dateiname auslesen und in die Variable MyFile schreiben

	MyFile = "test.ods" 'Dateiname
	oUrlSrc  = "file:///C:/" & Myfile  'Pfad zum Dokument anpassen
	dim myFileProp(0) as New com.sun.star.beans.PropertyValue
	myFileProp(0).name="Hidden" 'im Hintergrund öffnen festlegen
	myFileProp(0).value= true   'im Hintergrund öffnen festlegen
	oDocSrc1 = StarDesktop.loadComponentFromURL(oUrlSrc, "_blank", 0, myFileProp())              
	oSheet = oDocSrc1.Sheets().getByName("Tabelle1") 'Tabelle1 ansprechen
	oCellSrc = oSheet.getCellRangeByName("A1") 'Zelle ansprechen
	myString = oCellSrc.string 'Zellinhalt holen
	oDocSrc1.close (True)'Dokument schliessen
	msgbox myString 'Ausgelesenen Wert anzeigen bzw. tu irgend was

	'..............................
	'nächten Schleifendurchgang aufrufen

End sub

Hi Tikoo,

folgender Code öffnet das Dokument im Hintergrund, liest die angebene Zelle aus und schliesst das Dokument wieder.
Den Wert kannst Du dann ensprechend weiterverarbeiten. [code]Sub Doc_auslesen
Dim oDocSrc1 As Object
Dim oDummy()
oDoc = thisComponent

'Start Deiner Schleife
'Dateiname auslesen und in die Variable MyFile schreiben

MyFile = "test.ods" 'Dateiname
oUrlSrc = "file:///C:/" & Myfile 'Pfad zum Dokument anpassen
dim myFileProp(0) as New com.sun.star.beans.PropertyValue
myFileProp(0).name="Hidden" 'im Hintergrund öffnen festlegen
myFileProp(0).value= true 'im Hintergrund öffnen festlegen
oDocSrc1 = StarDesktop.loadComponentFromURL(oUrlSrc, "_blank", 0, myFileProp())
oSheet = oDocSrc1.Sheets().getByName("Tabelle1") 'Tabelle1 ansprechen
oCellSrc = oSheet.getCellRangeByName("A1") 'Zelle ansprechen
myString = oCellSrc.string 'Zellinhalt holen
oDocSrc1.close (True)'Dokument schliessen
msgbox myString 'Ausgelesenen Wert anzeigen bzw. tu irgend was

'..............................
'nächten Schleifendurchgang aufrufen

End sub[/code]

Hift das weiter?

Jürgen

Hallo,
als Anfänger bin ganz stolz, dass ich alle Dateinamen eines Verzeichnisses in einem Schleifendurchlauf auslesen kann. Die Informationen aus den Dateinamen bringt in meinem Fall sehr viel jedoch möchte ich jetzt aber noch aus jeder dieser Calc-Dateien einen Wert aus einer ganz speziellen Zelle auslesen.
Wie kann man das machen? Im Forum und in den Dokumentationen habe ich zu dieser Aufgabenstellung leider nichts gefunden.

Danke