MkDir Problem
08.08.2006 13:30:08
Alexander
Ich möchte aus einer vorhandenen Excel Spalte (in jeder zeile steht ein name) automatisch mit mkdir Ordner erzeugen die genau so heissen wie die zeilen.
Zeile1= ABC --> Ordner=ABC
Zeile2= DEF --> Ordner=DEF... und so weiter...
hier mein code versuch:
---------------------------------------
Sub Tabellen_automatisiert_anlegen()
Dim Zähler As Integer
Dim Dateiname As String
Dim Lieferantenspalte As Integer
Lieferantenspalte = 1
Zähler = 1
While Worksheets("Tabelle1").Cells(Zähler, Lieferantenspalte) <> "":
Dateiname = Cells(Zähler, Lieferantenspalte)
MkDir "c:\Dateiname"
Zähler = Zähler + 1
Wend
End Sub
--------------------------------
Problem: er legt mir nur den ordner "Dateiname" an... eh klar, aber wie gehts, dass er mir ordner von den Namen anlegt die in den spalten stehen?
Vielen dank für die Hilfe!
gruß Alex
Anzeige