255 Zeichen Begrenzung beim Einlesen

Jürgen · 2006-10-25T21:08:07+00:00

Hallo Leute, Über nachfolgendes Makro lese ich Textdateien in eine Exceltabelle ein. Private Sub Verzeichnis_lesen() Dim sFile As String, sPattern As String, sPath As String Dim iRow As Integer Dateiname.Clear sPath = ThisWorkbook.Path If Right(sPath, 1) <> "\" Then sPath = sPath & "\" sPattern = "*.*" sFile = Dir(sPath & sPattern) Do Until sFile = "" iRow = iRow + 1 'Dateiname ist ein Textfeld innerhalb einer UF Dateiname.AddItem sFile sFile = Dir() Loop End Sub Hierbei werden alle Inhalte über 255 Zeichen/Zeile nicht eingelesen. Kann man das irgendwie ändern? Danke für eure Mühe. :-) Gruss Jürgen

Hallo Leute,
entschuldigung, das war eine falsche Routine.
Hier nun die Richtige Routine.


Private Sub Konvertierung_Click()
Dim DatNam1$, DatNam2$, Pfad$
Pfad = ThisWorkbook.Path
'Dateiname und Dateiname2 sind Textfelder innerhalb einer UF
Dateiname2.Text = Dateiname
DatNam2 = "TEXT;" & Pfad & "\" & Dateiname & ""
DatNam1 = "" & DatNam2 & ""
Cells(7, 1).Value = Pfad & "\" & Dateiname 'DatNam1
With ActiveSheet.QueryTables.Add(Connection:=DatNam1, Destination:=Range("A8"))
'.Name = "Alle Standorte"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
End With
End Sub

Gruss
Jürgen

Hallo Jürgen,
ich hab nachdem ich mir in Word erst einmal einen Überblick über den Inhalt verschafft hatte, den Import der Daten etwas anders gestaltet. Die einfache Version produziert den von dir dargestellten Aufbau. Damit kann man aber meiner Meinung nach in Excel nur sehr wenig anfangen. Man hat 2 Zellen mit ca. 32 kB Datensalat und eine Zelle mit etwas weniger.
Der zweite etwas aufwendigere Code teilt die Daten in zwei Spalten mit Text auf. So steht, wenn es Koordinaten sind, jetzt in jeder Zeile ein Paar. Für den Alb-Donaukreis werden dabei ca. 2750 Datenzeilen produziert.
Die Integration in dein UF-Makro muss dann noch selber umsetzen.
Gruß
Franz


Public Sub Textdateiimport()
'Koordinaten werden als Pärchen in 2 Spalten ausgegeben.
Dim text, Zeile As Long, I As Long, rechts As Boolean, Spalte As Integer, dateiname, Pos1 As Long
dateiname = "C:\Test\Alb-Donau-Kreis.txt"
Open dateiname For Input As #1
Spalte = 5
Range(Columns(Spalte), Columns(Spalte + 1)).NumberFormatLocal = "@"
rechts = False
Do Until EOF(1)
Line Input #1, text
If Left(text, 1) = "<" Then
Zeile = Zeile + 1
Cells(Zeile, Spalte) = text
Else
Pos1 = 1
For I = 1 To Len(text)
If Mid(text, I, 1) = "," Then
If rechts = False Then
Zeile = Zeile + 1
Cells(Zeile, Spalte) = Mid(text, Pos1, I - Pos1)
rechts = True
Else
Cells(Zeile, Spalte + 1) = Mid(text, Pos1, I - Pos1)
rechts = False
End If
Pos1 = I + 1
Else
If I = Len(text) Then
If rechts = False Then
Zeile = Zeile + 1
Cells(Zeile, Spalte) = Mid(text, Pos1, I - Pos1 - 1)
rechts = True
Else
Cells(Zeile, Spalte + 1) = Mid(text, Pos1, I - Pos1 - 1)
rechts = False
End If
Exit For
End If
End If
Next I
End If
Loop
Close #1
End Sub
Public Sub Textdateiimport2()
'einfache Version, produziert je Zeile in der Text-Datei eine Zeile in Excel
Dim text, dateiname As String, Spalte As Integer, Zeile As Long
dateiname = "C:\Test\Alb-Donau-Kreis.txt"
Open dateiname For Input As #1
Spalte = 8
Columns(Spalte).NumberFormatLocal = "@"
Do Until EOF(1)
Line Input #1, text
Zeile = Zeile + 1
If Right(text, 1) = "," Then
text = Left(text, Len(text) - 1)
End If
Cells(Zeile, Spalte) = text
Loop
Close #1
End Sub

255 Zeichen Begrenzung beim Einlesen

Forumthread: 255 Zeichen Begrenzung beim Einlesen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial