Datum in CSV bestand

[Winkkie]

Goedenavond,

Ik heb een sheet gemaakt en als ik deze in vul en opsla naar een CSV bestand komt netjes de datum te staan (dd-mm-jj)
echter als ik heb via onderstaand code (onder de knop exporteren) opsla krijg ik de volgende (mm/dd/jj)

Hoe kan ik via deze code toch opslaan zodat de datum netjes dd-mm-jj komt te staan.

Private Sub CommandButton5_Click()

   ActiveSheet.Copy
  With ActiveWorkbook
    .SaveAs ThisWorkbook.Path & "\" & Range("t1").Value, 6
    .Close -1
  End With

End Sub

 

[JEC.]

Hoe zijn je regionale pc instellingen?
Anders met Format functie om je range heen

 

[Winkkie]

Die staat op Nederlands

Hoe pak ik dit aan "Anders met Format functie om je range heen" ben nog lerende wbt VBA

 

[JEC.]

Hier kom je wel uit denkik

https://docs.microsoft.com/en-us/of...format-function-visual-basic-for-applications

 

[edmoor]

Maak er dit van:

.SaveAs ThisWorkbook.Path & "\" & Range("t1").Value, 6, , , , , , , , , , True

 

[Winkkie]

@edmoor

Dank het werkt perfect.

@Jveer

Deze site kende ik niet maar heb hem opgeslagen als een bookmark. Dank hier voor

GR Winkkie

 

[Winkkie]

@Edmoor,

Je hebt gisteren gereageerd om mijn vraag "Datum in CSV bestand" en je gaf de volgende oplossing

.SaveAs ThisWorkbook.Path & "\" & Range("t1").Value, 6, , , , , , , , , , True

Dit werkt prima hoor maar ik was nieuwsgierig wat de toevoeging doen (komma's) doen na die 6 dus ", , , , , , , , , , True" kan daar namelijk niets over vinden.


M.v.g.

Winkkie

 

[edmoor]

Die laatste parameter staat voor Local.
False, of niet meegegeven betekent dat VBA de Amerikaanse notatie gebruikt.
True zorgt ervoor dat de lokale instellingen worden gebruikt.
Zie ook:
https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.saveas

Maak ook gebruik van Intellisense in VBA:
https://sourcedaddy.com/ms-excel/advantage-vba-intellisense.html

 

[Winkkie]

Oke duidelijk weer wat geleerd