Importe CSV-Daten automatisch formatieren
07.04.2015 00:24:26
Tom
ich habe es mit folgenem Makro bereits hinbekommen eine CSV-Datei automatisch zu importieren.
Sub Import_CSV()
' Import_CSV Makro
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Thomas\AppData\Roaming\MetaQuotes\Terminal\ _
9662C61C6715C26397817D3943CECEEC\MQL4\Files\His.csv" _
, Destination:=ActiveCell)
.Name = "His_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, _
_
_
1, 1, _
1, 1, 1, _
1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Wie kann ich nun die importierten Datensätze automatisch reihenmäßig formatieren?
1. Spalte zentrieren und Benutzerdefiniert TT.MM.JJJJ hh:mm
2.- 6 Spalte zentrieren
7. Spalte zentrieren und Benutzerdefiniert TT.MM.JJJJ hh:mm
8. Spalte automatisch formel einfügen =WENN(ISTLEER(Zelle);"";KALENDERWOCHE(Zelle;2)) und zentrieren -> zelle bezieht sich auf die zelle neben der eigentlichen Formel
9. Spalte zentrieren
10. Spalte automatisch Formel einfügen =WENN(ISTLEER(J14);"";J14-C14)
11. und 12. Spalte Punkte innerhalb der Werte durch Kommas ersetzen
... und so weiter
wäre super wenn mir eier helfen könnte =)
Gruß Thomas