Beispiel für ein VBA Makro was die geöffnete Excel
16.02.2018 13:24:43
Kerstin
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 dynamisch 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
Gruß Kerstin