Macro to choose folder and cycle through all files

**Mr.Pinches** · 06-22-2011, 01:11 PM

Thank you I'll go see if this works for me!!!

Also to explain the 'paste' sheet:

I already have a workbook that has a bunch of macros activated anytime the paste sheet is changed. So really that moves all the data into other tabs.

**snb** · 06-22-2011, 03:38 PM

Sub Runfolder()
  with Application
    .ScreenUpdating = False
    .EnableEvents = False

    c00 = .GetOpenFilename("*.xls, *.xls")
 
    for each fl in CreateObject("Scripting.FileSystemObject").getfolder(Replace(c00, Dir(c00), "")).files
      if instr(right(fl.name,4),"xls")>0 then
        with getobject(fl)
          .sheets("summary").usedrange.copy  Workbooks(("Stats2011.xlsm").Sheets("Paste").cells(1)      
          .close false
        End With
      end if
    next

    .EnableEvents = true
  end with
End Sub

Macro to choose folder and cycle through all files

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Re: Macro to choose folder and cycle through all files

Re: Macro to choose folder and cycle through all files

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions