CSV fil med 'gåseøjne'

Du kan bruge denne makro. Bare udfyld med egne data i den øverste sub.

Sub RunCSVexporter()
    Dim sFilename As String, Delim As String, bApostrof As Boolean
    Dim rArea As Range
    '***** udfyld med egne data *********
    sFilename = "c:\min_test2.csv"
    Set rArea = Range("A1:H1000")
    bApostrof = True
    Delim = ";"
    '************************************
    EksportAsCSV sFilename, rArea, bApostrof, Delim
End Sub



Sub EksportAsCSV(strFileName As String, rngOmr As Range, bApostrof As Boolean, Delim As String)

Dim sApo      As String        'Apostrof
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

If bApostrof = True Then sApo = Chr(34) Else sApo = ""
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 & sApo & rngOmr(x, y).Text & sApo
        If y < lCols Then
            strTemp = strTemp & Delim
        Else
            Print #lFno, strTemp
        End If
    Next

Next
Close #lFno

End Sub

Hvor skriver jeg alt det kode og hvordan kører jeg det bagefter?

lavede en php-stump der kunne gøre det for mig.