csv. Datei auslesen.
11.08.2016 05:11:59
Markus
ich habe das folgende Macro zum laden von csv. Datein in eine Excel-Tab verwendet:
Sub load()
Dim wks As Worksheet
Dim vFile As Variant
Application.ScreenUpdating = False
Set wks = ActiveSheet
vFile = Application.GetOpenFilename("Textdateien (*.csv), *.csv")
If vFile = False Then Exit Sub
'ActiveSheet.Cells.Delete
Range("A21:F9999").Select
Selection.ClearContents
Workbooks.OpenText Filename:=vFile, Tab:=False, semicolon:=True, comma:=False, Space:=False, _
_
other:=False
ActiveSheet.UsedRange.Copy wks.Range("A21")
ActiveWorkbook.Close savechanges:=False
Range("A15").Select
Application.ScreenUpdating = True
End Sub
Das Beispiel habe ich von dieser Seite. Beim Einfuegen wird die csv Datei geladen allerdings wird nicht wie gewuenscht das Semikolon als Trennung verwendet.sondern das Komma. Kann es an der Windowsversion liegen? Ich verwende eine englische Windows+ Excel Version?
2. Frage: Von meiner Testdatei benoetige ich eigentlich die Daten erst ab der 6. Zeile, wie kann ich das Einlesen erst ab der 6oder zum Beispiel 5. usw. beginnen lassen.
Vielen Dank.