For each File in Folder, open?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I like to specify a folder, then have the excel files in the folder open one
at a time for a macro to run on it. How can I do that?
 
maybe something like this:

Sub GetFileList()
Dim ThePath As String
Dim fname As String
Dim i As Long
ThePath = ThisWorkbook.Path
fname = Dir(ThePath & "\*.xls")
i = 1
Do While fname <> ""
On Error Resume Next
Workbooks.Open Filename:=fname
On Error GoTo 0
fname = Dir()
i = i + 1
Loop
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Refresh Macro to run each day? 2
Determine name of macro contained in each excel file in a folder 9
Import 4 Different Excel Files from One Folder 0
Macro to open file 2
Command Line to Open/Close an Excel Files , macro print it in a designated Folder 1
Opening a list of Excel files and run a macro in each 17
Run macro on all files in a specific folder 3
How to change a sheet name without opening the workbook 3

Back
Top