ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ðª©¤j ¤u§@ªí3 ¤u§@ªí4 table ¬°¦ó³£®»¤£¨ì¸ê®Æ¡AÁÂÁÂ

[µo°Ý] ½Ð±Ðª©¤j ¤u§@ªí3 ¤u§@ªí4 table ¬°¦ó³£®»¤£¨ì¸ê®Æ¡AÁÂÁÂ

½Ð±Ðª©¤j ¤u§@ªí3¨ú·l¯qªí(¦~ªí) ¤u§@ªí4¨ú¸ê²£­t¶Åªí(¦~ªí)ºô­¶ table ¬°¦ó³£®»¤£¨ì¸ê®Æ¡A´ú¸Õ¤Ftable(0),table(1),table(2)³£¤£¥i¥H¡AÁÂÁÂ
  1. Dim ie As Object   '¼Ò²Õ³Ì³»ºÝ Dim ¨Ñ³o¼Ò²Õªºµ{§Ç¨Ï¥ÎªºÅܼÆ
  2. Sub AllFile()
  3.     Dim i As Integer, v, Y As Integer, S As String
  4.     Set ie = CreateObject("internetexplorer.application")   '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
  5.     With ie 'ÁY¤pIEµøµ¡
  6.         .Visible = True
  7.         .Width = 5
  8.         .Height = 5
  9.     End With

  10.     With ¤u§@ªí1
  11.       Dim AR
  12.         AR = .Range("E1:M1")
  13.         .Range("E:M") = ""
  14.         .Range("E1:M1") = AR

  15. '        .Range("E2").CurrentRegion = ""            '²M°£¤u§@ªí1,¦~«×½d³ò
  16.     v = "2330"
  17.           GetDividend (v)
  18.            GetClosePrice (v)
  19.            GetIncome (v)
  20.            GetBalance (v)
  21.            GetShareholding (v)

  22.             Debug.Print v

  23. End With
  24.     With ie  'IEµøµ¡³Ì¤j¤Æ
  25.         Application.WindowState = xlMaximized
  26.         .Height = Application.Height
  27.         .Width = Application.Width
  28.         .Quit
  29.     End With
  30. End Sub

  31. Private Sub GetDividend(ByVal ss As String)     '¨úªÑ§Qºô­¶

  32.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  33.     T = Time
  34.     rr = "http://pscnetinvest.moneydj.com.tw/z/zc/zcc/zcc_" & ss & ".djhtm"
  35.     With ie
  36.         .Navigate rr
  37.         Do While .readyState <> 4                          'µ¥«Ýºô­¶¤U¸ü§¹²¦
  38.               DoEvents
  39.               If Time >= T + #12:00:03 AM# Then
  40.                 DoEvents
  41.                 Application.SendKeys "~"                    'ªÑ²¼¥N¸¹¿ù»~,ºô­¶·|¦³°T®§,¶·«ö½T©w,¤~¥iÄ~Äò¤U­±ªÑ²¼¥N¸¹
  42.                
  43.                
  44.                 Exit Do
  45.               End If
  46.         Loop
  47.         Do
  48.         Set S = .Document.getElementsByTagName("table")(2)
  49.         Loop Until Not S Is Nothing

  50.         With ¤u§@ªí2
  51.             .UsedRange.Clear
  52.             For i = 0 To S.Rows.Length - 1      '¼g¤J¸ê®Æ
  53.                 k = k + 1
  54.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 ¤~¬O¥¿½T
  55.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  56.                     DoEvents
  57.                     Next
  58.             Next
  59.         End With
  60.     End With
  61. End Sub

  62. Private Sub GetClosePrice(ByVal ss As String) ' ¨ú°ò¥»¸ê®Æ

  63.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  64.     T = Time
  65.     rr = "http://pscnetinvest.moneydj.com.tw/z/zc/zca/zca_" & ss & ".djhtm"
  66.     With ie
  67.         .Navigate rr
  68.         Do While .readyState <> 4                          'µ¥«Ýºô­¶¤U¸ü§¹²¦
  69.               DoEvents
  70.               If Time >= T + #12:00:03 AM# Then
  71.                 DoEvents
  72.                 Application.SendKeys "~"                    'ªÑ²¼¥N¸¹¿ù»~,ºô­¶·|¦³°T®§,¶·«ö½T©w,¤~¥iÄ~Äò¤U­±ªÑ²¼¥N¸¹

  73.                 Exit Do
  74.               End If
  75.         Loop
  76.         Do
  77.         Set S = .Document.getElementsByTagName("table")(2)
  78.         Loop Until Not S Is Nothing

  79.         With ¤u§@ªí3
  80.             .UsedRange.Clear
  81.             For i = 0 To S.Rows.Length - 1      '¼g¤J¸ê®Æ
  82.                 k = k + 1
  83.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 ¤~¬O¥¿½T
  84.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  85.                     DoEvents
  86.                     Next
  87.             Next
  88.         End With
  89.     End With
  90. End Sub


  91. Private Sub GetIncome(ByVal ss As String)     '¨ú·l¯qªí(¦~ªí)ºô­¶

  92.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  93.     T = Time
  94.    
  95.     rr = "http://kgieworld.moneydj.com/z/zc/zcq/zcqa/zcqa_" & ss & ".djhtm"

  96.     With ie
  97.         .Navigate rr
  98.         Do While .readyState <> 4                          'µ¥«Ýºô­¶¤U¸ü§¹²¦
  99.               DoEvents
  100.               If Time >= T + #12:00:03 AM# Then
  101.                 DoEvents
  102.                 Application.SendKeys "~"                    'ªÑ²¼¥N¸¹¿ù»~,ºô­¶·|¦³°T®§,¶·«ö½T©w,¤~¥iÄ~Äò¤U­±ªÑ²¼¥N¸¹
  103.                
  104.                 Exit Do
  105.               End If
  106.         Loop
  107.         Do
  108.         Set S = .Document.getElementsByTagName("table")(2)
  109.         Loop Until Not S Is Nothing

  110.         With ¤u§@ªí4
  111.             .UsedRange.Clear
  112.             For i = 0 To S.Rows.Length - 1      '¼g¤J¸ê®Æ
  113.                 k = k + 1
  114.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 ¤~¬O¥¿½T
  115.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  116.                     DoEvents
  117.                     Next
  118.             Next
  119.         End With
  120.     End With
  121. End Sub

  122. Private Sub GetBalance(ByVal ss As String)     '¨ú¸ê²£­t¶Åªí(¦~ªí)ºô­¶

  123.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  124.     T = Time
  125.    
  126.     rr = "http://kgieworld.moneydj.com/z/zc/zcp/zcpb/zcpb_" & ss & ".djhtm"
  127.    
  128.     With ie
  129.         .Navigate rr
  130.         Do While .readyState <> 4                          'µ¥«Ýºô­¶¤U¸ü§¹²¦
  131.               DoEvents
  132.               If Time >= T + #12:00:03 AM# Then
  133.                 DoEvents
  134.                 Application.SendKeys "~"                    'ªÑ²¼¥N¸¹¿ù»~,ºô­¶·|¦³°T®§,¶·«ö½T©w,¤~¥iÄ~Äò¤U­±ªÑ²¼¥N¸¹
  135.                
  136.                 Exit Do
  137.               End If
  138.         Loop
  139.         Do
  140.         Set S = .Document.getElementsByTagName("table")(2)
  141.         Loop Until Not S Is Nothing


  142.         With ¤u§@ªí5
  143.             .UsedRange.Clear
  144.             For i = 0 To S.Rows.Length - 1      '¼g¤J¸ê®Æ
  145.                 k = k + 1
  146.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 ¤~¬O¥¿½T
  147.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  148.                     DoEvents
  149.                     Next
  150.             Next
  151.         End With
  152.     End With
  153. End Sub
  154. Private Sub GetShareholding(ByVal ss As String)     '¨ú¸³ºÊ«ùªÑºô­¶

  155.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  156.     T = Time
  157.     rr = "http://pscnetinvest.moneydj.com.tw/z/zc/zcj/zcj_" & ss & ".djhtm"     '¨ú¸³ºÊ«ùªÑºô­¶
  158.     With ie
  159.         .Navigate rr
  160.         Do While .readyState <> 4                          'µ¥«Ýºô­¶¤U¸ü§¹²¦
  161.               DoEvents
  162.               If Time >= T + #12:00:03 AM# Then
  163.                 DoEvents
  164.                 Application.SendKeys "~"                    'ªÑ²¼¥N¸¹¿ù»~,ºô­¶·|¦³°T®§,¶·«ö½T©w,¤~¥iÄ~Äò¤U­±ªÑ²¼¥N¸¹
  165.                
  166.                 Exit Do
  167.               End If
  168.         Loop
  169.         Do
  170.         Set S = .Document.getElementsByTagName("table")(3)
  171.         Loop Until Not S Is Nothing

  172.         With ¤u§@ªí6
  173.             .UsedRange.Clear
  174.             For i = 0 To S.Rows.Length - 1      '¼g¤J¸ê®Æ
  175.                 k = k + 1
  176.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 ¤~¬O¥¿½T
  177.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  178.                     DoEvents
  179.                     Next
  180.             Next
  181.         End With
  182.     End With
  183. End Sub
½Æ»s¥N½X

´ú¸ÕÀÉ.rar (18.78 KB)

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD