Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
modification to this code
I had some help with this code some months ago, and I could use a help
modifying it again. Option Explicit Sub GetReportsDataOnly() Dim i As Long Dim varr As Variant Dim wkbk As Workbook Dim sh As Object Dim mybook As Workbook Dim myExistingPath As String Dim myPathToRetrieve As String myExistingPath = CurDir myPathToRetrieve = "X:\2502521400" ChDrive myPathToRetrieve ChDir myPathToRetrieve varr = Application.GetOpenFilename(filefilter:="Excel Files, *.xls", _ MultiSelect:=True) If IsArray(varr) Then For i = LBound(varr) To UBound(varr) Set wkbk = Workbooks.Open(varr(i)) With wkbk.Worksheets("INZONE") On Error Resume Next Set mybook = Workbooks.Open(.FoundFiles(i)) mybook.Close SaveChanges:=False .UsedRange.Value = .UsedRange.Value .Copy after:=ThisWorkbook.Worksheets _ (ThisWorkbook.Worksheets.Count) End With wkbk.Close SaveChanges:=False Next End If 'reset it back ChDrive myExistingPath ChDir myExistingPath End Sub The code goes and grabs any worksheet called "INZONE" from the "X:\2502521400" folder , I still would like it to do this but I need it to start at a parent directory called "X:\" and work its way through all the folders at this level and pull anything called "INZONE". In the workbooks that it is going through I do have sheets called "INZONE 1, INZONE 2..." I would like for it to grabs those as well. Thanks for the help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code modification help | Excel Worksheet Functions | |||
Macro Modification Help | Excel Discussion (Misc queries) | |||
Modification Date | Excel Discussion (Misc queries) | |||
line code modification | Excel Discussion (Misc queries) | |||
last modification | Excel Discussion (Misc queries) |