TXT Import
14.10.2016 08:46:58
Dieter
Meine Aufgabenstellung ist aus bestimmten Text Dateien die Daten ins Excel zu importieren um Auswertungen anzufertigen.
Jetzt funktioniert es mit angehängtem VBA Code bereits soweit,
daß ich die Daten der gewünschten Files in der richtigen Formatierung ins Excel bekomme.
Jedoch wird jedes File in ein neues Arbeitsblatt kopiert.
Kann mir bitte jemand dabei helfen, daß alle zu imporitierenden Daten untereinander ins aktuelle Arbeitsblatt kopiert werden.
Vielen Dank im Voraus
Option Explicit
Public Sub Main()
Dim intFiles As Integer
Dim varFiles As Variant
On Error GoTo Fin
ChDrive "C:"
ChDir "C:\"
varFiles = Application.GetOpenFilename( _
FileFilter:="Alarme, *Alarme*.txt,Auslastung, *Auslastung*.txt,Alle Dateien, *.*", _
MultiSelect:=True)
If Not VarType(varFiles) = vbBoolean Then
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
For intFiles = 1 To UBound(varFiles)
Workbooks.Open varFiles(intFiles), UpdateLinks:=False
Next intFiles
Else
MsgBox "Abbruch!", vbInformation, "Dateiauswahl!"
End If
Fin:
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
If Err.Number 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub