Excelgoodies
+44 (0)20 3769 3689
Excelgoodies logo +44 (0)20 3769 3689
+44 (0)20 3769 3689  

 Business Professionals

 Techno-Business Professionals

 Technology Professionals

 Business Professionals

 Techno-Business Professionals

 Technology Professionals

Home

|

About Us

|

Contact Us

Programs & Courses

New

Home | About Us | Contact Us

+44 (0)20 3769 3689

support@excelgoodies.uk

ExcelGoodies Worldwide United States | Canada | Singapore

LEARN THIS HANDS ON

Excel VBA Programming

. Live Online FILLING FAST
View all upcoming batches

 

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