I can run a pull for files I've names in a folder using the following Macros:
' ELC
' Open the ELC Audit Workbook and Copy into buffer
Workbooks.Open Filename:=ActiveWorkbook.Path & "\2011 - RCM - ELC Tests Plant.xls"
Sheets("Testing Summary").Select
Cells.Select
Selection.Copy
' Paste Testing Summary updates into Master
Windows("2011 Obslog Consolidator.xls").Activate
Sheets("ELC Summary").Select
Cells.Select
ActiveSheet.Paste
' Remove formulas from all rows
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
' Go back and close the Closing Workbook
Windows("2011 - RCM - ELC Tests Plant.xls").Activate
Application.CutCopyMode = False
ActiveWorkbook.Close SaveChanges:=False
' Go back to Master Sheet Summary Tab
Windows("2011 Obslog Consolidator.xls").Activate
Sheets("Observation Log").Select
Range("A1").Select
But what I would like to do is pull all files in a given folder without having to specify the file name. (i.e. the Macros will pull results from all files in a folder, not discriminating by file name.)
I apprecaite any help and suggestions anyone has. Thanks.
-Tom
' ELC
' Open the ELC Audit Workbook and Copy into buffer
Workbooks.Open Filename:=ActiveWorkbook.Path & "\2011 - RCM - ELC Tests Plant.xls"
Sheets("Testing Summary").Select
Cells.Select
Selection.Copy
' Paste Testing Summary updates into Master
Windows("2011 Obslog Consolidator.xls").Activate
Sheets("ELC Summary").Select
Cells.Select
ActiveSheet.Paste
' Remove formulas from all rows
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
' Go back and close the Closing Workbook
Windows("2011 - RCM - ELC Tests Plant.xls").Activate
Application.CutCopyMode = False
ActiveWorkbook.Close SaveChanges:=False
' Go back to Master Sheet Summary Tab
Windows("2011 Obslog Consolidator.xls").Activate
Sheets("Observation Log").Select
Range("A1").Select
But what I would like to do is pull all files in a given folder without having to specify the file name. (i.e. the Macros will pull results from all files in a folder, not discriminating by file name.)
I apprecaite any help and suggestions anyone has. Thanks.
-Tom