Datenimport, Tab und Leerzeichen
Stu
ich habe folgendes Problem:
Ich importiere Klimadaten mit einem Makro nach Excel. Die Daten sind per Tabstop getrennt, und werden richtig eingelesen und in ihre Spalten geschrieben. Probleme bereit mir der Header in dem die Standortdaten mit mehreren Leerzeichen getrennt werden. Diese unterschiedlich Trennung (einmal Tapstop einmal Leerzeichen) versuche ich zu beherschen.
Ich möchte also erst die 4 Zeilen Header per Leerzeichentrennung einlesen und dann den Rest wie im Code umgesetzt per Tabstopp einlesen. Ich komme auf keinen brauchbaren Ansatz...
Tausend Dank für jeden Tip
Lg
Stu
Hier erstmal mein Code um die Tabstopp getrennten Daten einzulesen:
Sub import()
Dim strdecsep As String
Dim strtsdsep As String
Dim blnsyssep As Boolean
Dim strimportdatei As String
strimportdatei = Application.GetOpenFilename("klimadaten(*.dat),*.dat")
With Application
strdecsep = .DecimalSeparator
strtsdsep = .ThousandsSeparator
blnsyssep = .UseSystemSeparators
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = False
End With
With ActiveSheet.QueryTables.Add(Connection:="text;" & strimportdatei, Destination:=Range("a1")) _
On Error Resume Next
.RefreshStyle = xlOverwriteCells
.TextFileTabDelimiter = True
.Refresh BackgroundQuery:=False
End With
With Application
.DecimalSeparator = strdecsep
.ThousandsSeparator = strtsdsep
.UseSystemSeparators = blnsyssep
End With
End Sub