Makro welches Verzeichnisse (keine Dateien) ausliest

[chrisrockkz]

Hallo liebe LibreOffice-Community,
ich bin gerade etwas am verzweifeln und finde leider nichts, was mir bei meinem Anliegen hilft.
Ich würde mir gerne ein Makro basteln, welches direkt beim Start ausgeführt wird und alle Verzeichnisse (keine Unterverzeichnisse) eines Verzeichnis in die Tabelle schreibt.
Ich bin leider nur auf den Code hier gestossen, welcher mir aber nur Dateien ausliest und in die Tabelle einfügt:

Code: Alles auswählen

REM listet alle Dateien eines Verezeichnisses in einem 
REM Calc-Sheet auf

Sub Dateien_auflisten
	dim sPfad as string
	dim oSheet as Object
	dim iSp as integer, iZe as Long
	
	oSheet = thisComponent.sheets.getByName("Verzeichnisse")
	iSp = 0 : iZe = 0  'Startzele der Auflistung A5
	sPfad = ConvertToUrL("C:\Verzeichnis\")
	
	nextFile = dir(sPfad, 0)  'die erste Datei
	Do while nextFile <> ""
		oSheet.getCellByPosition(iSp, iZe).string = nextFile
		iZe = iZe + 1
		nextFile = Dir
	loop
	
End Sub

Dann finde ich nicht den richtigen Punkt um einzustellen, dass das Makro bei jedem Öffnen der Tabelle ausgeführt wird.
Sorry, ich bin leider ein blutiger Anfänger in der Materie.
Vielleicht könnt ihr mir helfen. Das wäre sehr toll.

Liebe Grüße

[Mondblatt24]

Hallo,
Fragen zu Makros gehören normalerweise in die Komponente LibreOffice Programmierung .

Gruß
Peter

[chrisrockkz]

Hallo,
Fragen zu Makros gehören normalerweise in die Komponente LibreOffice Programmierung .

Gruß
Peter

Sorry. Habe dort ein Thema erstellt.

[Mondblatt24]

Hier geht es weiter.