Extracting data from excel workbooks to single excel spreadsheet

[detailstx]

Hello,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I am a complete novice with writing macros and am hoping someone here can help me out.
<o></o>
I have a working folder (named “Tracking”) that contains a “New” folder, “Archived” folder and Master.xlsx workbook. Occasionally, randomly named workbooks will be dropped into the “new” folder. My goal is to get a macro that will extract data from sheet1 of the randomly named xlsx workbooks, and paste it into Master.xlsx workbook, allowing me to accumulate the data over time. Once the data is stored into the Master.xlsx workbook, rename the randomly named workbook (with “_archived” following name) and throw it in the “archived” folder.<o></o>


Master.xlsx is formatted (text and numbers) the same as Sheet1 (rows/columns) of the randomly name workbooks in the “new” folder. Problem is that the data varies in all of the randomly named workbooks (Sheet1), from A1 to dozens of columns and rows.<o></o>


Is this possible or am I dreaming? <o></o>


Appreciate any help.<o></o>

 

[jbeaucaire]

Here's a macro for collecting data from all files in a specific folder.

Unprotect them, if needed:

            Set wbData = Workbooks.Open(fPath & fName)  'Open file

        'This is the section to customize, replace with your own action code as needed
            With wbData.Sheets("Data")
                .Unprotect
                LR = .Range("A" & .Rows.Count).End(xlUp).Row  'Find last row
                If NR = 1 Then                                'copy the data AND titles
                    .Range("A1:A" & LR).EntireRow.Copy
                Else                                          'copy the data only
                    .Range("A2:A" & LR).EntireRow.Copy
                End If
            End With
            .Range("A" & NR).PasteSpecial xlPasteValues       'paste values into master
            
            wbData.Close False                                'close file

Also do the filenames for each file to be copied need to be listed in the code?

Heh, no, that would be awful. Remember what I said originally:

Here's a macro for collecting data from all files in a specific folder....

Spend some time just reading the code and the comments in the code so you can see what exactly it does at each point as you decipher how it does it.

 

[md7899]

Thanks will let you know how it goes

 

[md7899]

Thanks, will let you know how it goes