In my workbook I have it set up that it will look in a folder and open
all workbooks within that folder (Thanks to Dave!) no matter how many
workbooks are in the folder, (the number will vary from month to
month).
What I now would like to do is this: Open the workbook and copy the
sheet (only one sheet per workbook) and paste into an existing sheet or
create a new sheet in the master workbook. How would I go about this?
The openining code is this:
Sub getdata()
Dim SpecialProjectLite As Workbook
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.SearchSubFolders = False
.Filename = "s*.htm"
.MatchTextExactly = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(i)
Set wkbk = ActiveWorkbook