Office: Ordner generieren, Dateiname aus Zelle, Speichern unter

Hallo zusammen,

ich habe nach einiger Recherche einen VBA-Code gefunden, der schon recht gut das macht was ich gesucht habe.
(Ziel war das markieren eines definierten Bereichs und das Schreiben einer XML).
Das funktioniert soweit auch ziemlich gut. An folgender Stelle komme ich aber nicht weiter:

Ich würde gern dass die zu speichernde Datei ihren Dateinamen aus Zelle I2 im Tabellenblatt "Konfiguration" ausließt. Das Skript soll dann Ordner generieren (bspw. Ordner1 mit Unterordner2 und Unterordner3, wobei in Unterordner 2 wieder ein Ordner ist) und die XML_Datei dann im Unterordner 2 ablegen. Der Speicherpfad für die Ordner soll über einen "Speichern unter" Dialog ausgewählt werden können.

Genau bei dem Teil komme ich dann nicht weiter. Bislang wird die Datei nur mit definiertem Namen und Ordnerpfad abgelegt. Die Ordner zu generieren hab ich noch nicht hinbekommen :\. Hoffe ihr könnt mir weiterhelfen!

Ich hab bereits versucht diesen da einzubauen "MakesureDirectorypathexists", komme da aber irgendwie nicht mit zurecht =(.

Hoffe auf eure Hilfe!

Vielen vielen Dank!




Sub Speichern()

Dim f As Integer
Dim c As Variant
Dim DateiName As String
f = FreeFile
DateiName = "D:\data.xml"
On Error GoTo Fehler
If Dir(DateiName) "" Then '*
Open DateiName For Append As f '*
Print #f, vbCrLf '*
Print #f, Format(Now, "dd.mm.yyyy hh:mm:ss") '*
Else '*
Open DateiName For Output As f

End If '*

For Each c In Worksheets("Formelteil").Range("A1:A100")
Print #f, c

Next

Fehler:
If Err.Number 0 Then
MsgBox Err.Description, vbCritical + vbOKOnly, "Fehler:" & Err.Number
Err.Clear

End If
Close f

On Error GoTo 0

End Sub

:)

 

Hi

ich habe dir meine Speicherung der Datei vielleicht hilft dir das was.
Code:

gruss Christian

 

Hallo,

Vielleicht.

Ändere: "C:\users\hsv\documents" in Ihre Dateien-Pfad.
Code: