Hi All,


I need a macro to open all word files in a directory, do a particular
function, and close the file.

I have to run this from an excel file. can anyone help?

-Dileep

Dim oFSO

Sub LoopFolders()

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
dim oWB as Workbook

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 Like "*Excel*Worksheet" Then
Set oWB = Workbooks.Open Filename:=file.Path
'do your stuff
oWB.save
oWB.Close
End If
Next file



--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Dileep Chandran" wrote in message
oups.com...
Hi All,


I need a macro to open all word files in a directory, do a particular
function, and close the file.

I have to run this from an excel file. can anyone help?

-Dileep

Hi Bob,

This is not working for me. I have to open all word files (.doc) in a
directory (C:\test), do a particular function, and close it and open
the next file.

Any idea how to do it? Is my question clear?

-Dileep

Hi Bob,

This is not working for me. I have to open all word files (.doc) in a
directory (C:\test), do a particular function, and close it and open
the next file.

Any idea how to do it? Is my question clear?

-Dileep

Replace

If file.Type Like "*Excel*Worksheet" Then

with

If file.Type Like "*Word*Document" Then


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Dileep Chandran" wrote in message
ups.com...
Hi Bob,

This is not working for me. I have to open all word files (.doc) in a
directory (C:\test), do a particular function, and close it and open
the next file.

Any idea how to do it? Is my question clear?

-Dileep

Bob,

Its showing a syntax error in

Set oWB = Workbooks.Open Filename:=file.Path

-Dileep

Why are you trying to open word documents in Excel?

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Dileep Chandran" wrote in message
ups.com...
Bob,

Its showing a syntax error in

Set oWB = Workbooks.Open Filename:=file.Path

-Dileep