返回列表 上一主題 發帖

[發問] 請教版大 工作表3 工作表4 table 為何都捉不到資料，謝謝

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-1-2 11:56 | 只看該作者

[發問] 請教版大 工作表3 工作表4 table 為何都捉不到資料，謝謝

請教版大 工作表3取損益表(年表) 工作表4取資產負債表(年表)網頁 table 為何都捉不到資料，測試了table(0),table(1),table(2)都不可以，謝謝
  1. Dim ie As Object   '模組最頂端 Dim 供這模組的程序使用的變數
  2. Sub AllFile()
  3.     Dim i As Integer, v, Y As Integer, S As String
  4.     Set ie = CreateObject("internetexplorer.application")   '使用此方式可以免除 "設定引用項目"
  5.     With ie '縮小IE視窗
  6.         .Visible = True
  7.         .Width = 5
  8.         .Height = 5
  9.     End With

  11.     With 工作表1
  12.       Dim AR
  13.         AR = .Range("E1:M1")
  14.         .Range("E:M") = ""
  15.         .Range("E1:M1") = AR

  17. '        .Range("E2").CurrentRegion = ""            '清除工作表1,年度範圍
  18.     v = "2330"
  19.           GetDividend (v)
  20.            GetClosePrice (v)
  21.            GetIncome (v)
  22.            GetBalance (v)
  23.            GetShareholding (v)

  25.             Debug.Print v

  27. End With
  28.     With ie  'IE視窗最大化
  29.         Application.WindowState = xlMaximized
  30.         .Height = Application.Height
  31.         .Width = Application.Width
  32.         .Quit
  33.     End With
  34. End Sub

  36. Private Sub GetDividend(ByVal ss As String)     '取股利網頁

  38.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  39.     T = Time
  40.     rr = "http://pscnetinvest.moneydj.com.tw/z/zc/zcc/zcc_" & ss & ".djhtm"
  41.     With ie
  42.         .Navigate rr
  43.         Do While .readyState <> 4                          '等待網頁下載完畢
  44.               DoEvents
  45.               If Time >= T + #12:00:03 AM# Then
  46.                 DoEvents
  47.                 Application.SendKeys "~"                    '股票代號錯誤,網頁會有訊息,須按確定,才可繼續下面股票代號
  48.                
  49.                
  50.                 Exit Do
  51.               End If
  52.         Loop
  53.         Do
  54.         Set S = .Document.getElementsByTagName("table")(2)
  55.         Loop Until Not S Is Nothing

  57.         With 工作表2
  58.             .UsedRange.Clear
  59.             For i = 0 To S.Rows.Length - 1      '寫入資料
  60.                 k = k + 1
  61.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 才是正確
  62.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  63.                     DoEvents
  64.                     Next
  65.             Next
  66.         End With
  67.     End With
  68. End Sub

  70. Private Sub GetClosePrice(ByVal ss As String) ' 取基本資料

  72.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  73.     T = Time
  74.     rr = "http://pscnetinvest.moneydj.com.tw/z/zc/zca/zca_" & ss & ".djhtm"
  75.     With ie
  76.         .Navigate rr
  77.         Do While .readyState <> 4                          '等待網頁下載完畢
  78.               DoEvents
  79.               If Time >= T + #12:00:03 AM# Then
  80.                 DoEvents
  81.                 Application.SendKeys "~"                    '股票代號錯誤,網頁會有訊息,須按確定,才可繼續下面股票代號

  83.                 Exit Do
  84.               End If
  85.         Loop
  86.         Do
  87.         Set S = .Document.getElementsByTagName("table")(2)
  88.         Loop Until Not S Is Nothing

  90.         With 工作表3
  91.             .UsedRange.Clear
  92.             For i = 0 To S.Rows.Length - 1      '寫入資料
  93.                 k = k + 1
  94.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 才是正確
  95.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  96.                     DoEvents
  97.                     Next
  98.             Next
  99.         End With
  100.     End With
  101. End Sub


  104. Private Sub GetIncome(ByVal ss As String)     '取損益表(年表)網頁

  106.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  107.     T = Time
  108.    
  109.     rr = "http://kgieworld.moneydj.com/z/zc/zcq/zcqa/zcqa_" & ss & ".djhtm"

  111.     With ie
  112.         .Navigate rr
  113.         Do While .readyState <> 4                          '等待網頁下載完畢
  114.               DoEvents
  115.               If Time >= T + #12:00:03 AM# Then
  116.                 DoEvents
  117.                 Application.SendKeys "~"                    '股票代號錯誤,網頁會有訊息,須按確定,才可繼續下面股票代號
  118.                
  119.                 Exit Do
  120.               End If
  121.         Loop
  122.         Do
  123.         Set S = .Document.getElementsByTagName("table")(2)
  124.         Loop Until Not S Is Nothing

  126.         With 工作表4
  127.             .UsedRange.Clear
  128.             For i = 0 To S.Rows.Length - 1      '寫入資料
  129.                 k = k + 1
  130.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 才是正確
  131.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  132.                     DoEvents
  133.                     Next
  134.             Next
  135.         End With
  136.     End With
  137. End Sub

  139. Private Sub GetBalance(ByVal ss As String)     '取資產負債表(年表)網頁

  141.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  142.     T = Time
  143.    
  144.     rr = "http://kgieworld.moneydj.com/z/zc/zcp/zcpb/zcpb_" & ss & ".djhtm"
  145.    
  146.     With ie
  147.         .Navigate rr
  148.         Do While .readyState <> 4                          '等待網頁下載完畢
  149.               DoEvents
  150.               If Time >= T + #12:00:03 AM# Then
  151.                 DoEvents
  152.                 Application.SendKeys "~"                    '股票代號錯誤,網頁會有訊息,須按確定,才可繼續下面股票代號
  153.                
  154.                 Exit Do
  155.               End If
  156.         Loop
  157.         Do
  158.         Set S = .Document.getElementsByTagName("table")(2)
  159.         Loop Until Not S Is Nothing


  162.         With 工作表5
  163.             .UsedRange.Clear
  164.             For i = 0 To S.Rows.Length - 1      '寫入資料
  165.                 k = k + 1
  166.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 才是正確
  167.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  168.                     DoEvents
  169.                     Next
  170.             Next
  171.         End With
  172.     End With
  173. End Sub
  174. Private Sub GetShareholding(ByVal ss As String)     '取董監持股網頁

  176.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  177.     T = Time
  178.     rr = "http://pscnetinvest.moneydj.com.tw/z/zc/zcj/zcj_" & ss & ".djhtm"     '取董監持股網頁
  179.     With ie
  180.         .Navigate rr
  181.         Do While .readyState <> 4                          '等待網頁下載完畢
  182.               DoEvents
  183.               If Time >= T + #12:00:03 AM# Then
  184.                 DoEvents
  185.                 Application.SendKeys "~"                    '股票代號錯誤,網頁會有訊息,須按確定,才可繼續下面股票代號
  186.                
  187.                 Exit Do
  188.               End If
  189.         Loop
  190.         Do
  191.         Set S = .Document.getElementsByTagName("table")(3)
  192.         Loop Until Not S Is Nothing

  194.         With 工作表6
  195.             .UsedRange.Clear
  196.             For i = 0 To S.Rows.Length - 1      '寫入資料
  197.                 k = k + 1
  198.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 才是正確
  199.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  200.                     DoEvents
  201.                     Next
  202.             Next
  203.         End With
  204.     End With
  205. End Sub
複製代碼

測試檔.rar (18.78 KB)

收藏 分享

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題