Seite 1 von 1
Ordner erstellen
Verfasst: Mi, 15.04.2009 10:29
von 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?
Re: Ordner erstellen
Verfasst: Fr, 17.04.2009 19:46
von 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.
BeatS hat geschrieben: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