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 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