- ©«¤l
- 15
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- vba
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-3-8
- ³Ì«áµn¿ý
- 2024-11-5
|
[µo°Ý] Âd¶R¤¤¤ß¤T¤jªk¤H¶R½æª÷ÃB²Îpªí¤Î¿Ä¸ê¾lÃBµLªk¤U¸ü
¤£¦n·N«ä¡A½Ð°Ý¤@¤U«e½úÌ
¤p§Ì°Ñ¦Ò¥H¤U¤è¦¡¼g¤F¥N½Xµo¥Í¤W±¨â±i¹Ï¡A¬õ®Ø³BµLªk¥¿±`¤U¸ü³øªí¤ºªº¼Æ¦r
ºÃ¦ü³o¨âÓºô¶¦³¾×¤U¨Ó¡A½Ð°Ý³oÓ¦p¦ó±Æ°£- Option Explicit
- Sub Ex_Âd¶R¤¤¤ß¤T¤jªk¤H¶R½æª÷ÃB²Îpªí()
- Dim i As Integer, S As Integer, k As Integer, A As Object, ii, j
- With CreateObject("InternetExplorer.Application")
- ' .Visible = True
- '.Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201503/201503_F3_1_8_2485.php&type=list"
- .Navigate "http://www.tpex.org.tw/web/stock/3insti/3insti_summary/3itrdsum.php?l=zh-tw"
- 'http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U.php
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- Ep .document.getElementsByTagName("div")(40).outerHTML
- .Quit 'Ãö³¬ºô¶
- End With
- End Sub
- Sub Ep(S As String)
- Dim D As New DataObject
- 'DataObject ª«¥ó ¦b¶i¦æÂà´«°Ê§@®É¡A°µ¬°®æ¦¡¤Æ¤å¦r¸ê®Æªº¼È¦s°Ï°ì¡C¨ä¤]¥i¥H¼È¦s©MÀx¦s¦b DataObject ªº¤å¦r¤ù¬q¬ÛÃöªº®æ¦¡¡C
- '«Å§i Dim D As New DataObject '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Forms 2.0 Object Library ,©Î©ó±M®× ¥[¤J¤@ªí³æ§Y¥i
- With D
- .SetText S
- .PutInClipboard
- With Sheets("ÃÒ¨é¤W¥«Âd¤T¤jªk¤H")
- .Range("k6:z18").Clear
- .Range("k6").Select
- .PasteSpecial Format:="Unicode ¤å¦r"
- End With
- End With
- End Sub
- Option Explicit
- Sub Ex_Âd¶R¤¤¤ß«H¥Î¥æ©ö²Îp()
- Dim i As Integer, S As Integer, k As Integer, A As Object, ii, j
- With CreateObject("InternetExplorer.Application")
- ' .Visible = True
- '.Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201503/201503_F3_1_8_2485.php&type=list"
- .Navigate "http://www.tpex.org.tw/web/stock/3insti/3insti_summary/3itrdsum.php?l=zh-tw"
- .Navigate "http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal.php?l=zh-tw"
- 'http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal.php?l=zh-tw
- 'http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U.php
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- Ep .document.getElementsByTagName("div")(8).outerHTML
- .Quit 'Ãö³¬ºô¶
- End With
- End Sub
- Sub Ep(S As String)
- Dim D As New DataObject
- 'DataObject ª«¥ó ¦b¶i¦æÂà´«°Ê§@®É¡A°µ¬°®æ¦¡¤Æ¤å¦r¸ê®Æªº¼È¦s°Ï°ì¡C¨ä¤]¥i¥H¼È¦s©MÀx¦s¦b DataObject ªº¤å¦r¤ù¬q¬ÛÃöªº®æ¦¡¡C
- '«Å§i Dim D As New DataObject '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Forms 2.0 Object Library ,©Î©ó±M®× ¥[¤J¤@ªí³æ§Y¥i
- With D
- .SetText S
- .PutInClipboard
- With Sheets("ÃÒ¨é¤W¥«Âd¤T¤jªk¤H")
- .Range("K6:Z18").Clear
- .Range("K6").Select
- .PasteSpecial Format:="Unicode ¤å¦r"
- End With
- End With
- End Sub
½Æ»s¥N½X |
|