Board logo

標題: [發問] Excel VBA webBrower 搜尋網頁資料問題 [打印本頁]
作者: mark15jill    時間: 2015-3-20 15:48     標題: Excel VBA webBrower 搜尋網頁資料問題

如題
因要大量搜尋相同關鍵字的網頁資料

目前 附件內程式已有設定網頁瀏覽 和 錯誤提示關閉

但必須手動 將  名稱 和 網址 COPY 到 TextBox2 和 TextBox3  然後按下 commandBox  會將資料鍵入至 活頁簿的 A欄位和 B欄位....

想詢問 有沒有方法可以那樣做  

例如 名稱   搜尋 畢聯會  
         搜尋到      交通大學畢聯會 (放置A欄位)         https://zh-tw.facebook.com/NCTUgraduate  (:放置B欄位)
        

我是知道好像可以利用 Label 或 textbox 去加以判斷... 但因為沒接觸過 所以...

麻煩各位大大和前輩的教導 ....  謝謝

[attach]20471[/attach]
作者: mark15jill    時間: 2015-3-21 15:20

如題
因要大量搜尋相同關鍵字的網頁資料

目前 附件內程式已有設定網頁瀏覽 和 錯誤提示關閉

但必須手 ...
mark15jill 發表於 2015-3-20 15:48



==  真奇怪....
[attach]20475[/attach][attach]20476[/attach]
作者: GBKEE    時間: 2015-3-22 09:04

回復 2# mark15jill
試試看 : 是否是這樣!
  1. Private Sub CommandButton1_Click()
  2.     Dim myElements As Object, E As Object, xxA As Integer
  3.     Set myElements = WebBrowser1.document.getElementsByTagName("A")
  4.     With ActiveSheet
  5.         .UsedRange.Clear
  6.         For Each E In myElements
  7.             If E.INNERTEXT Like "*學聯會*" Or E.INNERTEXT Like "*學生聯會*" Then
  8.                 xxA = xxA + 1
  9.                 .Cells(xxA, 1) = E.INNERTEXT
  10.                 .Cells(xxA, 2) = E.HREF
  11.             End If
  12.         Next
  13.     End With
  14. End Sub
複製代碼
作者: mark15jill    時間: 2015-3-23 16:05

回復 3# GBKEE


    運作方式正是小弟想要的結果，謝謝
   只是  結果會連有關連的通通給他擷取近來= =""
   我在修改好了  謝謝您~~



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)