Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
add new sheets in a workbook with new sheets being a variable
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
add new sheets in a workbook with new sheets being a variable
You could use something like (placed after each workbook has been opened) Sheets("Sheet1").Copy Befo=Thisworkbook.Sheets(1) Martin http://homepage.ntlworld.com/martin.rice1/ -- mrice ------------------------------------------------------------------------ mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931 View this thread: http://www.excelforum.com/showthread...hreadid=531956 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook? | Excel Worksheet Functions | |||
Reading Data from another workbook... depending on variable in a cell? | Excel Discussion (Misc queries) | |||
Finding specific sheets within a workbook | Excel Discussion (Misc queries) | |||
Numbering sheets in workbook | Excel Worksheet Functions | |||
Automatically copy selective sheets from one workbook to another | Excel Discussion (Misc queries) |