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

[µo°Ý] ¨ú¥Xºô­¶¸ê®Æ·|¥X²{«ü©w¦~¤ë¤£¦X

[µo°Ý] ¨ú¥Xºô­¶¸ê®Æ·|¥X²{«ü©w¦~¤ë¤£¦X

¦U¦ì¤j¤j¦n¡G
   
  ¤p§Ì¥¿¦b¾Ç²ß¦p¦ó¨ú±oºô­¶¸ê®Æ¡C
¤]¤Þ¥ÎGBKEEª©¥D¤j¤jªº»yªk¡A¨Ã
¨Ì«ü©wºô­¶¨Ó¨ú¥X¸ê®Æ¡A¦ý¥X²{¹ê»Ú
«ü©w¨ú¥Xªº¦~¤ë«o¤£¦X¡C½Ð°Ý¦U¦ì¤j¤j
¤p§ÌÀ³¦p¦ó­×§ï¤U¦C»yªk©O¡H

ÁÂÁ¦U¦ì¤j¤j¡I

Sub Ex()

    Dim i As Integer, s As Integer, k As Integer, A, ii, j
    Dim STK_NO As String     'ªÑ²¼¥N½X 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")  '¤v¸g«ü©w¦~¥÷¡A¦ý¹ê»Ú¨Ã¨ú±o«ü©w¦~¥÷
                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")  '¤v¸g«ü©w¤ë¥÷¡A¦ý¹ê»Ú¨Ã¨ú±o«ü©w¤ë¥÷
                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) = "¬d¸ß" 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      '¼g¤J¸ê®Æ
                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

ÁÂÁ¦U¦ì¤j¤j¡I

¦^´_ 1# dechiuan999
  1. Option Explicit
  2. Sub Ex_­ÓªÑ¤é¦¨¥æ¸ê°T()
  3.     Dim i As Integer, s As Integer, k As Integer, A As Object, ii, j
  4.     Dim STK_NO As String    'ªÑ²¼¥N½X INPUT
  5.    ' Dim myear As String     '¦~«× SELECT
  6.    ' Dim mmon As String      '¤ë¥÷ SELECT
  7.     STK_NO = "2485"
  8.     With CreateObject("InternetExplorer.Application")
  9.         .Visible = True
  10.         .navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAYMAIN.php"
  11.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  12.         With .document
  13.             .getelementsbytagname("INPUT")("STK_NO").Value = STK_NO
  14.             .getelementsbytagname("SELECT")("myear").Value = Year(Date)      '2014
  15.             .getelementsbytagname("SELECT")("mmon").Value = Month(Date)      '7 ¤ë
  16.             
  17.             '.getelementsbytagname("SELECT")("myear").Value = Year(Date) - 1 '2013
  18.             '.getelementsbytagname("SELECT")("mmon").Value = Month(Date) - 1 '6 ¤ë
  19.                     
  20.             .getelementsbytagname("INPUT")("login_btn").Click
  21.         End With
  22.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  23.         Do
  24.             Set A = .document.getelementsbytagname("table")
  25.         Loop While A Is Nothing
  26.         If InStr(A(6).innertext, "¬dµL¸ê®Æ:") Then
  27.             MsgBox A(6).innertext
  28.         Else
  29.             With ActiveSheet
  30.                 .Cells.Clear
  31.                 For i = 0 To A(7).Rows.Length - 1      '¼g¤J¸ê®Æ
  32.                     k = k + 1
  33.                     For j = 0 To A(7).Rows(i).Cells.Length - 1
  34.                         .Cells(k, j + 1) = A(7).Rows(i).Cells(j).innertext
  35.                     Next
  36.                 Next
  37.             End With
  38.         End If
  39.         .Quit        'Ãö³¬ºô­¶
  40.     End With
  41. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


  ª©¥D¤j¤j±z¦n¡G


ÁÂÁ±zªº«üÂI¡C
¤p§Ì¹ï¦¹»yªk¤´¦³³\¦hºÃ´b
©|½Ðª©¥D¤j¤j©ú¥Ü

Set A = .document.getelementsbytagname("table")
ªí¥Ü³]©wAª«¥ó¨Ó¨ú±oªð¦^带¦³«ü©wTABLE¼ÐÅÒ¦Wªº¹ï¶H¶°¦X¡C
¦Ó»yªk¤¤¦³¨Ï¥Î¨ì
A(6) ¤Î A(7)
¤p§Ì¤@ª½µLªk®©¥X¨ä¨ç·N¬°¦ó©O¡H

TOP

¦^´_ 3# dechiuan999
  1. Do
  2.             Set A = .document.getelementsbytagname("table")
  3.         Loop While A Is Nothing
  4.         If InStr(A(6).innertext, "¬dµL¸ê®Æ:") Then
  5.             MsgBox A(6).innertext
  6.         Else
  7.             Dim A_Length As Integer
  8.             With ActiveSheet
  9.                 .Cells.Clear
  10.                 k = 1
  11.                 For A_Length = 0 To A.Length - 1
  12.                     
  13.                     '*** A(6) ¤Î A(7) ¤p§Ì¤@ª½µLªk®©¥X¨ä¨ç·N¬°¦ó©O¡H ***
  14.                      .Cells(k, "A") = "table.Item  " & A_Length
  15.                     .Cells(k, "A").Interior.Color = vbYellow                    
  16.                     '********************************************
  17.                   
  18.                     For i = 0 To A(A_Length).Rows.Length - 1      '¼g¤J¸ê®Æ
  19.                         k = k + 1
  20.                         For j = 0 To A(A_Length).Rows(i).Cells.Length - 1
  21.                             .Cells(k, j + 1) = A(A_Length).Rows(i).Cells(j).innertext
  22.                         Next
  23.                     Next
  24.                     k = k + 1
  25.                 Next
  26.             End With
  27.         End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


    ÁÂÁª©¥D
¤p§Ì¤w§¹¥þ¤F¸Ñ¡C

·P®¦¤j¤j¡I

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD