AW: Makrorecorder
26.01.2007 18:12:39
Julia
Hallo Florian,
danke für den Tipp. Hätte ich natürlich auch selbst drauf kommen können.
Also, ich habe jetzt das importieren aufgezeichnet. Aber ich habe noch folgendes Problem: Ich habe insgesamt 4 Dateien, die ich in 1 und die selbe Excel-Tabelle importieren möchte. Die sollen am ende halt in verschiedenen Spalten stehen. Aber momentan öffnet er mir für jede Datei eine eigene Artbeitsmappe. Woran liegt das? Mein Makro sieht zur Zeit so aus:
Sub ImportLabView()
' ImportLabView Makro
' Makro am 26.01.2007 aufgezeichnet
ChDir "C:\Dokumente und Einstellungen\Julia\Desktop\Labview"
Workbooks.OpenText Filename:= _
"C:\Dokumente und Einstellungen\Julia\Desktop\Labview\1", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
ChDir "C:\Dokumente und Einstellungen\Julia\Desktop\Labview"
Workbooks.OpenText Filename:= _
"C:\Dokumente und Einstellungen\Julia\Desktop\Labview\2", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(2, 2), _
TrailingMinusNumbers:=True
ChDir "C:\Dokumente und Einstellungen\Julia\Desktop\Labview"
Workbooks.OpenText Filename:= _
"C:\Dokumente und Einstellungen\Julia\Desktop\Labview\3", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(3, 2), _
TrailingMinusNumbers:=True
ChDir "C:\Dokumente und Einstellungen\Julia\Desktop\Labview"
Workbooks.OpenText Filename:= _
"C:\Dokumente und Einstellungen\Julia\Desktop\Labview\4", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(4, 2), _
TrailingMinusNumbers:=True
End Sub
Liebe Grüße
Julia