Excelgoodies
+1 650 491 3131
Excelgoodies logo +1 650 491 3131
+1 650 491 3131  

 Business Professionals

 Techno-Business Professionals

 Technology Professionals

Home

|

About Us

|

Contact Us

Programs & Courses

New

Home | About Us | Contact Us

+1 650 491 3131

inquiry@excelgoodies.com

ExcelGoodies WorldwideUSA | UK | Australia | Singapore | Phillipinnes

 

Merge text files using VBA

The below code merges around 50 ascii files into one It uses File System Object and you need to add a reference of Microsoft Scripting Runtime

 

Sub Append_Text_Files()

Dim F1 As FileSystemObject
Dim F2 As FileSystemObject

Dim oTS As TextStream
Dim oTS1 As TextStream

Dim vTemp

Set F1 = New FileSystemObject
Set F2 = New FileSystemObject

For i1 = 1 To 50

Set oTS = F1.OpenTextFile(“c:\Sheet” ; i1 ; “.txt”, ForReading)
vTemp = oTS.ReadAll

Set oTS1 = F1.OpenTextFile(“c:\CombinedTemp.txt”,
ForAppending, True)
oTS1.Write (vTemp)

Next i1

End Sub

Explore comprehensive Excel VBA Macro Course here and, automate your routine Excel Reports, tasks and processes.

 

Happy Excelling
Team Excelgoodies

VBA & Python

New

Next Batches Now Live

Power BIPower BI
Power BISQL
Power BIPower Apps
Power BIPower Automate
Power BIMicrosoft Fabrics
Power BIAzure Data Engineering
Explore Dates & Reserve Your Spot → Reserve Your Spot →

Related Articles