Probleme bei der Öffnung von einer Textdatei
einer
ich versuche diese Datei zu öffnen
https://www.herber.de/bbs/user/74723.txt
Bei ein paar Zellen werden die Ergebnisse falsch angezeigt.
1.04 oder 1.12 werden z.B. wie Daten erkennt obwohl sie Zahlen sind.
Der Code sieht so aus
Sub test()
Dim stropeningdirectory As String
Dim strstoragedirectory As String
Dim strfile As String
Dim strTyp As String
Dim strfilename As String
Dim strName As String
Dim Datei As String
Dim Name1 As String
Dim wbold1, wbnew1 As String
Name1 = DMV
strName = "_extracted"
strTyp = "*.txt"
Application.ScreenUpdating = False
stropeningdirectory = "D:\RSAT4" + "\"
strstoragedirectory = "D:\RSAT4" + "\"
strfilename = Dir(stropeningdirectory + strTyp)
Sheets("Tabelle1").Select
Datei = strfilename
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & stropeningdirectory & strfilename, _
Destination:=Range("A1"))
.TextFileSpaceDelimiter = False
.Refresh BackgroundQuery:=False
End With
End Sub
Vielen Dank und viele Grüße
Georg