Gruppe
Extern
Problem
Wie kann ich mehrere Textdateien, die die Namen "test1.txt", "test2.txt" usw. tragen, miteinander verbinden?
StandardModule: basMain
Sub Anlegen()
Dim iFile As Integer
Dim sFileA As String, sFileB As String
sFileA = Application.Path & "\texttestA.txt"
sFileB = Application.Path & "\texttestB.txt"
iFile = FreeFile
Open sFileA For Output As iFile
Print #iFile, "Dateiname: " & sFileA
Close iFile
Open sFileB For Output As iFile
Print #iFile, "Dateiname: " & sFileB
Close iFile
MsgBox "Dateien wurden angelegt!"
End Sub
Sub Verbinden()
Dim iFile
Dim sFileA As String, sFileB As String, sTxt As String
iFile = FreeFile
sFileA = Application.Path & "\texttestA.txt"
sFileB = Application.Path & "\texttestB.txt"
Open sFileA For Append As iFile
Open sFileB For Input As iFile + 1
Do Until EOF(iFile + 1)
Line Input #iFile + 1, sTxt
Print #iFile, sTxt
Loop
Close
Workbooks.OpenText _
Filename:=sFileA, _
DataType:=xlDelimited, _
tab:=False, _
semicolon:=False, _
comma:=False, _
Space:=False, _
other:=False
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
Kill sFileA
Kill sFileB
End Sub