Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Textdateien verbinden

Gruppe

Text

Problem

Wie kann ich mehrere Textdateien, die die Namen "test1.txt", "test2.txt" usw. tragen, miteinander verbinden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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