Open Searched File
Sub GatherFiles()
Dim sName As String
Dim sPath As String
Dim sArr() As String
With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.SearchSubFolders = False
.FileName = "MyExcelFile.xls"
'' .FileType = msoFileTypeAllFiles
.FileType = msoFileTypeExcelWorkbooks
If .Execute() 0 Then
For i = 1 To 1 ' .FoundFiles.Count
set wkbk = Workbooks.Open(.Foundfiles(i))
' workbook is now open
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
--
Regards,
Tom Ogilvy
"Pedro" wrote in message
...
Can you please be a little more specific
I am new on VBA
Thanks
Pedro
-----Original Message-----
In VBE help, see the Open method of the Workbook class.
HTH
Paul
---------------------------------------------------------
-----------------------------------------------------
Be advised to back up your WorkBook before attempting to
make changes.
---------------------------------------------------------
-----------------------------------------------------
On Fri, 11 Jul 2003 01:28:21 -0700, "Pedro"
wrote:
Hi
What code shoul I write in order for it to search a pre-
defined filename and open that searched file?
Someone already gave a tip to go to vba help. The vba
help for filesearch only explains how to search the
file.
Now, how do I open the searched file?
Regards
Pedro
.
|