OpenOffice.info

Vielen Dank! Genau das habe ich gesucht! :)
VlG Manu

from pathlib import Path

def list_folder_content(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sheet = doc.Sheets.Auflistung
    folder = Path(sheet['I33'].String)
    filenames = [(f"{file_path.name}",) for file_path in folder.glob("*.*")]
    sheet[ 3:3+len(filenames), 6 ].DataArray = filenames

Und das nochmal in python:

[code]from pathlib import Path

def list_folder_content(*_):
doc = XSCRIPTCONTEXT.getDocument()
sheet = doc.Sheets.Auflistung
folder = Path(sheet['I33'].String)
filenames = [(f"{file_path.name}",) for file_path in folder.glob("*.*")]
sheet[ 3:3+len(filenames), 6 ].DataArray = filenames[/code]

sPfad = ConvertToUrL( oSheet.getCellRangeByName("I33").String )

Hallo

Das ist auch furchtbar schwer:
[code]sPfad = ConvertToUrL( oSheet.getCellRangeByName("I33").String )[/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

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