Macro to open a file

  • Thread starter Thread starter jackrobyn1
  • Start date Start date
J

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
 
Use thisworkbook.Path to get the path of the workbook containing the macro
and use it to open the desired file.
 
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
 
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
 
Great thanks

Dave Peterson said:
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
Click to expand...
 
Back
Top