Semikolon separator ved brug af makro

Jeg har noget kode liggende, som klarer problemet.

Umiddelbart er det ikke en enkelt parameter, som bare kan ændres, men det kan alligevel godt lade sig gøre at kode sig ud af det.

Jeg kan sende dig mit eksport-eksempel, hvis du ønsker.

janvogt@esenet.dk

Du kan gøre det på denne lille måde:

Sub Question279475()
    Dim rSheet As Worksheet
    Dim rUsedRange As Range
    Dim rRow As Range
    Dim rCell As Range
    Dim lFileNum As Long
    Dim sLine As String
   
    Set rSheet = Sheets("Sheet1")
    Set rUsedRange = rSheet.UsedRange
    ' If rSheet contains headings not to be show'n in file - then activate next line
    'Set rUsedRange = rUsedRange.Offset(1, 0).Resize(rUsedRange.Rows.Count - 1)
    lFileNum = FreeFile

    Open "D:\Temp\" & rSheet.Name & ".csv" For Output As #lFileNum
        For Each rRow In rUsedRange.Rows
            sLine = ""
            For Each rCell In rRow.Cells
                sLine = sLine & CStr(rCell.Value) & ";"
            Next rCell
            Print #lFileNum, sLine
        Next rRow
    Close #lFileNum
   
    'Clean up
    Set rSheet = Nothing
    Set rUsedRange = Nothing
    Set rRow = Nothing
    Set rCell = Nothing
End Sub

Ændre selv "D:\Temp\"

prøv lige at ændre FileFormat til xlCSVWindows.
det ændrer seperatoren til ;

Bak's forslag var dejligt simpel, men ændrede umiddelbart ikke seperatoren. Pas på du ikke manuelt kommer til at gemme din testfil bagefter, for derved ændres den korrekt til ";". Er du enig?

Er vi godt nok ude i noget kode-kaj ala flemmings?

Tjah, wildthing. hos mig gemmer den nu fint med ; som seperator.
eng. win 2000 og eng. ex2000.
Problemet her ligger i at komma ændres til .
men du skal jo kode som flemming foreslår

points goes to Flemingdahl. Tak. /wildthing

ingen årsag - god fornøjelse