麻辣家族討論版版 » Excel程式區 » Excel VBA webBrower 搜尋網頁資料問題

返回列表下一主題上一主題發帖

[發問] Excel VBA webBrower 搜尋網頁資料問題

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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]

樓主熱帖

收藏

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2015-3-21 15:20 | 只看該作者

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

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

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

== 真奇怪....

詢問專用.rar (12.2 KB)

詢問專用.rar (12.2 KB)

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2015-3-22 09:04 | 只看該作者

回復 2# mark15jill
試試看 : 是否是這樣!

Private Sub CommandButton1_Click()
Dim myElements As Object, E As Object, xxA As Integer
Set myElements = WebBrowser1.document.getElementsByTagName("A")
With ActiveSheet
.UsedRange.Clear
For Each E In myElements
If E.INNERTEXT Like "*學聯會*" Or E.INNERTEXT Like "*學生聯會*" Then
xxA = xxA + 1
.Cells(xxA, 1) = E.INNERTEXT
.Cells(xxA, 2) = E.HREF
End If
Next
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2015-3-23 16:05 | 只看該作者

回復 3# GBKEE

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 心中常存善解、包容、感思、知足、惜福。

返回列表下一主題上一主題