- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2020-4-14 18:27 ½s¿è
¦^´_ 5# Scott090
½Ð¤F¸Ñ ºô¶±±¨î¶µ¤º®e
--https://invest.cnyes.com/twstock/tws/2330/history- '****¿ï¾Ü®É¶¡°Ï¶¡ªº¦U«ö¶s [ ºô¶±±¨î¶µ¤º®e] ********
- '<button class="jsx-197276814 period_btn" data-period="1d">1¤é</button>
- '<button class="jsx-197276814 period_btn" data-period="5d">5¤é</button>
- '<button class="jsx-197276814 period_btn" data-period="3m">3¤ë</button>
- '<button class="jsx-197276814 period_btn" data-period="6m">6¤ë</button>
- '<button class="jsx-197276814 period_btn" data-period="thisYear">¤µ¦~¥H¨Ó</button>
- '<button class="jsx-197276814 period_btn" data-period="1y">1¦~</button>
- '<button class="jsx-197276814 period_btn" data-period="5y">5¦~</button>
- '<button class="jsx-197276814 period_btn" data-period="10y">³Ì¤j</button>
- '<button class="jsx-197276814 period_btn period_btn--active" data-period="3m">3¤ë</button>
- '****¿ï¾Ü®É¶¡°Ï¶¡«á«ö¤U (®M¥Î) ªº«ö¶s [ ºô¶±±¨î¶µ¤º®e] ********
- '<button class="jsx-197276814 action_submit">®M¥Î</button>
- ''****¿ï¾Ü®É¶¡°Ï¶¡«á«ö¤U(®M¥Î)«ö¶s©ÒÅã¥Üªº¤é´Á [ ºô¶±±¨î¶µ¤º®e] ********
- '<span class= "jsx-197276814 btn_txt">2020/04/09 - 2020/04/14</span></button>
- ''****ºô¶©ÒÅã¥ÜªÑ²¼ªº¦WºÙ [ ºô¶±±¨î¶µ¤º®e] ********
- '<h2 class="jsx-969407034 jsx-1444699802 sub_title">¥x¿n¹q</h2>
½Æ»s¥N½X Ū¨úºô¶¸ê®Æªºµ{¦¡½X ½Æ»s¦b¦P¤@¼Ò²Õ¤¤- Option Explicit
- Sub Ex_¹d¦ëºô_¾ú¥v»ù®æ()
- Dim e As Object, R As Double, C As Integer
- Àˬd
- Application.ScreenUpdating = False
- With CreateObject("InternetExplorer.Application")
- ' .Visible = True
- .Navigate "https://invest.cnyes.com/twstock/tws/" & [B1] & "/history"
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- If InStr(.Document.BODY.INNERTEXT, "±z·Q¬Ýªº¶±¤£¦s¦b") Then
- .Quit ''** ±z·Q¬Ýªº¶±¤£¦s¦b
- MsgBox [B1] & " §ä¤£¨ì ??? ": End
- End If
- For Each e In .Document.ALL.TAGS("BUTTON") '**«ü©w®É¶¡°Ï¶¡
- If e.CLASSNAME = "jsx-197276814 period_btn" And e.INNERTEXT = [D1].Text Then e.Click: Exit For
- Next
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- For Each e In .Document.ALL.TAGS("BUTTON") '**«ü©w®É¶¡°Ï¶¡«á«ö¤U(®M¥Î)Áä
- If e.CLASSNAME = "jsx-197276814 action_submit" And e.INNERTEXT = "®M¥Î" Then e.Click: Exit For
- Next
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- For Each e In .Document.ALL.TAGS("H2") '**Åã¥ÜªÑ²¼ªº¦WºÙ
- If e.CLASSNAME = "jsx-969407034 jsx-1444699802 sub_title" Then Range("B2") = e.INNERTEXT: Exit For
- Next
- For Each e In .Document.ALL.TAGS("SPAN") '**Åã¥Ü©Ò«ü©wªº®É¶¡°Ï¶¡
- If e.CLASSNAME = "jsx-197276814 btn_txt" Then Range("D2") = e.INNERTEXT: Exit For
- Next
- '*********************µ¥Ô¸ê®Æ¤U¸ü§¹¦¨***********************************************
- Do While .Busy Or .readyState <> 4 And .Document.ALL.TAGS("table")(0) Is Nothing: DoEvents: Loop
- '********************¸ê®Æ¤º®e¾É¤J¤u§@ªí***********
- With .Document.ALL.TAGS("table")(0)
- For R = 0 To .Rows.Length - 1
- For C = 0 To .Rows(R).Cells.Length - 1
- Cells(R + 3, C + 1) = .Rows(R).Cells(C).INNERTEXT
- Next
- Next
- End With
- .Quit '*********Ãö³¬ºô¶
- End With
- [f1] = "***¸ê®Æ¤U¸ü §¹¦¨***"
- Exit Sub
- End Sub
- Private Sub Àˬd()
- ''**¿ï¾Ü®É¶¡°Ï¶¡-> Range("B2") ªº³B¦s®æ ¾É¤J[ÅçÃÒ¸ê®Æ]
- With Range("D1").Validation
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:="1¤é,5¤é,3¤ë,6¤ë,¤µ¦~¥H¨Ó,1¦~,5¦~,³Ì¤j" '
- End With
- If [B1] = "" Or [D1] = "" Then '** Range("B2") »Ý¬OªÑ²¼¥N¸¹
- MsgBox "ªÑ²¼¸¹½X?? Or ®É¶¡°Ï¶¡ >>"
- End '***µ²§ôµ{¦¡
- End If
- UsedRange.Offset(1).Clear
- [f1] = "***¸ê®Æ¤U¸ü¤¤....***"
- Application.ScreenUpdating = True
- Application.Wait (Time + #12:00:01 AM#)
- End Sub
½Æ»s¥N½X |
|