VBA: foute datumnotatie bij Script opslaan als txt

[davidgroen83]

In VBA heb ik een vrij simpel script geschreven die een werkblad (of meerdere) opslaat als een txt ( tab is scheidingsteken). Nu staan in mijn tabblad een stuk of 100 datums. Na het opslaan als txt via mijn VBA script worden al deze datums omgezet naar een Engelse datum notatie.

Dus van 12-04-1983 naar 04-12-1983.

Ik wil dit txt bestandje graag inlezen in een applicatie. Echter herkent deze applicatie de Engelse datum notatie niet.

Is er iemand die weet hoe ik det probleem op kan lossen???


PS als ik handmatig opsla dan hanteerd hij wel de goede datumnotatie

 

[etri]

Je kan de datum als text opslaan via

format(A1,"dd-mm-yyyy")

A1 bevat in dit geval de datum...

 

[davidgroen83]

Ja oke maar het probleem is dus dat ik meer dan 100 datum velden heb die niet altijd in de zelfde cel staan. dus een harde datum als tekst mee geven is voor mij geen optie

 

[etri]

In mijn geval is A1 geen 'harde datum' maar een variabele die verwijst naar een cel. Je kunt dus via een loop (of iets dergelijks) door je cellen heen lopen en elke cel via de format "dd-mm-yyyy" opslaan.

Bijvoorbeeld:

Dim A1 as string
Dim sDatum as string

'Haal datum op uit spreadsheet
A1 = Sheets("Data").Range("A2").Value  'is bijvoorbeeld "03-02-2007"

'Sla datum op in een string in de goede format
sDatum = format(A1, "dd-mm-yyyy")

'Code om datum op te slaan...
...