Text import FIELDINFO !
17.12.2003 09:14:59
Simon
Mit dem Code:
Workbooks.OpenText ImpTXT, _
DataType:=xlDelimited, Semicolon:=True, FieldInfo:=arrFieldArray()??
Vor dem Import der Textdatei lese ich die Werte für das Spaltenformat zuvor
aus einer Konfigdatei ein, danach möchte ich was zusammenbasteln und
an Fieldinfo übergeben, zb.
Function FieldArrayBasteln(arrSpaltenformat(), arrFieldArray())
i = 1
For i = 1 To 60
If arrSpaltenformat(i) = 0 Then
arrSpaltenformat(i) = 1
End If
arrFieldArray(i) = "Array(Array(" & (i) & ", " & arrSpaltenformat(i) & ")"
'MsgBox arrFieldArray(i)
Next i
End Function
leider klappt das nicht.
Ist das überhaupt in dieser Richtung möglich ??
Vielen Danke für Hilfe !
mfg
Anzeige