[發問] 取出網頁資料會出現指定年月不合

各位大大好：

  小弟正在學習如何取得網頁資料。
也引用GBKEE版主大大的語法，並
依指定網頁來取出資料，但出現實際
指定取出的年月卻不合。請問各位大大
小弟應如何修改下列語法呢？

謝謝各位大大！

Sub Ex()

Dim i As Integer, s As Integer, k As Integer, A, ii, j
Dim STK_NO As String    '股票代碼 INPUT
Dim myear As String '年度 SELECT
Dim mmon As String    '月份 SELECT
STK_NO = "2330"
myear = "102"
mmon = "5"

With CreateObject("InternetExplorer.Application")
      .Visible = True
      .navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAYMAIN.php"
      Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
      With .document
         For Each A In .getelementsbytagname("INPUT")
            If A.Name = "STK_NO" Then A.Value = STK_NO
         Next
         For Each A In .getelementsbytagname("SELECT")  '己經指定年份，但實際並取得指定年份
            If A.Name = "myear" Then
                  A.Value = True
                     A.Focus
                     Application.Wait Now + #12:00:02 AM#
                     Application.SendKeys "{DOWN}"
                     Application.Wait Now + #12:00:02 AM#
                     Application.SendKeys "{ENTER}"
                     Exit For
            End If
         Next

         For Each A In .getelementsbytagname("SELECT")  '己經指定月份，但實際並取得指定月份
            If A.Name = "mmon" Then
                  A.Value = True
                  Application.Wait Now + #12:00:02 AM#
                  Application.SendKeys "{DOWN}"
                  Application.Wait Now + #12:00:02 AM#
                  Application.SendKeys "{ENTER}"
                  Exit For
               End If
         Next

         For Each A In .getelementsbytagname("INPUT")
            If Trim(A.Value) = "查詢" And A.Name = "login_btn" Then A.Click       '
         Next
      End With
      Application.Wait Now + #12:00:10 AM#
      Set A = .document.getelementsbytagname("table")
      On Error Resume Next
      With ActiveSheet
         .Cells.Clear
         For ii = 1 To A.Length - 1
            For i = 0 To A(ii).Rows.Length - 1    '寫入資料
            k = k + 1
                  For j = 0 To 8
                     Cells(k, j + 1) = A(ii).Rows(i).Cells(j).innerText
                  Next
            Next
         Next

      End With
      .Quit       '關閉網頁
End With
End Sub

謝謝各位大大！

樓主熱帖

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-7-6 15:10 | 只看該作者

回復 1# dechiuan999

Option Explicit
Sub Ex_個股日成交資訊()
Dim i As Integer, s As Integer, k As Integer, A As Object, ii, j
Dim STK_NO As String '股票代碼 INPUT
' Dim myear As String '年度 SELECT
' Dim mmon As String '月份 SELECT
STK_NO = "2485"
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAYMAIN.php"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
With .document
.getelementsbytagname("INPUT")("STK_NO").Value = STK_NO
.getelementsbytagname("SELECT")("myear").Value = Year(Date) '2014
.getelementsbytagname("SELECT")("mmon").Value = Month(Date) '7 月
'.getelementsbytagname("SELECT")("myear").Value = Year(Date) - 1 '2013
'.getelementsbytagname("SELECT")("mmon").Value = Month(Date) - 1 '6 月
.getelementsbytagname("INPUT")("login_btn").Click
End With
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Do
Set A = .document.getelementsbytagname("table")
Loop While A Is Nothing
If InStr(A(6).innertext, "查無資料:") Then
MsgBox A(6).innertext
Else
With ActiveSheet
.Cells.Clear
For i = 0 To A(7).Rows.Length - 1 '寫入資料
k = k + 1
For j = 0 To A(7).Rows(i).Cells.Length - 1
.Cells(k, j + 1) = A(7).Rows(i).Cells(j).innertext
Next
Next
End With
End If
.Quit '關閉網頁
End With
End Sub

複製代碼

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

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

3^#

發表於 2014-7-6 22:18 | 只看該作者

回復 2# GBKEE

版主大大您好：

謝謝您的指點。
小弟對此語法仍有許多疑惑
尚請版主大大明示

Set A = .document.getelementsbytagname("table")
表示設定A物件來取得返回带有指定TABLE標籤名的對象集合。
而語法中有使用到
A(6) 及 A(7)
小弟一直無法悟出其函意為何呢？

TOP

GBKEE