Oprette semikolon sepereret fil vha. VBA

Hos mig laver din kode fine semikolonseparerede filer, så mon ikke det er dine systemindstillinger i Win XP, der er sat til at bruge komma som listeseparator i stedet for semikolon?

Er det en Dansk version du arbejder med?

Iøvrigt så står der fint ; som listseperator

Jeg arbejder med Dansk WIN XP, Dansk Excel XP.

Har du set under International i Excels egne indstillinger?

Der er ikke noget spændende at kigge på derinde, men hvis jeg går op manuelt og gemmer som CSV fil så kan jeg sagtens få den til at gemme som ; separeret... det virker da lidt mystisk??

VH CK

Meget mystisk

Og hvad værre er det er ikke kun ved mig, men også ved den kunde der har staret balladen. Vi kører dog begge Windows 2000...

VH CK

Sub Makro1()

    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\test.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
End Sub

Den kode virker hos mig i XP
Sub Makro1()

    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\test.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
End Sub

Ja det gør den også ved JKrons og det gjorde den også ved mig indtil jeg skiftede til XP - SOM JEG SKREV I SPØRGSMÅLET, men det gør den altså ikke længere. Derfor er det spørgsmål oprettet for at få en løsning på hvordan man så skal komme udover den begrænsning der åbenbart ligger i Excel XP DK med Windows 2000 som styresystem.

VH CK

Der er flere udgaver af CSV:
xlCSV
xlCSVMac
xlCSVMSDOS
xlCSVWindows
Er det det samme med alle ?

Ja det giver enten samme resultat eller fejl i data.

VH CK

Jeg ville være ked at at skulle bruge csv-filer hos en kunde.

Der hersker en del forvirring om hvordan output og input er.
Hvis man bruger selve excel til at lave den får dem sine delimiters fra systemindstillinger, hvis man bruger vba er den hardkodet til at bruge komma ud og ind (i de systemer jeg har prøvet win 2000 / xl2000 /xl2002).

Brug en tekstfil istedet. Her kan du selv sætte de delimeters du vil bruge både ind og ud.

Jeg er sådan set ligeglad med hvordan filen bliver oprettet. Faktum er at deres Axapta system forventer at få en fil hvor værdierne er adskildt af Semikolon. Har du et kode eksempel på det andet du skriver?

VH CK

Sub EksportAsCSV_DK(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

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

Next
Close #lFno

End Sub

bak>>Selvfølgelig - jeg ville nu bruge FSO til det men det er ligemeget. Jeg takker for hjælpen. Læg et svar og du får point.

VH CK

ok :-)