Makro welches Verzeichnisse (keine Dateien) ausliest
Verfasst: Mi 24. Feb 2021, 14:16
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:
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
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 SubSorry, ich bin leider ein blutiger Anfänger in der Materie.
Vielleicht könnt ihr mir helfen. Das wäre sehr toll.
Liebe Grüße