• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 544
  • Last Modified:

Excel macro to get all txt files in UNC to a sheet.


Excel macro to get all txt files in UNC to a sheet.
I have txt files like

Office 2007.txt
Project 2003.txt
When macro run has to get each txt file name to a column and the data within it below it.
Say i have 5000 txt file then it has to go to 5000 colums.


  • 4
  • 2
  • 2
  • +2
1 Solution
Ho Sharath,

Is the format of each text file the same as the others or are they all different?

bsharathAuthor Commented:
Hi Patrick
the format is same one line data its like a word per line

something as above
The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

NorieVBA ExpertCommented:

5000 columns?

Don't think that will fit on a worksheet in a pre-Excel 2007 workbook.

Excel 2007 and onwards it'll take up almost a third of the columns.

Anyway, I think we need more information.

You say one line of data is so-ui-edr09?

Do you want to separate that using the - as a delimiter? ie 'so' in 1st column, 'ui' in 2nd and edr09 in 3rd.

If that is the case why not start with the macro recorder?

When you goto File>Open... and choose a text file Excel usually fires up the Text Import Wizard.

You can use that to set the delimiter and also specify the destination.

The code should be pretty straightforward and I don't think using UNC paths will be a problem.

One thing though is how will you know that files to import?

Do you have a list? Are they all in the same directory?
bsharathAuthor Commented:
I have all txt files in a folder.
I have excel 2007
When run get the file name in row 1 and then the data within it in the same colum

Say file name is "Office 2007.txt"
then the header would be "Office 2007"
all data in the txt file below the "office 2007"
the same has to be the case with all 5000 files A,B,C,D, and so on
NorieVBA ExpertCommented:
Ah, so it's 5000 files not columns then?

Did you try what I suggested? ie the macro recorder.

If I was doing anything like this that's where I would start.
bsharathAuthor Commented:
5000 files into 5000 colums is what i need
I will need each file name and data into each colum so that makes 5000 colums
Patrick MatthewsCommented:
Assuming all the text files are in the same directory...

Sub GetTheFiles()
    Dim fso As Object
    Dim fld As Object
    Dim fil As Object
    Dim ts As Object
    Dim FileCount As Long
    Dim WholeThing As String
    Dim arr As Variant
    Const FldPath As String = "\\server\blah\blah blah"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fld = fso.GetFolder(FldPath)
    For Each fil In fld.Files
        If UCase(fil.Name) Like "*.TXT" Then
            Set ts = fso.OpenTextFile(fil.Path)
            FileCount = FileCount + 1
            Cells(1, FileCount) = fil.Name
            WholeThing = ts.ReadAll
            If WholeThing <> "" Then
                arr = Split(WholeThing, vbCrLf)
                Cells(2, FileCount).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
            End If
        End If
    Set ts = Nothing
    Set fil = Nothing
    Set fld = Nothing
    Set fso = Nothing
    MsgBox "Done"
End Sub

Open in new window

bsharathAuthor Commented:
Thanks a lot.... Worked perfect
Thanks Patrick for taking over this question - Patrick
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

  • 4
  • 2
  • 2
  • +2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now