Here's some code to open all files in a folder. just call your macro after
opening
im aryFiles
Dim oFSO
Sub LoopFolders()
Dim i As Integer
Set oFSO = CreateObject("Scripting.FileSystemObject")
selectFiles "c:\MyTest"
Set oFSO = Nothing
End Sub
'---------------------------------------------------------------------------
Sub selectFiles(sPath)
'---------------------------------------------------------------------------
Dim Folder As Object
Dim Files As Object
Dim file As Object
Dim fldr
Set Folder = oFSO.GetFolder(sPath)
For Each fldr In Folder.Subfolders
selectFiles fldr.Path
Next fldr
For Each file In Folder.Files
If file.Type = "Microsoft Excel Worksheet" Then
Workbooks.Open Filename:=file.Path
' your macro here
Activeworkbook.Save
Activeworkbook.Close
End If
Next file
End Sub
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
"ditzafar" wrote in
message ...
I want to write a macro that will run on all the file in the same
folder.
how do I do it?
thanks:)
--
ditzafar
------------------------------------------------------------------------
ditzafar's Profile:
http://www.excelforum.com/member.php...o&userid=29475
View this thread: http://www.excelforum.com/showthread...hreadid=497905