I also had the code for merging the multiple file into one but it is very lengthy and quite messy therefore i search for code on the internet and i found this:
Code:
Sub AppendFiles1()
Dim Temp As String
Open "File2.CSV" For Append As DestNum
Open "File1.CSV" For Input As SourceNum
Do While Not EOF(SourceNum)
Line Input #SourceNum, Temp
Print #DestNum, Temp
Loop
CloseFiles:
Close #DestNum
Close #SourceNum
Exit Sub
ErrHandler:
MsgBox "Error # " & Err & ": " & Error(Err)
Resume CloseFiles
End Sub
This code will allow you to pick the multiple CSV files. Is there a way to do that with tech code you provided?
Bookmarks