Ja ich benötige noch mehr Code xD
Es geht darum dass ich auf einem Koordinatenmessgerät 10 Messungen mit jeweils mehreren Messmerkmalen durchführe. Ich bekomme diese Messwerte gesammelt in einer .txt (merge__chr.txt). Diese sind mit Tab getrennt und lassen sich gut in eine Excel einlesen, was ich mit dem oben geposteten code mache
Sub merge_öffnen()
'
' Sammeldatei merge__chr.txt öffnen
'
Workbooks.OpenText Filename:= _
"S:\xx\xx\xx\merge__chr.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array( _
41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1)), _
DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:= _
True
End Sub
Was ich jetzt noch brauche ist der Code um wie beschrieben die daten nicht in eine neue Tabelle oder eine per Dateinamen festgelegte zu importieren, sondern in ein geöffnetes Formular. Ich habe um die 100 verschiedenen Formulare, deshalb sollte mir das Makro die Werte in das aktuell geöffnete schreiben.
Hoffe das war jetzt klar.
Mfg
|