Ordner erstellen
Volker
ich versuche eine Arbeitsmappe auseinander zu nehmen. Diese Mappe besteht aus 50 Tabellen, welche
gleich aufgebaut sind. Mittels der hier im Forum gefundenen Codes wandle ich die Tabellenblätter in einzelne Arbeitsmappen um. Nach einigem hin und her hab eich es nun geschaft, sowohl einen Ordner als auch die dazugehörende Datei in das gewünschte Verzeichnis zu bringen. Mein Wunsch wäre aber das, das sich die neue Datei sofort in dem neu erstellten Ordner befindet.
Wenn ich alles zusammefasse, was da auf mich zukommt, sind das ca. 250 zu erstellende Dateien und Ordner. Das müsste sich doch automatisieren lassen? Ich komme nicht weiter, hat jemand einen Tip für mich?
Sub UnterNamenSpeichern()
Dim sFile As String, sPath As String
'With ActiveSheet
'sPath = Application.DefaultFilePath & "\"
sPath = "C:\Bekleidung\HAW\WA 2\"
sFile = Range("B1").Value & ".xls"
ActiveWorkbook.SaveAs sPath & sFile
'End With
End Sub
Sub Erstelle_Ordner()
Dim Pathname$, VerzeichnisName$
Dim Result&
Dim Security As SECURITY_ATTRIBUTES
Pathname = "C:\Bekleidung\HAW\WA 2\"
VerzeichnisName = Cells(1, 2)
Result = CreateDirectory(Pathname & VerzeichnisName, Security)
If Result = 0 Then
MsgBox ("Fehler" & vbCrLf & "Vielleicht bereits vorhanden?")
Else
MsgBox ("OK")
End If
End Sub
Volker
Anzeige