VB Excel Copy all workbooks in one with separate sheets
Posted on 2010-09-23
This is mainly a copy/paste question, and want to use VB activeX controls ...
What I have: several workbooks named WeeklyReport_MMDDYYYY.xlsx of course a new one each week is generated.
What I want to do:
Have a main Workbook called LocalReport.xlsm
If possible to get a pop-up asking which file (WeeklyReport_xxxx) I want to use
Then copy all the data from the first sheet of the choosen "WeeklyReport_ " workbook and paste to my "LocalReport "workbook in a new created sheet called "MMDDYYYY"
In another words, I have workbooks:
WeeklyReport_01252010, WeeklyReport_02282010, WeeklyReport_03192010, ...
and i want only 1 workbook: "LocalReport" with sheets "01252010", "02282010", "03192010",...
Of course each sheet will contain data from their respective original workbook (1st sheet)
Later I will need to apply filter and only take colums a,c,f,g,h.
Would you please provide the code for that?
Thanks for your support.