Import aus CSV-Datei [Excel]

Submitted by Erik Wegner on

Beschreibung

Das Makro öffnet eine CSV-Datei, dabei wird die Formatierung der Spalten (Text, Zahl, Datum, etc.) mit übergeben. Aus der geöffneten Datei wird ein Bereich kopiert und in der Datei ("ziel.xls") eingefügt, aus der das Makro aufgerufen wurde.

Quellcode

Sub Import_CSV()
	'Definition der Spaltenformate
	fi = Array( _
		Array(1, xlGeneralFormat), _
		Array(2, xlGeneralFormat), _
		Array(3, xlDMYFormat), _
		Array(4, xlDMYFormat), _
		Array(5, xlGeneralFormat), _
		Array(6, xlGeneralFormat), _
		Array(7, xlGeneralFormat), _
		Array(8, xlGeneralFormat))
	
	Workbooks.OpenText 
	Filename:="c:\austausch.csv", Origin:=xlWindows, _
		DataType:=xlDelimited, _
		TextQualifier:=xlTextQualifierNone, _
		ConsecutiveDelimiter:=False, _
		Tab:=True, _
		FieldInfo:=fi, _
		Semicolon:=False, _
		Comma:=False, _
		Space:=False, _
		Other:=True, 
		OtherChar:=";"
	
	Range("E3").Select
	ActiveCell.Value = DateValue(ActiveCell.Value)
	
	Range("A1:H20").Select
	Selection.Copy
	Windows("ziel.xls").Activate
	Sheets("Import").Activate
	Range("A1").Select
	ActiveSheet.Paste
	Application.CutCopyMode = False
	
	'Noch ein paar Schönheitskorrekturen
	Selection.Replace What:="eur", Replacement:="", LookAt:=xlPart, _
	SearchOrder:=xlByRows, MatchCase:=False
	Workbooks("austausch.csv").Close SaveChanges:=False
End Sub
Categories