Open Searched File

[Pedro]

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

 

[pfsardella]

In VBE help, see the Open method of the Workbook class.

HTH
Paul

 

[Pedro]

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.
--------------------------------------------------------- -----------------------------------------------------

 

[Tom Ogilvy]

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

Can you please be a little more specific
I am new on VBA
Thanks
Pedro

 

[Pedro]

Hi Tom

What should I add to that if the searched file as links
and I want to update them automatically whenever I open
the file.

Thanks
Pedro

-----Original Message-----
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

 

[Tom Ogilvy]

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), UpdateLinks:=3)
' workbook is now open
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub