Textdatei filtern vor dem Import in Excel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Einlesen() Dim FSO As Object Dim txtDatei As Object Dim stext As String Dim arr As Variant Dim arrGekürzt Dim z1 As Long, z2 As Long Set FSO = CreateObject("Scripting.FilesystemObject") Set txtDatei = FSO.opentextfile("C:\Users\Daniel\Downloads\text.txt") 'Öffnen stext = txtDatei.readall 'Lesen txtDatei.Close 'Schließen arr = Split(stext, vbCrLf) 'In Zeilen aufteilen ReDim arrGekürzt(0 To UBound(arr)) For z1 = 0 To UBound(arr) If Len(arr(z1)) > 1 Then arrGekürzt(z2) = arr(z1) z2 = z2 + 1 End If Next ReDim arr(1 To z2, 1 To 1) For z1 = 0 To z2 - 1 arr(z1 + 1, 1) = arrGekürzt(z1) Next Cells(1, 1).Resize(z2, 1).Value = arr End Sub

Hi
nach dem Einfügen (also nachdem dieses Makro gelaufen ist), einfach noch die Funktion DATEN - DATENTOOLS - TEXT IN SPALTEN ausführen.
Wenns ins Makro rein soll, kannst dir ja vom Recorder helfen lassen, den entsprechenden Code zu erstellen.
hier der Code zum aufteilen auf mehrere Blätter:

Public Sub Einlesen()
Dim FSO As Object
Dim txtDatei As Object
Dim stext As String
Dim arr As Variant
Dim arrGekürzt
Dim z1 As Long, z2 As Long, z3 As Long
Set FSO = CreateObject("Scripting.FilesystemObject")
Set txtDatei = FSO.opentextfile("C:\Users\Daniel\Downloads\text.txt") 'Öffnen
stext = txtDatei.readall 'Lesen
txtDatei.Close 'Schließen
arr = Split(stext, vbCrLf) 'In Zeilen aufteilen
ReDim arrGekürzt(0 To UBound(arr))
For z1 = 0 To UBound(arr)
If Len(arr(z1)) > 1 Then
arrGekürzt(z2) = arr(z1)
z2 = z2 + 1
End If
Next
z3 = 1
ReDim arr(1 To WorksheetFunction.Min(ActiveSheet.Rows.Count, z2), 1 To 1)
For z1 = 0 To z2 - 1
If z3 > UBound(arr, 1) Then
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Cells(1, 1).Resize(UBound(arr, 1), 1).Value = arr
ReDim arr(1 To UBound(arr, 1), 1 To 1)
z3 = 1
End If
arr(z3, 1) = arrGekürzt(z1)
z3 = z3 + 1
Next
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Cells(1, 1).Resize(UBound(arr, 1), 1).Value = arr
End Sub

das mit dem Text in spalten überlass ich dir, da steckt ja keine große Logik dahinter, das lässt sich mit dem Recoder aufzeichnen.
den Code musst du dann aber immer dann einfügen, wenn der Array-Inhalt in das blatt geschrieben wurde, also 2x, dh einmal in der Schleife und einmal am Ende.
Gruß Daniel

Hallo zusammen,
das Makro läuft super und macht auch echt was ich mir vorgestellt habe. Ich habe nur noch ein Problem beim aufteilen der Spalten. Die Funktion "Text in Spalten" funktioniert zwar in Excel, ist aber eine Excel-spezifische Funktion. Da ich das Makro unteranderem in Catia ausführen will, brauch ich da eine Alternative. Meine Idee war jetzt, das Array mithilfe einer QueryTable einzufügen. Geht das?
Über diese Einstellungen möchte ich das Array in das Tabellenblatt einfügen:
####################################
With excel1.Sheets("Import").QueryTables.Add(Connection:=Dat1, Destination:=excel1.Sheets("Import").Range("$A$1"))
.Name = "temp.txt"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = " "
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
######################################################################
Welche Alternative gibt es zu der Funktion "Text in Spalten" in Excel?
Danke!
Gruß
Daniel

Beliebteste Forumthreads (12 Monate)

Textdatei filtern vor dem Import in Excel

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread