Beholde dansk datoformat ved kovertering til csv.

Bemærk sidste parameter i syntaxen for metoden

[expression].SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

Sæt Local til True. False er default og giver altid engelsk syntax.

Har ikke selv testet ;-)

Hej
Jeg har forsøgt at skrive nedenstående ind i formlen, men det ændrede desværre ikke noget. Det står dog som 10/29/2010 og ikke som tidligere skrevet 2010/10/29 ...


local:=true

Det kan jeg desværre ikke få til at virke :-(

Du er velkommen til at sende filen - @-adresse under min profil.

Sendt

Jeg fik desværre en fejl tilbage, så kunne ikke gennemskue din mail ;-)

Send en til rfjohannesen@gmail.com

Rasmus

Forslag sendt retur...

Sub danCSV_2()
Dim stiNavn As String, sidsteRække As Long, linje As Variant
Dim ræk As Long, kol As Long

On Error GoTo fejl

    stiNavn = ActiveWorkbook.Path + "\"
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    Open stiNavn & Range("K2").Value & ".csv" For Output As #1
    For ræk = 4 To sidsteRække
        If Range("A" & ræk) = "" Then
            Exit For
        End If
       
        For kol = 1 To 12
            If kol = 12 Then
                adskil = ""
            Else
                adskil = ";"
            End If
           
            linje = linje & Cells(ræk, kol) & adskil
        Next kol
   
        Write #1, linje
        linje = ""
    Next ræk
   
    MsgBox "Dannelse af CSV-fil udført"
fejl:
    Close #1
End Sub