jacksonwearn
New member
- Local time
- Today, 15:48
- Joined
- Jun 14, 2013
- Messages
- 9
I have a table in access that contains two fields that need to be linked to other files. I've been successful in linking to these files however I would like to be able to link to specific pages/cells.
One file is a pdf, and I only have adobe reader. I think the best way to handle this will be to create bookmarks. I'll have the final user follow the hyperlink then jump to the necessary bookmark once in adobe.
The other file is an excel spreadsheet. I've been trying to find a way to link to a specific cell in this spreadsheet, but have not been successful. Is this even possible? Or should I come up with another way for the user to get to the specific cell in the excel file?
EDIT: I found a solution. For anyone curious I'll post my vba code.
Dim pathArray() As String
Dim strPathToFile As String
strPathToFile = [Forms]![PART_NUM_INFO_TEST]![FMECA]
pathArray = Split(strPathToFile, "/")
Dim objXL As Object
On Error Resume Next
Set objXL = GetObject(, "Excel.Application")
Set objXL = GetObject(pathArray(0))
objXL.Application.Visible = True
objXL.Parent.Windows(1).Visible = True
objXL.Application.range(pathArray(1)).Select
Thanks,
Jackson
One file is a pdf, and I only have adobe reader. I think the best way to handle this will be to create bookmarks. I'll have the final user follow the hyperlink then jump to the necessary bookmark once in adobe.
The other file is an excel spreadsheet. I've been trying to find a way to link to a specific cell in this spreadsheet, but have not been successful. Is this even possible? Or should I come up with another way for the user to get to the specific cell in the excel file?
EDIT: I found a solution. For anyone curious I'll post my vba code.
Dim pathArray() As String
Dim strPathToFile As String
strPathToFile = [Forms]![PART_NUM_INFO_TEST]![FMECA]
pathArray = Split(strPathToFile, "/")
Dim objXL As Object
On Error Resume Next
Set objXL = GetObject(, "Excel.Application")
Set objXL = GetObject(pathArray(0))
objXL.Application.Visible = True
objXL.Parent.Windows(1).Visible = True
objXL.Application.range(pathArray(1)).Select
Thanks,
Jackson
Last edited: