CSV bestand maken voor importeren in Outlook

Status
Niet open voor verdere reacties.
Wat zou nu gewijzigd moeten worden in deze bestanden om ze te kunnen importeren in Outlook ?
 
Het probleem was/is dat het verkeerd gaat met opslaan datum velden.
Ik denk zelf dat het te maken heeft met windows die op de werk laptop is geïnstalleerd.

Met onderstaande vba gaat het wel goed.

Code: 
 Sub Test()
    Dim LaatsteCel As Long
    Application.ScreenUpdating = False
    Sheets("agenda").Copy
    With ActiveWorkbook

    LaatsteCel = Range("A" & Rows.Count).End(xlUp).Row

    Set Myrange = Range("B2:D" & LaatsteCel)
    For Each Cell In Myrange
        s = Cell.Text
        Cell.NumberFormat = "@"
        Cell.Value = s
    Next Cell

        .SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, Local:=True
        .Close
    End With
    Application.ScreenUpdating = True
End Sub
 
Dat is een misleidende "oplossing" omdat je zo de datums in tekst wijzigt waardoor er niet meer mee gerekend kan worden.
 
Je kunt datums dan beter opslaan in de ISO vorm: 2017-04-11
 
Heb de volgende regel aanpast

van
Code: 
Cell.Value = s
naar
Code: 
Cell.Value = Format(s, "yyyy-mm-dd")
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan