zwei Textdateien in eine Excel-Datei importieren
03.04.2009 09:18:19
erick
ich importiere mit beigefügtem Makro eine Datei (C:\Drucke\SUB\bis2000.dfu)
Die Zeilenanzahl ist variabel.
Jetzt möchte/muss ich in die gleiche Datei Daten aus einer weiteren Datei ((C:\Drucke\SUB\ab2000.dfu) gleicher Aufbau) importieren.
Ich möchte die Daten der 2ten Datei natlos anfügen.
Wie ist das möglich?
Danke
Erick
Sub Import()
' Import Makro
' Makro am 16.02.08 von Frederick Polomski aufgezeichnet
Sheets("Basis").Select
Range("A5").Select
Range("A4").Select
Workbooks.OpenText Filename:="C:\Drucke\SUB\bis2000.dfu", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(3 _
, 1), Array(12, 1), Array(15, 1), Array(24, 1), Array(45, 1), Array(49, 1), Array(56, 1) _
, _
Array(64, 1), Array(72, 1), Array(80, 1), Array(86, 1), Array(93, 1), Array(114, 4), _
Array(123, 1), Array(132, 1), Array(153, 1))
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.ActivateNext
ActiveWindow.Close
Range("C3").Select
Selection.End(xlToRight).Select
Range("R4:AF4").Select
End Sub