Apply macro

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

Guest

Hi All,

Is it possible to apply macro on every file in specified folder?

Thanks & Regards

Hassan
 
Here is an example

Sub opendir()

Dim FileSize As Long
Mydir = "c:\temp"

RowCount = 1
First = True
Do

If First = True Then
Myfilename = Dir(Mydir & "\*.xls")
First = False
Else
Myfilename = Dir
End If

If Myfilename <> "" Then
Workbooks.Open (Mydir & "\" & Myfilename)

'enter you code here

Workbooks(Myfilename).Close

End If
Loop While Myfilename <> ""

End Sub
 

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

how to run macro on opening of file 3
Workbook_open Event 3
Formula 1
Output 0 to 100 7
Date type 2
Run Macro If Cell have "x" value 0
veriable to constant 2
Change Cell contents 4

Back
Top