Thanks Andy,
It is working fine with MS office 2007. I use the following code. Thanks for
the support.
Sub Open_All_Files()
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String
sPath = "D:\My Documents\Ajith\VBA\MVL\August\" 'location of files
ChDir sPath
sFil = Dir("*.xls") 'change or add formats
Do While sFil <> "" 'will start LOOP until all files in folder sPath have
been looped through Set oWbk = Workbooks.Open(sPath & "\" & sFil) 'opens the
file
' do something
oWbk.Close True 'close the workbook, saving changes
sFil = Dir
Loop ' End of LOOP
End Sub
On Sun, Oct 25, 2009 at 11:08 AM, Aindril De <aind...@gmail.com> wrote:
> Dear Ajith,
>
> You are getting this problem because Application.FileSearch is not
> supported beyond 2003.
> There have been several approaches suggested for an alternate way.
> The following links should help you :
>
>
> http://social.msdn.microsoft.com/forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f7994369d6/
>
> http://excel2007tips.blogspot.com/2007/05/no-applicationfilesearch-in-2007.html
>
> http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_24644138.html
>
>
> Please let us know if you need any further help.
>
> Regards,
> Andy
>
> On Sun, Oct 25, 2009 at 9:27 AM, Ajith Kumar P K <nta...@gmail.com> wrote:
>
>> Hi,
>>
>> I am using the following codes to open files from a folder. This code is
>> working well with Ms office 2003 but not working in Office 2007. What could
>> be the problem?
>>
>> Private Sub Macro1()
>>
>> Dim i1 As Integer, OWB As Workbook
>> With Application.FileSearch
>> .NewSearch
>> 'Data path name
>> .LookIn = "D:\My Documents\Ajith\VBA\MVL\August\"
>> .Filename = "*.xls"
>> If .Execute(SortBy:=msoSortByLastModified,
>> SortOrder:=msoSortOrderDescending) > 0 Then
>>
>> For i1 = 1 To .FoundFiles.Count
>> Set OWB = Workbooks.Open(.FoundFiles(i1), UpdateLinks:=0)
>> 'OWB.Save
>> macro2
>> Application.DisplayAlerts = False
>> OWB.Close
>> Application.DisplayAlerts = True
>> Next i1
>>
>> End If
>>
>> End With
>>
>> End Sub
>>
>>
>> --
>> Thanks & Regards
>>
>> Ajith Kumar P K
>>
>>
>>
>
> >
>
--
Thanks & Regards
Ajith Kumar P K
South Peringhattu House,
Pallisery Kavala Road,
Palarivattom P O
Cochin-682025
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
