aktuell werden Text Dateien über eine Auswahl(Alarme, Auslastung und alle Dateien) ins erste Tabellenblatt importiert.
Kann mir bitte jemand dabei helfen, wie die Änderung aussehen müßte,
dass für die verschiedenen Auswahlkriterien jeweils ein eigenes Tabellenblatt angelegt wird?
Vielen Dank
Dieter
Public Sub Main()
Dim intFiles As Integer
Dim varFiles As Variant
Dim r As Long, c As Long
Dim lngZeile As Long
On Error GoTo Fin
ChDrive "C:"
ChDir "C:\test"
r = 2
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)
Open varFiles(intFiles) For Input As #1
'Kopfzeile der Datei übergehen
For lngZeile = 1 To 6
Line Input #1, buffer
Next 'lngZeile
Do While Not EOF(1)
Line Input #1, buffer
SplitBuffer = Split(buffer, ";")
For c = LBound(SplitBuffer) To UBound(SplitBuffer)
ActiveSheet.Cells(r, c + 1) = SplitBuffer(c)
Next
r = r + 1
Loop
Close #1 ' Datei schließen
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