Hi All,

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

Thanks & Regards

Hassan

Yes it is.

"Hassan" az alábbiakat Ã*rta a következÅ‘ hÃ*rüzenetben: ...
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


"tomi12619" wrote:

Yes it is.

"Hassan" az alábbiakat Ã*rta a következÅ‘ hÃ*rüzenetben: ...
Hi All,

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

Thanks & Regards

Hassan