Just nu i M3-nätverket
Gå till innehåll
AniN

Extrahera datum från timestamp med VBA

Rekommendera Poster

 

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

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...