G Guest Sep 22, 2007 #1 Hi All, Is it possible to apply macro on every file in specified folder? Thanks & Regards Hassan
G Guest Sep 22, 2007 #3 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
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
