Ordner erstellen

[BeatS]

Ich habe eine Liste mit Namen. Aus dieser Liste muss ich Ordner erstellen. Wie kann ich das machen? In Excel hatte ich ein Makro für das, dieses kann ich aber nicht mehr benutzen. Geht das mit o Calc auch?

[turtle47]

Hallo BeatS ,

zuerst einmal ein herzliches Willkommen hier im Forum.

Sicherlich fragst Du Dich warum Du noch keine Antwort erhalten hast.
Ein freundliches "Hallo" als Einleitung und eine Grussformel am Schluss macht sich immer gut.

Geht das mit o Calc auch?

Ja das geht auch.

Code: Alles auswählen

Sub MainMkDir
	oData1  = ThisComponent.Sheets().getByName("Tabelle1").getCellRangeByName("A2:A10").getDataArray
	for i = 0 to uBound(oData1)
	oFolder = oData1(i)(0)
	MkDir "C:/Mein Testordner/" & oFolder
	next i
	msgbox "Die Ordner sind erstellt" , 64, "MkDir"
End Sub

Viel Erfolg.

Jürgen