Gemme de enkelte regneark i en projektmappe

Const undtagelsen = "NavnPåArkDerIkkeSkalMed"
..
..
For Each ark In ActiveWorkbook.Sheets
        arknavn = ark.Name
        If arknavn <> undtagelsen Then
            Sheets(arknavn).Copy

            ActiveWorkbook.SaveAs Filename:= _
            gemmesImappe & "_" & arknavn & ".csv", FileFormat:= _
            xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
       
            ActiveWorkbook.Close
        End If
    Next ark

Det virker. Jeg har bare det problem, at den gemmer filerne som komma separerede CSV filer - jeg vil gerne gemme dem som semikolon separerede.

Ok - så ændre du til: ... FileFormat:=xlCSV, ....

Jeg har allerede følgende:

ActiveWorkbook.SaveAs Filename:=Gemmemappe & FName(0) & "\" & FName(0) & "_" & Name, FileFormat:=xlCSV

Men den gemmer det som en kommasepareret fil og semikolon..

Hvor er problemet?

Problemet er at hvis jeg manuelt gemmer arket i excel som semikolonsepareret csv fil er kolonnerne i arket adskilt. (sådan jeg gerne vil have det, da jeg skal indlæse filerne i et andet program).

Hvis jeg gemmer den som kommasepareret csv fil samles kolonnerne i kolonne 1 adskilt af kommaer.