請問如何活用WebBrowser1.navigate.

請問知識家VB程式設計的高手如何將下列(一)語法.改為(二)語法: (一).WebBrowser1.navigate "http://tw.yahoo.com/%22(%E4%BA%8C).M_url = "http://tw.yahoo.com/%22WebBrowser1.navigate M_url註:URL使用變數的方式==== 可以作為自動依序讀取 EXCEL A欄的URL能夠用CALL來執行的 ==== CALL WebBrowser1.navigate M_url請用一般模組[用中文程式名稱 SUB 我愛知識家() END SUB]與一般按鈕[很方便複製來.複製去的那種]的方式[一點擊按鈕.就可開啟所需的URL] 目前使用IE7瀏覽器 EXCEL 2003 OFFICE 2003 XP 小麥來了(麥麥是也)尋找答案中……

已更新項目:

有請問過專家 WebBrowser1.navigate 比 InternetExplorer.Application 還要底層.可能不好運作.佔用記憶體也更兇.2種語法差別很大.小麥爬文有看到小肯大大的發問.發現它是用. InternetExplorer.Application====假如它的能解決.我想請鄭老師.用小肯的需求.也來幫我的忙.再等等.有人盜用我帳號.害我登入不了.請奇摩幫忙.總算完成了.謝謝奇摩....

2 個已更新項目:

有請鄭老師回答 謝謝

2 個解答

評分
  • 匿名使用者
    1 0 年前
    最佳解答

    看不懂你要的是什麼..?

    1.URL使用變數的方式==== 可以作為自動依序讀取 EXCEL A欄的URL

    --> 把儲存格的值放到navigate 後就好了; 你應該會基本的VBA吧?

    2.能夠用CALL來執行的 ==== CALL WebBrowser1.navigate M_url

    --> 一定要用 Call function? function 裡也只有一行 WebBrowser1.nagigate 而已, 拆出來用function 有意義嗎?

    2010-09-09 09:21:01 補充:

    3.請用一般模組[用中文程式名稱 SUB 我愛知識家() END SUB]與一般按鈕[很方便複製來.複製去的那種]的方式[一點擊按鈕.就可開啟所需的URL]

    --> Sub 用中英文是個人自由, 別人提供程式, 你自己改一下就好了; 限定這個沒意義; 況且, sub name 用中文是不好的寫作習慣.

    至於"有請問過專家 WebBrowser1.navigate 比 InternetExplorer.Application 還要底層.可能不好運作.佔用記憶體也更兇.2種語法差別很大" 云云, 也不知道是誤導你的, 不予置評

    2010-09-10 14:41:26 補充:

    '在表單上放上:

    '一個 TextBox, name: txtURL

    '一個 Button, name:cmdNavigatorTo

    '一個 WebBrowser, name: WebBrowser1

    '在button 的click 事件, 輸入下列程式碼

    2010-09-10 14:41:33 補充:

    Private Sub cmdNavigateTo_Click()

    '使用者在TextBox輸入網址, 按下button , 程式將textbox 的值傳入變數(vURL), 然後WebBrowser 瀏覽該變數

    Dim vURL As String

    vURL = txtURL.Text

    WebBrowser1.Navigate vURL

    End Sub

    2010-09-17 23:24:08 補充:

    我無法理解webbrowser 麻煩在哪, 也不了解為什麼你的電腦會連一個小小的vb 程式都"資源不足"; 不管用webbrowser 或是 internetExplorer.Application, 寫法都是一樣的

    2010-09-17 23:24:44 補充:

    '在表單上放上:

    '一個 TextBox, name: txtURL

    '一個 Button, name:cmdNavigatorTo

    '一個 WebBrowser, name: WebBrowser1'在button 的click 事件, 輸入下列程式碼 Private Sub cmdNavigateTo_Click()

    '使用者在TextBox輸入網址, 按下button , 程式將textbox 的值傳入變數(vURL), 然後WebBrowser 瀏覽該變數Dim vURL As String

    vURL = txtURL.Text Set MyIE = CreateObject("InternetExplorer.Application")

    With MyIE

    .navigate vURL '就是要這個變數啦

    :

    :End Sub

  • 我有問小肯啦

    我剛學習

    小肯學的比較久

    請比照小肯的模式幫我

    Set myIE = CreateObject("Internet Explorer.Application")

    .navigate M_url

    就像老師說的方式一樣 會一點點 應該是我要的答案

    但不知

    2010-09-09 17:20:06 補充:

    WebBrowser1.navigate M_url

    可不可以 因為看的知識+題庫 把URL都訂的死死的

    不好活用

    老師辦得到嗎

    不行 就比照小肯的

    Dim MyIE As Object

    Set MyIE = CreateObject("InternetExplorer.Application")

    With MyIE

    .Visible = False

    2010-09-09 17:20:16 補充:

    .navigate "http://tw.group.knowledge.yahoo.com/computer-compu...

    修正成.navigate M_url

    而M_url如何在前一段 來宣告M_url

    讓這2者串聯起來

    小肯說會 但要我請老師教

    2010-09-13 13:50:27 補充:

    謝謝鄭老師

    因為忙到今天才上線

    抽空來測測

    先延五天

    等我

    2010-09-17 12:00:23 補充:

    WOW

    WebBrowser太麻煩了 我的電腦資源又不足 只測下一個用法喔 這是老師傳給小肯的 我覺得比教簡單 老師可以可以把2個都回答一下 讓大家自己去挑選

    Public m_url As String

    Set MyIE = CreateObject("InternetExplorer.Application")

    With MyIE

    .navigate m_url '就是要這個變數啦

還有問題?馬上發問,尋求解答。