Sub Bsp()
Dim strFilename As String
strFilename = Application.GetOpenFilename("Textdateien (*.tra), *.tra")
With Worksheets("Tabelle1")
With .QueryTables.Add("TEXT;" & strFilename, Destination:=.Range("A1"))
'verwende Codepage: Windows-1252 (Westeuropäisch); Alias 'Latin-1'
.TextFilePlatform = 1252
'ggf. bereits bestehende Zelleninhalte überschreiben
.RefreshStyle = XlCellInsertionMode.xlOverwriteCells
'Spalten sind mit Semicolon (;) voneinander getrennt
.TextFileSemicolonDelimiter = True
'Daten importieren
Call .Refresh(BackgroundQuery:=False)
'Abfrage wieder entfernen (Daten bleiben weiterhin erhalten)
Call .Delete
End With
End With
End Sub
Guten Morgen liebes Forum,
wünsche euch erstmal eine schöne Adventszeit.
Ich habe ein kleines Problem und bin sicherlich etwas zu unwissen was im Hintergrund bei "Opentext" passiert.
Nun mal zu dem Problem:
Ich habe mir den Code zusammengestellt das eine Text Datei (hier eine .tra) über einen Button ausgewählt wir und diese soll ab Zelle A1 auf Tabellenblatt 1 geschrieben. Seperator ist eingestellt.
Nun funktioniert das super bis auf ein paar Einträge.
Überall wo Überlauf oder Name steht setz er beim Import ein = davor obwohl es das in der Textdatei nicht gibt.
Wie kann ich das umgehen?
Orginaldatei: (Tra)
dblwsUL 1,5 -X11:3 / LCI_KL1:1 GLM-Levo+ 200 2 2 1 0 0
dblwsUL 1,5 -X11:6 / LCI_KL2:5 GLM-Levo+ 200 2 2 1 0 0
dblwsUL 1,5 -X11:9 / LCI_KL2:2 GLM-Levo+ 200 2 2 1 0 0
dblwsUL 1,5 -X8:17-- / MC1_KL1:3 GLM-Levo+ 1000 2 2 1 0 0
dblwsUL 1,5 -X8:12-- / MC2_KL1:3 GLM-Levo+ 1000 2 2 1 0 0
dblwsUL 1,5 -X8:18-- / MC3_KL1:3 GLM-Levo+ 1000 2 2 1 0 0
dblwsUL 1,5 -X8:13-- / MC4_KL1:3 GLM-Levo+ 1000 2 2 1 0 0
gn/geUL 1,5 -X5:PE3 / -X17:PE GLM-Levo-X17 200 2 3 1 0 0
orUL 1,5 -K2:24 / -X6:31 GLM-Ievo_K4 600 3 2 1 0 0
orUL 1,5 -K2:23 / -X6:36 GLM-Ievo_K4 300 3 2 1 0 0
orUL 1,5 -X15:38 / LCI_KL4:2 GLM-Ievo_K4 500 2 2 1 0 0
orUL 1,5 -X15:41 / LCI_KL4:3 GLM-Ievo_K4 500 2 2 1 0 0
orUL 1,5 -X15:39 / LCI_KL4:4 GLM-Ievo_K4 500 2 2 1 0 0
orUL 1,5 -X15:42 / LCI_KL4:5 GLM-Ievo_K4 500 2 2 1 0 0
orUL 1,5 LCI_KL5:1 / IN1_KL4:1 GLM-Ievo_K4- 500 2 2 1 0 0
orUL 1,5 -X11:7 / LCI_KL2:4 GLM-Levo+ 200 2 2 1 0 0
orUL 1,5 -X11:8 / LCI_KL2:3 GLM-Levo+ 200 2 2 1 0 0
swUL 1,5 -X4:7b / -X17:L1 GLM-Levo-X17 830 2 3 1 0 0
swUL 1,5 -X5:25 / -X17:N GLM-Levo-X17 250 2 3 1 0 0
gngeUL 2,5 -X1:PE1 / -V1:PE GLM-Ievo_K4 250 2 2 1 0 0
gngeUL 2,5 -X5:PE8 / MP GLM-Ievo_K4 400 2 2 1 0 0
gngeUL 2,5 -X5:PE5b / -T1:PE GLM-Ievo_K4 380 2 3 1 0 0
gngeUL 2,5 -X5:PE6b / -T2:PE GLM-Ievo_K4 480 2 3 1 0 0
gngeUL 2,5 -X16:PE / SWITCH:PE GLM-Ievo_K4 280 2 3 1 0 0
swUL 2,5 -X1:L1 / -V1:L1 GLM-Ievo_K4 200 2 3 1 0 0
swUL 2,5 -X1:L2 / -V1:L2 GLM-Ievo_K4 200 2 3 1 0 0
swUL 2,5 -X1:L3 / -V1:L3 GLM-Ievo_K4 200 2 3 1 0 0
swUL 2,5 -X1:N / -V1:N GLM-Ievo_K4 200 2 3 1 0 0
swUL 2,5 -V1:L1' / -Q1:1 GLM-Ievo_K4 200 3 3 1 0 0
swUL 2,5 -V1:L2' / -Q1:3 GLM-Ievo_K4 200 3 3 1 0 0
swUL 2,5 -V1:L3' / -Q1:5 GLM-Ievo_K4 200 3 3 1 0 0
swUL 2,5 -V1:N' / -X2:8 GLM-Ievo_K4 450 3 2 1 0 0
swUL 2,5 -X2:9 / -X3:15 GLM-Ievo_K4 220 2 2 1 0 0
Importdatei in Tabelle1:
dblwsUL |
1,5 |
|
|
-X11:3 / LCI_KL1:1 |
GLM-Levo+ |
200 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
dblwsUL |
1,5 |
|
|
-X11:6 / LCI_KL2:5 |
GLM-Levo+ |
200 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
dblwsUL |
1,5 |
|
|
-X11:9 / LCI_KL2:2 |
GLM-Levo+ |
200 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
dblwsUL |
1,5 |
|
|
-X8:17-- / MC1_KL1:3 |
GLM-Levo+ |
1000 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
dblwsUL |
1,5 |
|
|
-X8:12-- / MC2_KL1:3 |
GLM-Levo+ |
1000 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
dblwsUL |
1,5 |
|
|
-X8:18-- / MC3_KL1:3 |
GLM-Levo+ |
1000 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
dblwsUL |
1,5 |
|
|
-X8:13-- / MC4_KL1:3 |
GLM-Levo+ |
1000 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
gn/geUL |
1,5 |
|
|
#ÜBERLAUF! |
GLM-Levo-X17 |
200 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
orUL |
1,5 |
|
|
-K2:24 / -X6:31 |
GLM-Ievo_K4 |
600 |
3 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
orUL |
1,5 |
|
|
-K2:23 / -X6:36 |
GLM-Ievo_K4 |
300 |
3 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
orUL |
1,5 |
|
|
-X15:38 / LCI_KL4:2 |
GLM-Ievo_K4 |
500 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
orUL |
1,5 |
|
|
-X15:41 / LCI_KL4:3 |
GLM-Ievo_K4 |
500 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
orUL |
1,5 |
|
|
-X15:39 / LCI_KL4:4 |
GLM-Ievo_K4 |
500 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
orUL |
1,5 |
|
|
-X15:42 / LCI_KL4:5 |
GLM-Ievo_K4 |
500 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
orUL |
1,5 |
|
|
LCI_KL5:1 / IN1_KL4:1 |
GLM-Ievo_K4- |
500 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
orUL |
1,5 |
|
|
-X11:7 / LCI_KL2:4 |
GLM-Levo+ |
200 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
orUL |
1,5 |
|
|
-X11:8 / LCI_KL2:3 |
GLM-Levo+ |
200 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
1,5 |
|
|
-X4:7b / -X17:L1 |
GLM-Levo-X17 |
830 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
1,5 |
|
|
-X5:25 / -X17:N |
GLM-Levo-X17 |
250 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
gngeUL |
2,5 |
|
|
#ÜBERLAUF! |
GLM-Ievo_K4 |
250 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
gngeUL |
2,5 |
|
|
#ÜBERLAUF! |
GLM-Ievo_K4 |
400 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
gngeUL |
2,5 |
|
|
#NAME? |
GLM-Ievo_K4 |
380 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
gngeUL |
2,5 |
|
|
#NAME? |
GLM-Ievo_K4 |
480 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
gngeUL |
2,5 |
|
|
#NAME? |
GLM-Ievo_K4 |
280 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
2,5 |
|
|
#ÜBERLAUF! |
GLM-Ievo_K4 |
200 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
2,5 |
|
|
#ÜBERLAUF! |
GLM-Ievo_K4 |
200 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
2,5 |
|
|
#ÜBERLAUF! |
GLM-Ievo_K4 |
200 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
2,5 |
|
|
#NAME? |
GLM-Ievo_K4 |
200 |
2 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
2,5 |
|
|
-V1:L1' / -Q1:1 |
GLM-Ievo_K4 |
200 |
3 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
2,5 |
|
|
-V1:L2' / -Q1:3 |
GLM-Ievo_K4 |
200 |
3 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
2,5 |
|
|
-V1:L3' / -Q1:5 |
GLM-Ievo_K4 |
200 |
3 |
3 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
2,5 |
|
|
-V1:N' / -X2:8 |
GLM-Ievo_K4 |
450 |
3 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
swUL |
2,5 |
|
|
-X2:9 / -X3:15 |
GLM-Ievo_K4 |
220 |
2 |
2 |
1 |
0 |
|
|
|
|
|
|
0 |
|
|