Calc Makro VBA zum Import mehrerer .xml Dateien [gelöst]

[Arnoldz]

Hallo,

ich bin Neuling auf dem Gebiet der VBA Makros. Ich habe mich ein wenig eingelesen und einige Beispiele durchexerziert, beispielsweise dieses hier: https://forum.openoffice.org/en/forum/v ... =45&t=3490
Ich habe das auch soweit reproduzieren können.

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main

rem -------------------------------------------------------
rem - Init import URL
dim xmlurl as string
xmlurl = "file:///C:/Temp/payments.xml"

rem -------------------------------------------------------
rem - Import payments
dim properties(0) as new com.sun.star.beans.PropertyValue
properties(0).Name = "FilterName"
properties(0).Value = "Calc_Payments"

dim doc As Object 
doc = StarDesktop.loadComponentFromURL(xmlurl, "_blank", 0, properties())

End Sub

Ich würde jedoch gerne etwas ändern, ich kenne allerdings den Befehl nicht: Ich habe mehrere .xml Dateien, nennen wir sie einfach payments 1.xml / payments 2.xml etc., welche ich untereinander darstellen möchte. Wie lautet der Befehl um aus xmlurl = "file:///C:/Temp/" alle vorhandenen payments *.xml Dateien auszulesen?

Viele Grüße
Arnoldz

[pmoegenb]

VBA ist in der Microsoft-Welt zu Hause. Bei LibreOffice/OpenOffice ist das StarBasic. Vielleicht wirst Du für Dein Anliegen hier fündig.

[gogo]

Der Befehl den Du suchst heißt einfach "Dir"

Code: Alles auswählen

Sub Main
	sPath = CurDir
	sValue = Dir$(sPath & getPathSeparator )
	
	do 
		sValue = Dir$
		if lcase(right(sValue,4))=".xml" then
			msgbox "Hurra! Da ist eine: " & sValue
		end if
	
	loop until sValue = ""

End Sub

[Arnoldz]

Prima! Vielen Dank für die schnellen Antworten. Genau diesen Befehl suchte ich!

Danke nochmal!
Arnoldz

p.s.: Muss man hier noch Thema "gelöst" markieren?

[lorbass]

Muss man hier noch Thema "gelöst" markieren?

Es ist zumindest wünschenswert. So wird (weiteren) Helfern bereits bei Sichtung der Themenlisten gezeigt, dass hier keine weitere Hilfe erforderlich ist, und Lesern wird signalisiert, dass sie in diesem Thread eine Lösung erwarten dürfen.

Gruß
lorbass