返回列表 上一主題 發帖

[發問] WebBrowser1在Excel VBA無法運行

[發問] WebBrowser1在Excel VBA無法運行

本帖最後由 Amin 於 2014-7-26 12:15 編輯

WebBrowser1在自己寫的Excel VBA無法運行
使用別人寫好的WebBrowser1卻可以運行
引用項目也添加了「Microsoft HTML Object Libaray」
請問各位要如何能將自己寫的ExcelVBA運行WebBrowser1?
如下程式碼
  1. Sub test()
  2.    WebBrowser1.Navigate "http://www.google.com/"
  3.     Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
  4.         DoEvents
  5.     Loop
  6.     On Error Resume Next
  7.     WebBrowser1.Navigate "about:blank"
  8. End Sub
複製代碼

補上一張發生錯誤的圖

TOP

本帖最後由 Amin 於 2014-7-26 22:05 編輯

回復 3# c_c_lai

感謝c_c_lai 大大的回覆

不過我要的不是這樣的內容,我知道可以直接用CreateObject("InternetExplorer.Application")這個
但這樣就不是WebBrowser1 物件了,會變成InternetExplorer物件操作,我要的是純WebBrowser1 物件來進行操作

我附上我找到的範例,用純WebBrowser1 物件寫的
可以參考看看他並沒有用CreateObject("InternetExplorer.Application"),
他只只有在「引用項目」添加了「Microsoft HTML Object Libaray」
在「Microsoft HTML Object Libaray」裡面有包含InternetExplorer與WebBrowser1 這兩個物件
我能做的都已經跟他做到相同的設定了,不知道是不是還有少
請c_c_lai 大與各位大大參考附件
jKtC2df0.rar (24.63 KB)

TOP

回復 5# GBKEE

感謝GBKEE大回應,你提的方式我也試過是可行的
但我在前面有回應c_c_lai 大時有附上範例
這個範例並未使用GBKEE大的方法,也可以讓WebBrowser1動作
而且我也試過將以下的程式寫在附件的範例裡面,也是可以work
請問GBKEE大有解法嗎?
  1. Sub test()
  2.    WebBrowser1.Navigate "http://www.google.com/"
  3.     Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
  4.         DoEvents
  5.     Loop
  6.     On Error Resume Next
  7.     WebBrowser1.Navigate "about:blank"
  8. End Sub
複製代碼

TOP

回復 7# GBKEE


GBKEE大
我的檔案�堶探N只有用我貼出來的程式碼而已
在引用項目裡添加「Microsoft HTML Object Libaray」
其他的都沒有做任何事

TOP

回復 9# GBKEE


    Test.zip (11.67 KB)

TOP

回復 9# GBKEE


    我知道錯誤在哪,如我一開始補圖

TOP

回復 11# Amin

錯誤訊息已明確說明,如圖


別人的範例可以work,如附件
jKtC2df0.rar (24.63 KB)

請問GBKEE大大,該怎麼才能讓我的範例在不添加OLEObjects情況下也能work,如圖


感謝

TOP

回復 13# stillfish00


stillfish00大感謝你的回覆

請問有辦法查看出物件的樣子嗎?或是圖片?

TOP

回復 15# stillfish00

stillfish00大大 果然很強

請問一定要用程式才能看到嗎?
能否透過設計模式查看?
我試了很久也顯示不出來

TOP

        靜思自在 : 能幹不幹,不如苦幹實幹。
返回列表 上一主題