Export af semikolon fil

ønsker du " " om alle typer felter ?

Ja det er OK

Sub atest5()
EksportAsCSV_DK5 "c:\gert.csv", Range("A1:G16450")
End Sub
Sub EksportAsCSV_DK5(strFileName As String, rngOmr As Range)
Const Delim    As String = ";"  'afgrænser (delimiter)
Dim y          As Long          'tæller
Dim x          As Long          'tæller
Dim strTemp    As String        'streng til de enkelte rækker
Dim lRows      As Long          'antal rækker
Dim lCols      As Long          'antal kolonner
Dim lFno      As Long          'fil nummer
Dim t As String
t = Chr(34)
lFno = FreeFile
lRows = rngOmr.Rows.Count
lCols = rngOmr.Columns.Count
Open strFileName For Output As #lFno

For x = 1 To lRows
    strTemp = ""
    For y = 1 To lCols
        strTemp = strTemp & t & rngOmr(x, y).Text & t
        If y < lCols Then
            strTemp = strTemp & Delim
        Else
            Print #lFno, strTemp
        End If
    Next

Next
Close #lFno

End Sub

Tak for det, det ser ud som om det virker. Send lige et svar, så får du dine point.

fint