Extrahera datum från timestamp med VBA

[AniN]

 

Hej,

Jag använder nedanstående kod för att spara csv-dokument som Excel (.xlsx) med bl.a. ett datum i filnamnet. I cell C2 i dokumentet har jag en timestamp i anpassat format ÅÅÅÅ-MM-DD tt:mm:ss. Jag skulle via extrahera endast datumdelen att använda som Filnamn istället för =TODAY(). Någon som kan hjälpa mig med koden?

 

Tack på förhand!

 

Sub Spara()

 

Dim Filnamn As String

Dim Workbook As String

 

Application.ScreenUpdating = False

 

If Sheets(1).Name = "NyGul" Then

   

    Columns("B:B").Select

    Application.Run "PERSONAL.XLSB!Talformat"

    Range("F2").Select

    ActiveCell.FormulaR1C1 = "=TODAY()"

    Filnamn = Sheets(1).Range("F2")

        If Filnamn = "" Then Exit Sub

   

    ActiveWorkbook.SaveAs Filename:= _

    "Z:\1.Source Data\NyGul\" & "NyGul " & Filnamn _

    , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    ActiveWorkbook.Close

 

…

 

[Monshi]

Application.WorksheetFunction.Text(ActiveCell, "yyyy-MM-dd")

Givet att du har datumformat i cellen.

Men om du bara vill ha datum i filnamnet, använd Date.

 

Och undvik Select-satser, de behövs inte. Likaså bort med ActiveCell samt oprecisa referenser.

Se

 

[AniN]

Fint. Tack