VBA Application.Filesearch workaround

Excel Help for Vba Application.filesearch Workaround in Analyzing Corporate Financial Data

Vba Application.filesearch Workaround

Rate this: (3/5 from 1 vote)

	I REALLY need a fix for the application.filesearch function that is currently in some old code which works in Excel 2003 and before but not in Excel 2007. I have heard suggestions on fixing this by using the Dir function but with my limited knowledge and no time I need expertise...PLEASE HELP!!!! VBA Code: Call GetBrowse 'goes to a sub that allows you to pick a file with multiple excel files...after running through it jumps back to the Application.Filesearch below and gets stuck due to it being removed from 2007 With Application.FileSearch .NewSearch .LookIn = strPath .Filename = "*.xls" If .Execute() > 0 Then Workbooks.Add WrWrkBk = ActiveWorkbook.Name x = Workbooks(WrWrkBk).Worksheets.Count sort = 8 For i = 1 To counter - 1 Application.ScreenUpdating = False strfile = .FoundFiles(i) Find_Last_Slash (strfile) strfile = Mid(strfile, 1, position) a = a + 1 strDiv = Workbooks(RdWrkBk1).Sheets(1).Cells(a, sort).Value strfile = strfile & strDiv & ".xls" Workbooks.Open strfile 'open workbook Find_Last_Slash (strfile) RdWrkBk = Trim(Mid(strfile, position + 1, 50))
	Posted by eeder1 on 30 Jan 2009

Replies - Displaying 1 to 1 of 1

Order Replies By: Most recent | Chronological | Highest Rated

	The DIR function Rate this: (3/5 from 1 vote) You can loop through files in a directory using the Dir function: VBA Code: Sub LoopThroughXLS()     Dim sFName As String     sFName = Dir(”*.xls”)     Do While Len(sFName) > 0         Debug.Print sFName         sFName = Dir     Loop End Sub
	Excel Business Forums Administrator
	Posted by Excel Helper on 02 Feb 2009

Displaying page 1 of 1