Merging text files into one file...

[shelim481]

Can someone help im trying to merge text files into one file...
using VBA, basically all is want is a all the text files in the location of the excel file to be merged, into one file and then all other txt files to be deleted once merged..

I have tried this but it did not work...

strPath = Application.ActiveWorkbook.Path & ""
[/COLOR][COLOR=#333333]Shell "cmd.exe copy /c """ & strPath & "*.txt"" """ & strPath & "Consolidated.txt""", 0[/COLOR]

 

[alansidman]

Look here for multiple tutorials on how to do this using Power Query

https://www.google.com/search?q=app...rome..69i57.9373j0j7&sourceid=chrome&ie=UTF-8

 

[shelim481]

i would want it done trough VBA, so user does not need to input anything...

 

[shelim481]

 Dim MyPath As String
    MyPath = Application.ActiveWorkbook.Path & "\"

    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"    DOScommand = "COPY " & MyPath & "*.txt " & MyPath & "ALL.txt"
    Shell Environ("comspec") & " /c " & DOScommand, vbHide

aaah got this working but only for desktop...it doesn't work anywhere else...can some one help...

 

[alansidman]

If you post a your workbooks to a third party site, I will give you my solution. The beauty of PQ is that once the data has been entered and the query built, any additional data added to the files will automatically update your output. No additional work is required beyond clicking on the refresh button. PQ was developed by MS to do exactly what you are asking for with excel files.