Open PDF

[rolo]

Hello,

I used this code to open a PDF file:

MyPDF="C:\abc.pdf"
ActiveWorkbook.FollowHyperlink MyPDF

It worked fine, except that it showed an annoying warning message before opening the PDF (even I had application.displayalerts=false)

Today I have found this great code that opens a PDF file without warning message:

Shell "CMD /C START """" ""D:\mypdfs\myfile2.pdf""", vbHide

My question: How can I add a variable pdf name inside this code?

Thanks!

 

[Kenneth Hobson]

Sub Main()
  Dim fn$, s$
  fn = "C:\Users\lenovo1\Dropbox (Personal)\_Excel\pdf\_1.pdf"
  If Dir(fn) <> "" Then Shell "cmd /c " & """" & fn & """", vbNormal
End Sub[code]

 

[rolo]

Hi Kenneth, works perfect, thanks!

Just a question:

Why you declare fn$ variable but on the rest of the code you only use fn without $ sign?

 

[Kenneth Hobson]

It is a shortcut way to define the type of variable which is String in this case.

Dim fn$ = Dim fn As String

 

[rolo]

Great, thanks!