帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-12-6 23:26 | 只看該作者

[發問] EXCEL VBA 匯入PCHOME網頁資料

各位前輩你們好

我想使用外部網頁資料匯入 "http://pchome.megatime.com.tw/stock/sid9907.html" 匯到EXCEL 中但是VBA沒有反應

有前輩可以幫忙解決這個問題嗎

ScreenShot00102.png (36.26 KB)

活頁簿1.rar (16.71 KB)

樓主熱帖

GBKEE

超級版主 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兔年全勤獎章

2^#

發表於 2014-12-7 08:31 | 只看該作者

回復 1# s13983037

Option Explicit
Sub Ex_Pchome()
Dim E As Object, i As Integer, ii As Integer, k As Integer
Dim xadte As Date
xadte = DateAdd("yyyy", -1, Date) '日期(起)：
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://pchome.megatime.com.tw/stock/sid9907.html"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Set E = .document.getElementsByTAGName("TABLE")(4)
ActiveSheet.UsedRange.Clear
For i = 0 To E.Rows.Length - 1
k = k + 1
For ii = 0 To E.Rows(i).Cells.Length - 1
Cells(k, ii + 1) = E.Rows(i).Cells(ii).INNERTEXT
Next
Next
.Quit '關閉網頁
End With
End Sub

複製代碼

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

TOP

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

3^#

發表於 2014-12-7 12:24 | 只看該作者

回復 2# GBKEE

GBKEE前輩您好小弟初學 VBA 針對以下程式碼想加以了解
   xadte = DateAdd("yyyy", -1, Date)  '日期(起)：
   '執行此行的目的是??
With CreateObject("InternetExplorer.Application")
    '此行是否開啟InternetExplorer APP ??
      .Visible = True
      .Navigate "http://pchome.megatime.com.tw/stock/sid9907.html"
   '此行是將InternetExplorer輸入網址嗎??
      Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
      '此行當中的 .Busy Or .ReadyState <> 4: DoEvents: Loop甚麼意思??
      Set E = .document.getElementsByTAGName("TABLE")(4)
'此行是定義甚麼意思
End With

TOP

GBKEE

超級版主 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兔年全勤獎章

4^#

發表於 2014-12-7 13:30 | 只看該作者

回復 3# s13983037
VBA 程式碼看不懂可多看 VBA 的說明

DateAdd 函數傳回值為一 Variant (Date)，內容為某個基準日期加上特定時間間隔單位後的日期。

複製代碼

CreateObject 函數建立並傳回對於 ActiveX 物件的引用

複製代碼

Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
'Do While 執行條件成立一直執行迴圈,不成立離開迴圈

複製代碼

Set E = .document.getElementsByTAGName("TABLE")(4)

複製代碼

變數指定為物件須加上Set
網頁文件的元素TAGName為"TABLE"物件集合第5個子物件(0,1,2,3,4)

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

TOP

kof0018

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 3
點名: 0
作業系統: Win7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2015-9-24
最後登錄: 2015-10-20

5^#

發表於 2015-10-2 13:05 | 只看該作者

請問一下 GBKEE版主大
我是一個新手, 剛開始接觸VBA, 想請教一下關於parse 網頁的一些方法
像是您寫的下面方式, 是不是有參考網頁可以讓我學習一下呢?
Set E = .document.getElementsByTAGName("TABLE")(4)
我是希望自己可以完整的parse類似台鐵或是Gmail的網頁
目前已經自學到, 可以用VBA幫我自動登入Gmail
但是登入後的相關參數卻是不熟

先多謝了!!!

TOP

GBKEE

超級版主 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兔年全勤獎章

6^#

發表於 2015-10-2 16:54 | 只看該作者

回復 5# kof0018
可參考這裡,找出網頁上的元素
http://forum.twbts.com/thread-13669-1-1.html

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

TOP