Macro to open a file

[jackrobyn1]

I have a simple macro in a workbook named "daily info" that activates when i
click a button, the macro opens a workbook called "Phonebook" both of these
workbooks are contained in the same folder called "my reports". What i need
is a macro that will look inside the folder called "my reports" even if i
move this folder to another place on my computer. In effect only looking
inside the immediate folder. I hope this makes sense.
Thanks for any help

 

[Sheeloo]

Use thisworkbook.Path to get the path of the workbook containing the macro
and use it to open the desired file.

 

[jackrobyn1]

As I recorded the macro with the macro recorder im not sure what to do with
the information you have given me, can you explain or give an example
Thanks

 

[Dave Peterson]

Are you looking in that folder for the file named PhoneBook.xls?

Dim PBWkbk as workbook
Dim PBName as string

PBName = "phonebook.xls"

set pbwkbk = nothing
on error resume next
set pbwkbk = workbooks.open(filename:=thisworkbook.path & "\" & pbname
on error goto 0

if pbwkbk is nothing then
msgbox pbname & " wasn't found in " & thisworkbook.path
else
msgbox "It opened!
end if

 

[jackrobyn1]

Great thanks

Are you looking in that folder for the file named PhoneBook.xls?

Dim PBWkbk as workbook
Dim PBName as string

PBName = "phonebook.xls"

set pbwkbk = nothing
on error resume next
set pbwkbk = workbooks.open(filename:=thisworkbook.path & "\" & pbname
on error goto 0

if pbwkbk is nothing then
msgbox pbname & " wasn't found in " & thisworkbook.path
else
msgbox "It opened!
end if