Hallo
Wie kann ich einen Unterordner im Ordner wo die Excel Datei gespeichert ist erstellen?
Ordnertitel soll aus der Zelle: Worksheets("Deckblatt").Range("J2") und _ABCD bestehen.
Folgendes Makro habe ich schon und funktioniert aber das mit dem Unterordner fehlt noch:
Private Sub CommandButton8_Click()
' speicher Tabellenblatt als csv Datei im Ordner ab
strName = ThisWorkbook.Path & "\" & Worksheets("Deckblatt").Range("J2") & "_ABCD_.csv"
'strName = Replace(ThisWorkbook.FullName, ".xlsm", "_ABCD_.csv", 1, -1, vbTextCompare) =>nimmt den ganzen Dateinamen mit und wechselt über Replace das Dateiformat
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.SaveAs Filename:=strName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
ActiveWorkbook.Close False
ActiveWorkbook.Activate
Range("R8").Select
End Sub
Freue mich auf eure Hilfe.
Gruss
ch79
|