Eröffnung Semikolon getrennte CSV-Datei

Wie macht man öffnen Sie eine Semikolon-getrennte CSV-Datei mit VBA in Excel 2000?

Sample-Daten

An ID;TEST20090222
A Name;Firstname Surname
A Date;11.05.2000

Country:;SomeCountryName
Currency;EUR
CostA;
CostB;
CostC;
Part1;10;20;30
Part2;;;;
Part3;34;56;87

Code

In Excel 2003 11.8231.8221 SP3 mit VBA 6.5.1025, ich kann öffnen Sie eine Semikolon-getrennte Datei mit den folgenden VBA-code:

Workbooks.OpenText filename:=myFilename, _
    DataType:=xlDelimited, Semicolon:=True, Local:=True

Jedoch, wenn der gleiche code in Excel 2000 9.0.8961 SP1 mit VBA 6.5.1025, bekomme ich die folgende Fehlermeldung:

Fehlers kompilieren: Benanntes argument nicht gefunden

Ist --denke ich-- weil Excel 2000 kennt es nicht, das benannte argument "Local".

Deshalb habe ich gelöscht, das "Local:=True" - Teil. Aber das problem ist dann, dass eine gesamte Zeile aus der CSV-Datei geschrieben ist, in einer Zelle statt, aufgeteilt in die separate Semikolon getrennte Teile.

Habe ich im Internet gesucht nach einer Lösung aber nicht finden, alles, was nützlich und übersichtlich.

Irgendwelche Ideen?

[Update 17.02.2009]

Habe ich versucht den Vorschlag von Benutzer-lc mit dem makro-recorder. Aber die Ergebnisse waren verwirrend.

Wenn ich öffnen Sie die CSV-Datei mit dem Menü Datei->Öffnen mit... und wählen Sie dann die CSV-Datei, Semikolon-getrennte Daten korrekt geparst wurden. Und der aufgezeichnete code ist so einfach wie:

Workbooks.Open filename:= _
               "D:\testdata\Example 01 CSV\input.csv"

Aber wenn ich, dass VBA-code in meinem makro jede Zeile landet in einer Zelle wieder.

Nach dem Vorschlag von Benutzer barrowc, ich habe auch die Windows - "regions-und Sprachoptionen" Einstellungen, die von "Deutsch (Schweiz)" auf "English (United States)". Auch nach einem Neustart von Excel hat sich nichts geändert, dasselbe problem.

Ich Frage mich, warum es funktioniert auf Benutzer Remou's system. Was die regions-und Spracheinstellungen Sie haben?

Könnte Sie post ein paar Zeilen der CSV-Datei, so können wir einen Blick auf Sie zu?
Fügen Sie Ihre Informationen zu der Frage, bitte, nicht hier unten in die Kommentare.
Getan.

InformationsquelleAutor Lernkurve | 2009-02-16

  1. 3

    [Update 22.02.2009]

    In der Zwischenzeit habe ich das problem gelöst, indem er eine import-Funktion selbst anstelle der Verwendung von Arbeitsmappen.OpenText.

    Ich Sie einfach öffnen Sie die CSV-Datei als text-Datei Lesen, Zeile für Zeile, split jede Zeile in der Semikolon-separierten Elemente und schreiben Sie jedes element in eine Zelle.

    Sub ImportCSVFile(filepath As String)
    Dim line As String
    Dim arrayOfElements
    Dim linenumber As Integer
    Dim elementnumber As Integer
    Dim element As Variant

    linenumber = 0
    elementnumber = 0

    Open filepath For Input As #1 ' Open file for input
        Do While Not EOF(1) ' Loop until end of file
            linenumber = linenumber + 1
            Line Input #1, line
            arrayOfElements = Split(line, ";")

            elementnumber = 0
            For Each element In arrayOfElements
                elementnumber = elementnumber + 1
                Cells(linenumber, elementnumber).Value = element
            Next
        Loop
    Close #1 ' Close file.
End Sub

    Bekam die inspiration von Shasur: http://vbadud.blogspot.com/2007/06/vba-read-text-files-with-leading.html

    Weiß ich immer noch nicht, warum Workbooks.OpenText funktioniert nicht auf meinem system, obwohl es scheint zu funktionieren auf Benutzer Remou's system. Ich denke, es könnte etwas zu tun mit der Betriebssystem-Sprache (Englisch) und die regions-und Spracheinstellungen (Deutsch, Schweiz), aber ich bin mir nicht sicher.

    Sowieso, der workaround funktioniert bei mir. Danke Euch allen für die Vorschläge und Hilfe!!!

    Sie meinen Tag gerettet. Nun, mein makro funktioniert in Dänemark und China.

    InformationsquelleAutor Lernkurve

  2. 2

    Nicht sicher, aber können Sie versuchen, ein makro aufzeichnen, das gleiche zu tun und überprüfen Sie den VBA-code, den es produziert. Erhalten Sie möglicherweise einen Hinweis gibt, was fehlt.

    InformationsquelleAutor lc.

  3. 2

    Ich finde, dass dies für mich funktioniert in Excel 2000:

    Workbooks.OpenText filename:=myFilename, _
    DataType:=xlDelimited, Semicolon:=True

    InformationsquelleAutor Fionnuala

  4. 2

    Hier ist die OpenText - Methode von Excel 2000:

    OpenText-Methode

    Geladen und analysiert eine text-Datei als eine neue
    Arbeitsmappe mit einem einzelnen Blatt, das
    enthält der Analysierte text-Datei Daten.

    Syntax

    Ausdruck.OpenText(Mit Dem Namen, Der Herkunft,
    StartRow, DataType, TextQualifier,
    ConsecutiveDelimiter, Tab, Semikolon,
    Comma, Space, Other, OtherChar,
    FieldInfo, DecimalSeparator,
    ThousandsSeparator    )

    Quelle

    und hier ist die Excel 2003 version:

    OpenText-Methode [Excel 2003 VBA Language Reference]

    Geladen und analysiert eine text-Datei als eine neue
    Arbeitsmappe mit einem einzelnen Blatt, das
    enthält der Analysierte text-Datei Daten.

    Ausdruck.OpenText(Mit Dem Namen, Der Herkunft, StartRow, DataType,
    TextQualifier, ConsecutiveDelimiter,
    Tab, Semikolon, Komma, Leerzeichen, Andere,
    OtherChar, FieldInfo,
    TextVisualLayout, DecimalSeparator,
    ThousandsSeparator,
    TrailingMinusNumbers, Lokale    )

    Quelle

    so Local war in der Tat ein neuer parameter für Excel 2003 funktioniert nicht in Excel 2000

    Keine Ahnung, wie die Ursache für das fehlerhafte Verhalten. Die Local parameter ist definiert als:

    Lokalen Optional Variante. Geben Sie Wahr wenn die regionalen Einstellungen
    die Maschine sollte verwendet werden für
    Trennzeichen, zahlen und Daten
    die Formatierung.

    Möchten Sie vielleicht überprüfen Sie die regionalen Einstellungen auf die Excel 2000-PC und überprüfen, um zu sehen, ob es etwas gibt, was kann die Ursache sein, die Daten falsch interpretiert. Versuchen Sie auch, die explizite Angabe der DecimalSeparator und ThousandsSeparator Parameter auf die Excel 2000-Methode und sehen, ob das hilft

    InformationsquelleAutor barrowc

  5. 2

    Noch eine workaround - einfach umbenennen .csv-Dateien .txt und verwenden OpenText-Methode.

    InformationsquelleAutor tiggogo

  6. 2

    Ich bevorzuge:

    Workbooks.Open fileName:=myFilename, UpdateLinks:=False, Local:=True

    InformationsquelleAutor Makah

  7. 0

    oft das Komma markiert, um wahr, wie ein separator, wo es in der Regel dem Dezimaltrennzeichen. Hinzufügen DecimalSeparator:="," und Bob ist dein Onkel

    InformationsquelleAutor JohnnyDutch

  8. 0

    Wieder Irgendwelche Ideen?

    Wenn Sie möchten, fix eine Datei für andere mit excel-add diese in der ersten Zeile der Datei, ohne die Anführungszeichen, gefolgt von einem Zeilenumbruch: "sep=;"

    Einfache Weise manuell öffnen, dumm, Dateien umbenennen, die Erweiterung .txt-oder .htm dann aus excel mit Datei - Öffnen.

    In VBA empfehle ich einen Blick in die Methode in der MSDN und der manuellen Eingabe jedes Parameters, meine Erfahrung war, dass dies eliminiert die meisten regionalen Themen.

    InformationsquelleAutor Jason K.

Schreibe einen Kommentar