AW: Fileimport
14.11.2006 08:48:23
Metman
Super, danke Heiko, das hat geklappt.
Danach habe ich gesucht.
Hab nur was ergänzt :
strPfad = Application.GetOpenFilename("Dateien " & _
"(*.txt; *.csv;*.asc),*.txt; *.csv; *.asc")
Hätte da noch eine Frage : Nach dem Importieren benutz ich TextToColumn um aus den Zeilen Spalten zu machen, Trennzeichen is Space.
Sub Import_sortiert()
Application.ScreenUpdating = False
With Sheets("imported")
.Range("A1:A65536").TextToColumns Destination:=.Range("A1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False, _
OtherChar:="/", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1))
ActiveSheet.Columns("A:Z").AutoFit
ActiveSheet.Columns("A:Z").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End With
Application.ScreenUpdating = True
End Sub
Es funktioniert zwar wunderbar, aber er ändert eine Spalte mit wichtigen Werten sehr komisch ab.
Bsp.
0.9750
0.9990
1.0020
1.0450
Nachdem TextToColum :
0.9750
0.9990
10.020 (steht als zehntausend und 20 drin)
10.450
Die Werte sind Zeitangaben in Sekunden. Von einer Sekudne auf 10tausend? Bin bisschen ratlos im moment ;)
Schonmal danke und riesendank für den Importcode
gruß