Mở Hyperlinks excel bằng VBA

[moihocvba]

Dạ em chào anh chị GPE, em đã tìm google nhưng không thấy cách làm nên em xin lên đây hỏi anh chị 1 vấn đề nhỏ.
Thay vì dùng chuột click vào ô A1 để mở file được liên kết, thì em dùng lệnh gì trong VBA để mở file được liên kết này ạ. Em cám ơn anh chị đã giúp đỡ!

 

[befaint]

Google: open another application using vba

 

[moihocvba]

Google: open another application using vba

Dạ em đã thử tìm theo từ khóa của anh, nhưng vẫn chưa làm được. Anh có thể giúp em không ạ!
Em mở link file ra PDF ạ.
Cám ơn anh rất nhiều!

 

[giaiphap]

Dạ em đã thử tìm theo từ khóa của anh, nhưng vẫn chưa làm được. Anh có thể giúp em không ạ!
Em mở link file ra PDF ạ.
Cám ơn anh rất nhiều!

Thử vầy xem được không?

Sub OpenPDF()
    'ActiveWorkbook.FollowHyperlink "C:\File.pdf"
    ActiveWorkbook.FollowHyperlink [A1]
End Sub

hoặc

Public Sub OpenPDF()
    CreateObject("Shell.Application").Open ([A1].Value)
End Sub

 

[befaint]

Dạ em đã thử tìm theo từ khóa của anh, nhưng vẫn chưa làm được. Anh có thể giúp em không ạ!

Gửi cái chưa được đó lên đây em.

 

[moihocvba]

Thử vầy xem được không?

Sub OpenPDF()
    'ActiveWorkbook.FollowHyperlink "C:\File.pdf"
    ActiveWorkbook.FollowHyperlink [A1]
End Sub

hoặc

Public Sub OpenPDF()
    CreateObject("Shell.Application").Open ([A1].Value)
End Sub

Dạ em đã làm theo anh và được rồi ạ, em cám ơn anh rất nhiều!