Excel VBA - CSV mit print methode

Excel VBA - CSV mit print methode (12 Beiträge, 51 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

hallo,

in einem excel makro mit hilfe der Print methode eine csv-datei.
nun klappt das ganze soweit ja richtig gut, ausser dass keine umlaute in die datei geshrieben werden.

Bsp.:
"2005";"0";"00605";"0";"L-GRUNDKOSTEN SCHWAZ-K?NIGSFELD";........

der grund warum ich nicht die von excel vorgegebene funktion zum csv-export verwende ist der, dass das makro auf verschiedenen excel versionen gestartet wird und die vorgegebenen exportfunktionen nicht auf jeder version kompatibel sind ...

----------------

Sub csv_export()

    Range("D1").Activate
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="2005"

    'dateiname in variabler NAV_Datei
    Nav_Datei = "D:Schnittstelle\export_konvertiert.txt"
    Open Nav_Datei For Output As #1
    'in erste zeile stellen
    'in erste zelle stellen
    Cells(1, 1).Select

    Dim count As Long
    Dim Zeilenwert
    'alle zellen durchgehend und in file #1 schreiben
    Do While ActiveCell.Offset(, 3).Value <> ""

            If Rows(ActiveCell.Row).Hidden = False Then

            count = 0
            Zeilenwert = ""
            Do While count <= 80 'anzahl der spalten
                Zeilenwert = Zeilenwert & Chr(34) & ActiveCell.Offset(, count).Value & Chr(34) & ";"
            count = count + 1
            Loop
            Print #1, Zeilenwert

        End If
    ActiveCell.Offset(1).Select
    Loop

    Close #1
End Sub

---------------------

bin fuer jeden tipp dankbar.

könnte an einem falsch eingestellten Font - Encoding liegen (Unicode, Windows Charset, ...)

aber genau kann ichs dir auch nicht sagen ..

wennst es in einer anderen excel version einliest, passt dann wieder alles ?

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

an das dachte ich am anfang auch ... so hab ich mir die laendereinstellung usw angeschaut ... english-deutsch alles versucht. andere rechner. anderes windows. anderes excel.

immer das selbe resultat

nana .damit hats nix zu tun ...

da geht es um das charset-encoding ... wie die einzelnen buchstaben in binärer form gespeichert sind ..

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

was passiert bei einem

open ..... for binary
(statt output) ..

sorry, aber meine VB Zeiten sind schon über 10 Jahre her .. daher kann ich auch nur wild spekulieren

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

laufzeitfeher 54 ... falscher dateimodus .... :/

ich glaub du musst dann statt print #1, bla einfach write #1, bla
verwenden ...

aber alles vage

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

hm nein das wars auch nicht .. selbes resultat.

wenns einem falsch eingestelltem zeichsatz liegt waere es doch sicher irgendwie moeglich zumindest temporaer ascii / iso zu erzwingen?

wenn dann müsstest das beim datei-schreiben festlegen ..

ich weiss dass es in C# geht .. in VB gibts aber weder bei "open" noch bei "write/print" sowas ..

was ist denn wenn du das file mit einer anderen excel version öffnest .. stehts dann richtig dort oder immer noch mit falschen sonderzeichen ?

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

in einer anderen excel version steht es auch falsch drinn ... das ist fuer mich aber auch nicht wichtig, da ich das file nur als schnittstellen-datei in ein anderes programm benutze.

ok hab die loesung

hab wiedermal zu kompliziert gedacht ...

hier eine grobe beschreibung des makros ...

ich habe eine csv-datei die aus einer sql-datenbank mit dem enterprisemanager erzeugt wird.
diese lese ich ins excel ein und fuehre einige routinen aus um die daten aufzubereiten.
dann wird das ganze wieder als csv abgespeichert.

beim manuellen oeffnen der ursprungsdatei ist mir zunaechst nichts aufgefallen.
doch beim genaueren betrachten sah ich dass bereits im excel selbst in den zellen die umlaute fehlten.

der grund dafuer war ganze einfach, dass aus irgendeinem grund das dateiformat fuer csv-dateien automatisch auf japanisch gesetzt wird.

den code fuer das datei-oeffnen habe ich mir durch das aufzeichnen von makros besorgt und so hat sich der japanische zeichensatz eingeschlichen.

Workbooks.OpenText Filename:="D:\Schnittstelle\export.txt", Origin _
:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _...

das Origin:=932 durch Origin:=xlWindows ersetzen und es funktionert.

trotzdem danke fuer die schnellen tipps

also wars das charset .. nur an einer anderen stelle

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung