Folgende Zeilen zeigen den Programmcode. Beim öffnen der txt-Dateien sollte auch die Importierung der der einzelenen Spalten funktionieren.
(siehe letzte Zeilen)
für Tipps wäre ich sehr dankbar. inwiefern kann man mein programm mit dem folgenden code verknüpfen? so dass es funktioniert.
hier der code:
Dim DatName As Variant
DatName = Workbooks.Application.GetOpenFilename
If TypeName(DatName) = "Boolean" Then Exit Sub
Sheets.Add Type:=DatName
mein Prigramm:
Dim Check, Counter
Dim i, dIndex As Integer
'
' Öffnen der Datei***********************************************************
Dim sDatei As String
sDatei = "C:\btr\Projekte\bcc\Auswertung\14490236-BTR-2-2.txt"
dIndex = 1
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt", 1, , , True)
sDatei = TypeName(fileToOpen)
If sDatei = "Boolean" Then
If sDatei = False Then
Exit Sub
End If
End If
If TypeName(fileToOpen) <> "Variant()" Then
Exit Sub
End If
Do While dIndex <= UBound(fileToOpen)
sDatei = fileToOpen(dIndex)
Workbooks.OpenText Filename:= _
sDatei, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 4), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))
mfg dan