Thema Datum  Von Nutzer Rating
Antwort
Rot Opentext
10.12.2022 07:56:51 Marc.L
NotSolved
10.12.2022 10:50:08 Flotter Feger
Solved
10.12.2022 11:16:36 Marc.L
NotSolved

Ansicht des Beitrags:
Von:
Marc.L
Datum:
10.12.2022 07:56:51
Views:
71
Rating: Antwort:
  Ja
Thema:
Opentext
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  

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Opentext
10.12.2022 07:56:51 Marc.L
NotSolved
10.12.2022 10:50:08 Flotter Feger
Solved
10.12.2022 11:16:36 Marc.L
NotSolved