OpenOffice.info

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

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. :wink:

[quote="BeatS"]Geht das mit o Calc auch?[/quote]
Ja das geht auch.
[code]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[/code]

Viel Erfolg.

Jürgen

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?