Excel VBA - CSV mit print methode

Re(10): Excel VBA - CSV mit print methode

Somnatic — Wed, 24 Aug 2005 09:30:15 GMT

also wars das charset .. nur an einer anderen stelle

Re(9): Excel VBA - CSV mit print methode

Frost — Wed, 24 Aug 2005 09:28:34 GMT

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

Re(8): Excel VBA - CSV mit print methode

Frost — Wed, 24 Aug 2005 09:05:09 GMT

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.

Re(7): Excel VBA - CSV mit print methode

Somnatic — Wed, 24 Aug 2005 09:00:40 GMT

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 ?

Re(6): Excel VBA - CSV mit print methode

Frost — Wed, 24 Aug 2005 08:58:03 GMT

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?

Re(5): Excel VBA - CSV mit print methode

Somnatic — Wed, 24 Aug 2005 08:50:27 GMT

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

aber alles vage

Re(4): Excel VBA - CSV mit print methode

Frost — Wed, 24 Aug 2005 08:48:26 GMT

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

Re(3): Excel VBA - CSV mit print methode

Somnatic — Wed, 24 Aug 2005 08:39:31 GMT

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

Re(3): Excel VBA - CSV mit print methode

Somnatic — Wed, 24 Aug 2005 08:37:00 GMT

nana .damit hats nix zu tun ...

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

Re(2): Excel VBA - CSV mit print methode

Frost — Wed, 24 Aug 2005 08:35:08 GMT

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

Re: Excel VBA - CSV mit print methode

Somnatic — Wed, 24 Aug 2005 08:28:48 GMT

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 ?

Excel VBA - CSV mit print methode

Frost — Wed, 24 Aug 2005 08:22:39 GMT

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.