Opening a PDF from Excel
 

I am trying to open a PDF from Excel VBA. I do not want to specify the
full path to "AcroRd32.exe" as it may be installed in different
locations on different PC's. I found the following code from Tom Ogilvy
but when I run it I get a file not found error. I know the file exists.
I can browse to it and double click it to open it. I want the
"Test.pdf" file to open with what ever program is associated with a
..PDF in windows.
I do not want to specify the program to use to open the file.

Sub OpenPDF()
Shell "Start.exe ""C:\temp\Test.pdf"""
End Sub
--
Regards,
Tom Ogilvy

I am running windows XP

Thanks
Scott Riddle

Opening a PDF from Excel
 

You can try this

ActiveWorkbook.FollowHyperlink "C:\Test.pdf"



--
Regards Ron de Bruin
http://www.rondebruin.nl


wrote in message ups.com...
I am trying to open a PDF from Excel VBA. I do not want to specify the
full path to "AcroRd32.exe" as it may be installed in different
locations on different PC's. I found the following code from Tom Ogilvy
but when I run it I get a file not found error. I know the file exists.
I can browse to it and double click it to open it. I want the
"Test.pdf" file to open with what ever program is associated with a
.PDF in windows.
I do not want to specify the program to use to open the file.

Sub OpenPDF()
Shell "Start.exe ""C:\temp\Test.pdf"""
End Sub
--
Regards,
Tom Ogilvy

I am running windows XP

Thanks
Scott Riddle

Opening a PDF from Excel
 

That works. Thanks.
The only annoyance is the warning about hyperlinks being harmful but
other than that success.


Scott

Opening a PDF from Excel
 

Another way:

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub LaunchPDF()
ShellExecute 0, "Open", "c:\File.pdf", "", "", 1
End Sub


--
Jim
wrote in message
ups.com...
| That works. Thanks.
| The only annoyance is the warning about hyperlinks being harmful but
| other than that success.
|
|
| Scott
|

Opening a PDF from Excel
 

Hi Jim

Can you look at
Printing -- Page Number Continuity

Thanks


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jim Rech" wrote in message ...
Another way:

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub LaunchPDF()
ShellExecute 0, "Open", "c:\File.pdf", "", "", 1
End Sub


--
Jim
wrote in message
ups.com...
| That works. Thanks.
| The only annoyance is the warning about hyperlinks being harmful but
| other than that success.
|
|
| Scott
|

Opening a PDF from Excel
 

Sure

--
Jim
"Ron de Bruin" wrote in message
...
| Hi Jim
|
| Can you look at
| Printing -- Page Number Continuity
|
| Thanks
|
|
| --
| Regards Ron de Bruin
| http://www.rondebruin.nl
|
|
| "Jim Rech" wrote in message
...
| Another way:
|
| Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
| (ByVal hwnd As Long, ByVal lpOperation As String, _
| ByVal lpFile As String, ByVal lpParameters As String, _
| ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
|
| Sub LaunchPDF()
| ShellExecute 0, "Open", "c:\File.pdf", "", "", 1
| End Sub
|
|
| --
| Jim
| wrote in message
| ups.com...
| | That works. Thanks.
| | The only annoyance is the warning about hyperlinks being harmful but
| | other than that success.
| |
| |
| | Scott
| |
|
|
|
|