von Manu1981 » Mi, 20.03.2024 14:58
Hallo,
ich habe ein funktionierendes Makro welches ich immer wieder mal benutze um Dateien aus einem Verzeichnis auszulesen.
Code: Alles auswählen
Sub Dateien_auflisten
dim sPfad as string
dim oSheet as Object
dim iSp as integer, iZe as Long
oSheet = thisComponent.sheets.getByName("Auflistung")
iSp = 6 : iZe = 3 'Startzele der Auflistung G4
sPfad = ConvertToUrL("C:\Users\Manu\Desktop\TEST1\")
nextFile = dir(sPfad, 0) 'die erste Datei
Do while nextFile <> ""
oSheet.getCellByPosition(iSp, iZe).string = nextFile
iZe = iZe + 1
nextFile = Dir
loop
End Sub
Da jedoch der Pfad variabel ist muss ich bisher jedes Mal das Makro editieren. Diesen recht umständlichen Schritt würde ich mir gerne in Zukunft sparen indem ich einfach den Pfad (z.B. "C:\....\....\") in Zelle I33 kopiere....
Da ich mich nicht so gut auskenne nun meine Frage: Wie kann ich das Makro dahingehend abändern, dass es den Pfad der auszulesenden Dateien aus Zelle I33 ausliest?
VlG
Manu
Hallo,
ich habe ein funktionierendes Makro welches ich immer wieder mal benutze um Dateien aus einem Verzeichnis auszulesen.
[code]
Sub Dateien_auflisten
dim sPfad as string
dim oSheet as Object
dim iSp as integer, iZe as Long
oSheet = thisComponent.sheets.getByName("Auflistung")
iSp = 6 : iZe = 3 'Startzele der Auflistung G4
sPfad = ConvertToUrL("C:\Users\Manu\Desktop\TEST1\")
nextFile = dir(sPfad, 0) 'die erste Datei
Do while nextFile <> ""
oSheet.getCellByPosition(iSp, iZe).string = nextFile
iZe = iZe + 1
nextFile = Dir
loop
End Sub
[/code]
Da jedoch der Pfad variabel ist muss ich bisher jedes Mal das Makro editieren. Diesen recht umständlichen Schritt würde ich mir gerne in Zukunft sparen indem ich einfach den Pfad (z.B. "C:\....\....\") in Zelle I33 kopiere....
Da ich mich nicht so gut auskenne nun meine Frage: Wie kann ich das Makro dahingehend abändern, dass es den Pfad der auszulesenden Dateien aus Zelle I33 ausliest?
VlG
Manu