Excel XP & Win XP
I have used the following code (credit to Tom Ogilvy) to open a .pdf file.
It has worked just fine, now it doesn't. I now get an error that the file
cannot be found. The only difference that I am aware of is that I recently
upgraded to Adobe Reader 8.0 from Adobe Reader 7.0.
Question: Does anyone have an insight as to what may be happening? Thanks
for your time. Otto
Sub OpenPdfFile(WhichOne As String)
Dim Filename As String
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
Filename = "C:\LettersForms\Ops Manual\" & WhichOne & " Ops
Manual.pdf"
myShell.Run ("AcroRd32.exe " & Filename)
End Sub

I should have added that Acrobat Reader (8.0) does open with this code, but
that's all. Otto
"Otto Moehrbach" wrote in message
...
Excel XP & Win XP
I have used the following code (credit to Tom Ogilvy) to open a .pdf file.
It has worked just fine, now it doesn't. I now get an error that the file
cannot be found. The only difference that I am aware of is that I
recently upgraded to Adobe Reader 8.0 from Adobe Reader 7.0.
Question: Does anyone have an insight as to what may be happening?
Thanks for your time. Otto
Sub OpenPdfFile(WhichOne As String)
Dim Filename As String
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
Filename = "C:\LettersForms\Ops Manual\" & WhichOne & " Ops
Manual.pdf"
myShell.Run ("AcroRd32.exe " & Filename)
End Sub

myShell.Run ("AcroRd32.exe """ & Filename & """")

paths with spaces need quotes

Tim


"Otto Moehrbach" wrote in message
...
I should have added that Acrobat Reader (8.0) does open with this code, but
that's all. Otto
"Otto Moehrbach" wrote in message
...
Excel XP & Win XP
I have used the following code (credit to Tom Ogilvy) to open a .pdf
file. It has worked just fine, now it doesn't. I now get an error that
the file cannot be found. The only difference that I am aware of is that
I recently upgraded to Adobe Reader 8.0 from Adobe Reader 7.0.
Question: Does anyone have an insight as to what may be happening?
Thanks for your time. Otto
Sub OpenPdfFile(WhichOne As String)
Dim Filename As String
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
Filename = "C:\LettersForms\Ops Manual\" & WhichOne & " Ops
Manual.pdf"
myShell.Run ("AcroRd32.exe " & Filename)
End Sub

Tim
Thanks for your response. The code I included in my original post works
as is with Acrobat Reader 7.0. I and my OP both had 7.0 and it worked fine
with both of us. We both now have 8.0 and that code no longer works (cannot
find the file error) for either one of us. The OP reinstalled 7.0 and the
code works fine again for him. I am looking for help in modifying the code
as needed to work with 8.0. Thanks again. Otto
"Tim" <tim j williams at gmail dot com wrote in message
...

myShell.Run ("AcroRd32.exe """ & Filename & """")

paths with spaces need quotes

Tim


"Otto Moehrbach" wrote in message
...
I should have added that Acrobat Reader (8.0) does open with this code,
but that's all. Otto
"Otto Moehrbach" wrote in message
...
Excel XP & Win XP
I have used the following code (credit to Tom Ogilvy) to open a .pdf
file. It has worked just fine, now it doesn't. I now get an error that
the file cannot be found. The only difference that I am aware of is
that I recently upgraded to Adobe Reader 8.0 from Adobe Reader 7.0.
Question: Does anyone have an insight as to what may be happening?
Thanks for your time. Otto
Sub OpenPdfFile(WhichOne As String)
Dim Filename As String
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
Filename = "C:\LettersForms\Ops Manual\" & WhichOne & " Ops
Manual.pdf"
myShell.Run ("AcroRd32.exe " & Filename)
End Sub