Excel/VBA Opentext FieldInfo dynamisch erstellen
11.09.2003 10:21:06
Tom
Ich habe ein kleines Problem mit der FieldInfo Variable für die OpenText Methode:
Folgender code sollte eigentlich funktionieren, aber die Zuweisung:
FieldInfo:=FInfo() (auch ohne Klammern)
verursacht einen Fehler 13 (Typen unverträglich)
Woran kann das liegen ? Der vartyp ist der gleiche, wie wenn ich
FInfo=Array(Array(1,2),Array(2,2),......,Array(n,2))
zuweise, was dann funktioniert...
Ich habe auch schon probiert ein Macro aufzunehmen, und zu schauen was Excel da selbst fabriziert, aber wie zu erwarten war erstellt es nur eine riesige 'Array()' Zuweisung (die dann auch noch abbricht wegen zuvielen Zeilenfortsetzungen)
Hurraa M$... naja
Hier der entsprechende Code Ausschnitt:
Dim FInfo()
'*** Bereich (nur eine Zeile !) ****
vonSpalte = "A"
bisSpalte = "EI"
'************************************
pasterange = vonSpalte + "1" + ":" + bisSpalte + "1"
colcount = Range(pasterange).Count 'ok, da nur eine Zeile...
ReDim FInfo(colcount)
For a = 1 To colcount
FInfo(a) = Array(a, 2)
Next a
'*******************************************************************************
' importieren und kopieren
'*******************************************************************************
Application.DisplayAlerts = False
'Datenfile muss so heissen wie das Excelfile (
datafile = Workbooks(1).Path + "\" + Replace(Workbooks(1).Name, ".xls", ".csv")
Workbooks.OpenText Filename:=datafile, _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
False, Comma:=True, Space:=False, Other:=False, FieldInfo:=myArray()
vielleicht kann mir ja jemand helfen :)
gibt es vielleicht eine Möglichkeit alles standardmässig als Text zu importieren ?
mfg
Tom