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

s13983037

各位前輩 你們好

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

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

GBKEE

回復 1# s13983037

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

複製代碼

s13983037

回復 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

GBKEE

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

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

複製代碼

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

複製代碼

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

複製代碼

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

複製代碼

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

kof0018

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

先多謝了!!!

GBKEE

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