Textdatei Import Problem

[semfin]

Hey zusammen,

vielleicht stehe ich gerade sehr auf dem Schlauch, aber ich stehe hier vor einem "blockierendem" Problem:

Gegeben sind:
MS VS 2008 - Visual Basic 2008
MS Office 12 - Excel 2007
1x .log bzw .txt - Datei

Erläuterung:
Ich möchte nun die .log-Datei via VB Excel AddIn importieren lassen und danach formatieren lassen.
Mein Problem liegt aber zur Zeit darin, dass sich die Daten zwar über:

Application.Workbooks.OpenText(Filename:=varFileName, StartRow:=1, ConsecutiveDelimiter:=True, Semicolon:=True)

in das Excel Worksheet einfügen lassen, aber die Formatierung garnicht übereinstimmt.
Deshalb habe ich im folgenden einen anderen Code geschrieben, aber da bekomm ich regelmäßig folgenden Fehler:

Ausnahme von HRESULT: 0x800A03EC

Code:

        With activeWorksheet.QueryTables.Add(Connection:=varFileName, Destination:=firstRow)
            .Name = "logs"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            '.RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 850
            .TextFileStartRow = 2
            '.TextFileParseType = xlFixedWidth
            '.TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            '.TextFileColumnDataTypes = Array(3, 1, 1)
            '.TextFileColumnDataTypes = Array(1, 1, 1)
            '.TextFileFixedColumnWidths = Array(16, 142)
            .TextFileTrailingMinusNumbers = True
            .Refresh(BackgroundQuery:=False)
        End With

Na, denk ich mir, bist ja nicht dumm googlest du einfach schnell den Fehler.



.TextFileColumnDataTypes = Array(3, 1, 1)

Kann ich nicht schreiben, da Array nicht als Ausdruck verwendet werden kann.
Bastel ich mir ein Array macht er es auch nicht.

---

So jetzt das ganze etwas zusammengefasst:

Ich möchte nun das Datum in der .log-Datei darstellen können, am liebsten mittels:

.TextFileColumnDataTypes = Array(3, 1, 1)

ohne das:

Ausnahme von HRESULT: 0x800A03EC

immer kommt.

Wie kann ich das anstellen?


Danke für eure Antworten,
Mit freundlichen Grüßen,

[Ralf Jansen]

Zweiter Treffer beim googlen scheint dein Problem zu beschreiben

http://msdn.microsoft.com/de-de/library/6s0wczt9.aspx

Guck dir in dem Link mal den Punkt 'Landes-/Regionaleinstellungen verursachen bei manchen Excel-Methoden die Rückgabe eines Fehlers' an.

Hattest du nicht gesagt du hättest schon gegoggelt?

[semfin]

autsch danke, hab ich wohl überlesen / übersehen.

tut mir leid für den unnötigen thread

Mit freundlichen Grüßen,