txt file in EXCEL einlesen

Hallo Experten,
ich versuche mch derzeit im Automatischen einlesen von TXT-files in EXCEL.
Dazu benutze ich den Befehl:
Sheets(aktblatt).Columns(1).TextToColumns _
Destination:=Range("A1"), _
DataType:=xlFixedWidth, _
FieldInfo:=txtarray, _
TrailingMinusNumbers:=True
Wobei txtarray beliebige Arrayfolge ist, die ich automatisch generieren kann,
besispeilsweise so: "Array(Array(0, 1), Array(8, 1), Array(20, 1), Array(32, 1), Array(44, 1))"
Nun bekomme ich aber eine Fehlermeldung, die damit zusammenhängt, dass mein txtarray nicht der richtige Datentyp für FieldInfo ist.
Doppelte Frage:
a) Welchen Datentyp braucht FieldInfo? (EXCEL hilfe spricht von Variant, wasn icht wirklich weiterhilft ...)
b) Wie kann ich den Datentyp von txtarray (derzeit String) so umwandeln, dass es klappt?
Vielen Dank,
Volker

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() Dim intcolbreit(0 To 5) As Integer Dim varA 'As Variant Dim lngZ As Long, ii As Long lngZ = UBound(intcolbreit) ' Anzahl Pos. ReDim varA(lngZ) ' Array dimensionieren For ii = 0 To lngZ varA(ii) = Array(intcolbreit(ii), 1) ' 1 für Typ Standard Next ii Selection.TextToColumns Destination:=Cells(1, 3), DataType:=xlFixedWidth, _ FieldInfo:=varA, TrailingMinusNumbers:=True End Sub

Sub Beispiel() Dim maAr maAr = Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 1)) Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=maAr, TrailingMinusNumbers:=True End Sub

Hallo Volker,
die FieldInfo muss in einem 2-spaltigen Array zur Verfügung stehen.
Dies geht mit Schleifen zum Beispiel auch so.
Gruß
Franz


Sub aaSpaltenSplit()
Dim intcolbreit, aktblatt As String
Dim intI As Long, txtArray()
aktblatt = ActiveSheet.Name
intcolbreit = Split(Sheets(aktblatt).Range("A1"), ",")
ReDim txtArray(LBound(intcolbreit) To UBound(intcolbreit), 0 To 1)
For intI = LBound(intcolbreit) To UBound(intcolbreit)
txtArray(intI, 0) = Val(intcolbreit(intI))
Select Case Val(intcolbreit(intI))
Case 0, 10
txtArray(intI, 1) = 1 'Standard
Case 5
txtArray(intI, 1) = 2 'Text
Case 19
txtArray(intI, 1) = 4 'Datum TMJ
Case Else
txtArray(intI, 1) = 1 'Standard
End Select
Next
With Sheets(aktblatt)
.Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).TextToColumns _
Destination:=Range("A1"), _
DataType:=xlFixedWidth, _
FieldInfo:=txtArray, _
TrailingMinusNumbers:=True
End With
End Sub
'oder auch
Sub aaSpaltenSplit_var()
Dim intcolbreit, aktblatt As String
Dim intI As Long, txtArray()
Dim intcolTyp
aktblatt = ActiveSheet.Name
intcolbreit = Split(Sheets(aktblatt).Range("A1"), ",")
intcolTyp = Array(1, 2, 1, 4, 1, 1, 1)
ReDim txtArray(LBound(intcolbreit) To UBound(intcolbreit), 0 To 1)
For intI = LBound(intcolbreit) To UBound(intcolbreit)
txtArray(intI, 0) = Val(intcolbreit(intI))
txtArray(intI, 1) = intcolTyp(intI)
Next
With Sheets(aktblatt)
.Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).TextToColumns _
Destination:=Range("A1"), _
DataType:=xlFixedWidth, _
FieldInfo:=txtArray, _
TrailingMinusNumbers:=True
End With
End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread