R/T error 53 - File Not Found
 

Any apparent errors from the below Macro?

Sub LoadMyPdf()

Dim Filt As String
Dim Title As String
Dim Filename As Variant

'Set up list of File Filters
Filt = "PDF Files (*.pdf),*.pdf,"
Title = "Select a pdf file to open"
Filename = Application.GetOpenFilename _
(Filefilter:=Filt, Title:=Title)
Shell "C:\Program Files (x86)\Adobe\Reader 8.0\Reader\AcroRd32.exe" &
Filename, 1
'Shell Filename
End Sub

R/T error 53 - File Not Found
 

If you know that you're pointing to the correct location for the reader, then
try adding a space character after the .exe

....der\AcroRd32.exe " & ...



JMay wrote:

Any apparent errors from the below Macro?

Sub LoadMyPdf()

Dim Filt As String
Dim Title As String
Dim Filename As Variant

'Set up list of File Filters
Filt = "PDF Files (*.pdf),*.pdf,"
Title = "Select a pdf file to open"
Filename = Application.GetOpenFilename _
(Filefilter:=Filt, Title:=Title)
Shell "C:\Program Files (x86)\Adobe\Reader 8.0\Reader\AcroRd32.exe" &
Filename, 1
'Shell Filename
End Sub

--

Dave Peterson

R/T error 53 - File Not Found
 

ps.

After trying to get the filename from the user, you may want:

if filename = false then
exit sub
end if

Just in case they clicked the cancel button.

JMay wrote:

Any apparent errors from the below Macro?

Sub LoadMyPdf()

Dim Filt As String
Dim Title As String
Dim Filename As Variant

'Set up list of File Filters
Filt = "PDF Files (*.pdf),*.pdf,"
Title = "Select a pdf file to open"
Filename = Application.GetOpenFilename _
(Filefilter:=Filt, Title:=Title)
Shell "C:\Program Files (x86)\Adobe\Reader 8.0\Reader\AcroRd32.exe" &
Filename, 1
'Shell Filename
End Sub

--

Dave Peterson

R/T error 53 - File Not Found
 

Thanks Dave;
I added space after .exe to read ....exe " & filename, 1

and also inserted the

if filename = false then
exit sub
end if

Still getting R/T 53

I'm running XL2003 SP3 - Vista Home Premium (64-bit)

"Dave Peterson" wrote:

ps.

After trying to get the filename from the user, you may want:

if filename = false then
exit sub
end if

Just in case they clicked the cancel button.

JMay wrote:

Any apparent errors from the below Macro?

Sub LoadMyPdf()

Dim Filt As String
Dim Title As String
Dim Filename As Variant

'Set up list of File Filters
Filt = "PDF Files (*.pdf),*.pdf,"
Title = "Select a pdf file to open"
Filename = Application.GetOpenFilename _
(Filefilter:=Filt, Title:=Title)
Shell "C:\Program Files (x86)\Adobe\Reader 8.0\Reader\AcroRd32.exe" &
Filename, 1
'Shell Filename
End Sub

--

Dave Peterson

R/T error 53 - File Not Found
 

try wrapping the filename with double quotes:

"...\Reader\AcroRd32.exe " & chr(34) & filename & chr(34), 1

As an experiment, you may want to copy the .pdf file to your C:\ folder.

Rename this copy so that there are no spaces in the file (C:\a.pdf) and test
that.




JMay wrote:

Thanks Dave;
I added space after .exe to read ....exe " & filename, 1

and also inserted the

if filename = false then
exit sub
end if

Still getting R/T 53

I'm running XL2003 SP3 - Vista Home Premium (64-bit)

"Dave Peterson" wrote:

ps.

After trying to get the filename from the user, you may want:

if filename = false then
exit sub
end if

Just in case they clicked the cancel button.

JMay wrote:

Any apparent errors from the below Macro?

Sub LoadMyPdf()

Dim Filt As String
Dim Title As String
Dim Filename As Variant

'Set up list of File Filters
Filt = "PDF Files (*.pdf),*.pdf,"
Title = "Select a pdf file to open"
Filename = Application.GetOpenFilename _
(Filefilter:=Filt, Title:=Title)
Shell "C:\Program Files (x86)\Adobe\Reader 8.0\Reader\AcroRd32.exe" &
Filename, 1
'Shell Filename
End Sub

--

Dave Peterson


--

Dave Peterson