Datenimport DIF mit Dateiauswahl
22.06.2005 17:47:49
BK
ich versuche zur Zeit ein Makro zu schreiben, dass den Anwender mit dem Datei-öffnen - Dialog eine DIF-Datei auswählen lässt. Deren Werte der Spalten D und E ausliest, von 1 bis zum jeweiligen Ende der Messwerte(Cells(Rows.Count, 4).End(xlUp).Row). Diese Werte sollen dann /1000000 dividiert und in der aktuellen Mappe in den Spalten A + B gespeichert werden.
Da ich etwas in Zeitnot bin, habe ich von einem Kollegen eine Datei bekommen, mit der man TXT-Files einlesen kann.
Nun ist mir nicht so ganz klar, wie ich diese umändern muss, damit der Datenimport nach meinen Vorstellungen funktioniert. Oder ist dieser Ansatz gänzlich falsch?
Vielen Dank für eure Hilfe!
Sub Read_Extern_File()
Dim Text1 As Long
Dim TxtLines As Long, i As Long
Dim ReadFile As String
Dim TextArr As Variant
ReadFile = Application.GetOpenFilename("Textdateien (*.TXT),")
Close #1
Open ReadFile For Input As #1
TxtLines = 0
Do While Not EOF(1)
Input #1, Text1
TxtLines = TxtLines + 1
Loop
Close #1
Open ReadFile For Input As #1
ReDim TextArr(TxtLines)
For i = 1 To TxtLines
Input #1, TextArr(i)
Next i
Close #1
For i = 1 To TxtLines
Cells(i) = TextArr(i)
Next i
End Sub