Dateiliste erstellen und Zellen auslesen

[TorSo]

Zunächst mal wieder ein freundliches Hallo,

ich muss mich heut mal wieder mit einer Frage an Euch wenden.

Ich habe, dank dieses Forums, eine Dateiliste eines Ordners erstellt. Nun würde ich aber gern aus den ermittelten Dateien noch bestimmte Zellen auslesen und der Liste hinzufügen. Ich denke, dass es generell möglich ist. Stellt sich für mich aber die Frage, muss ich dafür die Dateien alle öffnen ( lassen ) oder kann man dies auch ohne diesen "Umweg" tun?

Gruß TorSo

[TorSo]

Ich selbst nochmal,

mit

='file:///C:/Auftrag/2012/00370 - 2012.ods'#$Daten.B31

bekomme ich die Daten wohin ich sie will. Nun wüßte ich aber gern, wie ich die Dateinamen aus Spalte A als Variable angeben kann.

Vielleicht kann mir jemand auf die Sprünge helfen.


Vielen dank schonmal

TorSo

[RobertG]

Hallo TorSo,

vielleicht meinst Du etwas in der Art:

Code: Alles auswählen

SUB Datei_Wert_Uebernehmen
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oFeld1 AS OBJECT
	DIM oFeld2 AS OBJECT
	DIM stFeld AS STRING
	oDoc=thisComponent
	oDrawpage=oDoc.Drawpage
	REM Lage des Feldes in dem entsprechenden Formular aufsuchen
	oForm=oDrawpage.Forms.getByName("Formular")
	oFeld1=oForm.getByName("Dateiauswahl")
        oFeld2=oForm.getByName("Wert")
	REM Den Text aus der Dateiauswahl auslesen
	stFeld=oFeld1.Text
	stFeld = convertToUrl(stFeld)
        oFeld2.BoundField.updateString("'".stFeld . "'#$Daten.B31")
END SUB

Feld1 ist hier ein Dateiauswahlfeld. Feld2 wäre ein Feld, wo der Wert aus der Datei als String gespeichert werden soll. Natürlich müsste auch die genaue Lage der Zelle noch irgendwo eingegeben werden. Wichtig ist nur, dass Du die URL entsprechend wandelst.

Gruß

Robert

[TorSo]

Guten Morgen, Robert,

zuerst ein Dankeschön an Dich, dass Du mit meinem Thema beschäftigt hast. Jedoch ist Deine Lösung nicht das was ich suche.

='file:///C:/Auftrag/2012/00370 - 2012.ods'#$Daten.B31 möchte ich in eine Zelle schreiben, um dann dort die ausgelesenen Daten entsprechend der Dateiliste zu übernehmen.

Daher möchte ich gern wissen, wie ich den Dateinamen variabel angeben kann.



Gruß TorSo

[RobertG]

Hallo TorSo,

='file:///C:/Auftrag/2012/00370 - 2012.ods'#$Daten.B31 möchte ich in eine Zelle schreiben, um dann dort die ausgelesenen Daten entsprechend der Dateiliste zu übernehmen.
Daher möchte ich gern wissen, wie ich den Dateinamen variabel angeben kann.

Wenn Du etwas in eine Zelle schreiben willst, mit Gleichheitszeichen: Das klingt mir jetzt aber nicht nach Base, sondern nach Calc. Ich war davon ausgegangen, dass Du in einem Base-Formular auf Daten aus einer Calc-Datei zugreifen willst (schließlich geht es in diesem Teil des Forums um Base und SQL). Und das dürfte mit einem Dateiauswahlfeld und dem entsprechenden Code (vermutlich, jetzt nicht getestet) gehen.

Gruß

Robert