VBA Makro was die geöffnete Excelmappe (CSV Type) unter dem gleichen Namen u. Pfad

[kerstin1972]

Ich benötige ein Beispiel für ein VBA Makro was die geöffnete Excelmappe (CSV Type) unter dem gleichen Namen, nur mit Extention *.xlsx, speichert im gleichen
Verzeichnis
Der Name der CSV Datei ist zum Bsp. : DST-GDP-Q1_2018.csv, dann soll die Excelmapp heißen DST-GDP-Q1_2018.xlsx

und dem Pfad hat mit W:\SG-323\TeamZentraleKatalogredaktion\Regelupdate\/Q1_2018\Sonderlocken

wo Quartal und Jahr Funktion ermittelt werden sollen und als Variablen gespeichert werden sollen.

Versuch:

Sub ExcelSpeichern()
Dim Datum As Date

Datum = Tabelle1.Range("A1")

Debug.Print "Das Datum " & Datum & " liegt im Quartal: " & _
DatePart("q", Datum)

Debug.Print "Das Datum " & Datum & " liegt im Jahr: " & _
DatePart("y", Datum)

'Auskommentiert
 'Path zum Speichern  ActiveWorkbook.SaveAs ("W:\SG-323\TeamZentraleKatalogredaktion\Regelupdate\Q1_2018\Sonderlocken\" & "DST-GDP_" &Format(Day(Date), "00") & Format(Month(Date), "00") & Year(Date) & _".xlsx")'
   

End Sub

[WillWissen]

Hallo Kerstin,

du hast mittlerweile 7 Themen eröffnet. Ist dir eigentlich nie aufgefallen, dass du in allen einfach mit deiner Frage rausplatzt und weder Anrede noch Gruß verwendest? Auch nicht in den nachfolgenden Beiträgen? Ein höflicher Stil ist etwas anderes.

[kerstin1972]

:@ Entschuldiung

[schauan]

Hallöchen,

von einer aktiven, geöffneten csv kannst Du so ein paar Daten bekommen:

Sub test()
MsgBox ActiveWorkbook.Name
MsgBox ActiveWorkbook.Path
End Sub

Der Dateiname ohne CSV geht z.. so

Name=split(ActiveWorkbook.Name,".")(0)
'wenn im Namen kein Punkt enthalten ist

Das Quartal und Jahr bekommst Du z.B. so rein:

Name = Name & DatePart("q", Datum) & "_" & DatePart("y", Datum)

und zum Schluss noch xlsx

Name = Name & ".xlsx"