Tệp pdf không load được WebBrowser

[Phụ Hồ Lên Phú Hộ]

Chào các bạn trên diễn đàn.
Tôi đang tìm cách mở file pdf trên form bằng WebBrowser
Me.WebBrowser1.Navigate "D:/NA-191205.pdf"
nhưng tôi dùng lệnh trên để load file pdf thì file không hiện trong WebBrowser
Nhờ các bạn nào biết hướng dẫn giúp tôi.
Xin cám ơn các bạn

 

[Maika8008]

Có hỏi thì bạn cũng phải đưa hết code khai báo lên xem dùng thư viện gì, đối tượng gì chứ hỏi thế này thì chịu.

 

[Phụ Hồ Lên Phú Hộ]

Có hỏi thì bạn cũng phải đưa hết code khai báo lên xem dùng thư viện gì, đối tượng gì chứ hỏi thế này thì chịu.

thư viện Microsoft Internet control

Private Sub CommandButton1_Click()
Dim UrlStr As String
    UrlStr = "D:\NA-191205.pdf"
    WebBrowser1.Navigate UrlStr
End Sub

 

[huhumalu]

thư viện Microsoft Internet control

Private Sub CommandButton1_Click()
Dim UrlStr As String
    UrlStr = "D:\NA-191205.pdf"
    WebBrowser1.Navigate UrlStr
End Sub

Bạn ra dùng Internetexplorer mở *.PDF xem có được không.
Cái WebBrowser1 không làm hiển thị PDF trên UserForm được. Hoặc là em kg biết làm (

 

[Maika8008]

thư viện Microsoft Internet control

Private Sub CommandButton1_Click()
Dim UrlStr As String
    UrlStr = "D:\NA-191205.pdf"
    WebBrowser1.Navigate UrlStr
End Sub

Tôi tưởng bạn tìm được code ở đâu, đã biết cách thêm công cụ, thêm thư viện... mà không hiện load được pdf chứ ai ngờ Private Sub CommandButton1_Click thì có set gì đâu mà biểu nó chạy được. Nói như huhumalu ở #4 chắc là đúng: không hiển thị được pdf lên form

 

[Phụ Hồ Lên Phú Hộ]

Bạn ra dùng Internetexplorer mở *.PDF xem có được không.
Cái WebBrowser1 không làm hiển thị PDF trên UserForm được. Hoặc là em kg biết làm (

Internetexplorer lúc mở được lúc không mình cũng không hiểu
lần thứ nhất không mở được tuy nhiên khi tắt đi mở lại no lại load được

Tôi tưởng bạn tìm được code ở đâu, đã biết cách thêm công cụ, thêm thư viện... mà không hiện load được pdf chứ ai ngờ Private Sub CommandButton1_Click thì có set gì đâu mà biểu nó chạy được. Nói như huhumalu ở #4 chắc là đúng: không hiển thị được pdf lên form

Còn bạn nói gì minh không hiểu Set gì ?
WebBrowser1 này là usercontrol mà

 

[Maika8008]

Internetexplorer lúc mở được lúc không mình cũng không hiểu
lần thứ nhất không mở được tuy nhiên khi tắt đi mở lại no lại load được

Còn bạn nói gì minh không hiểu Set gì ?
WebBrowser1 này là usercontrol mà

Bạn có nói bên trên khi tôi hỏi đâu?

 

[Phụ Hồ Lên Phú Hộ]

Bạn có nói bên trên khi tôi hỏi đâu?

Ca này khó kkkkk

 

[huhumalu]

Tại topic kiệm lời và đưa thông tin chưa cụ thể.
Đang đoán bạn làm như file bên dưới ?

 

[Phụ Hồ Lên Phú Hộ]

Tại topic kiệm lời và đưa thông tin chưa cụ thể.
Đang đoán bạn làm như file bên dưới ?

mình thử nhiều cách rồi mà sau máy mình nó cứ hiện cái này máy mình win 10 - 64 bit

 

[befaint]

Option Explicit

Sub runTest()
    Dim path As String
    path =  "D:/NA-191205.pdf"
    Call openPDFbyEdge(path)
'Or
    Call openPDFbyChrome(path)
End Sub

Private Sub openPDFbyEdge(ByVal strFilePath)
    Const strEdge = """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" "
    strFilePath = WorksheetFunction.EncodeURL(strFilePath)
    Shell strEdge & strFilePath
End Sub

Private Sub openPDFbyChrome(ByVal strFilePath)
    Const strChrome = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"" "
    strFilePath = WorksheetFunction.EncodeURL(strFilePath)
    Shell strChrome & strFilePath
End Sub

 

[Phụ Hồ Lên Phú Hộ]

Option Explicit

Sub runTest()
    Dim path As String
    path =  "D:/NA-191205.pdf"
    Call openPDFbyEdge(path)
'Or
    Call openPDFbyChrome(path)
End Sub

Private Sub openPDFbyEdge(ByVal strFilePath)
    Const strEdge = """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" "
    strFilePath = WorksheetFunction.EncodeURL(strFilePath)
    Shell strEdge & strFilePath
End Sub

Private Sub openPDFbyChrome(ByVal strFilePath)
    Const strChrome = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"" "
    strFilePath = WorksheetFunction.EncodeURL(strFilePath)
    Shell strChrome & strFilePath
End Sub

Cám ơn bạn nhiều đây cũng là 1 cách giải quyết.