¤£¦n·N«ä,¨D±Ð©ó¦U¤è°ª¤â...
- ©«¤l
- 17
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 56
- ÂI¦W
- 0
- §@·~¨t²Î
- Window10
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-12-4
- ³Ì«áµn¿ý
- 2022-6-16
|
¤£¦n·N«ä,¨D±Ð©ó¦U¤è°ª¤â...
¦U¦ì°ª¤â±z̦n:
¤p§ÌÃö©ó©³¤Uªºµ{¦¡½X¦³¨âÓ°ÝÃD¤w§xÂZ«Ü¤[,©l²×±o¤£¨ì¸Ñµª,¯à§_½Ð°ª¤â̸ѵª¤@¤U ??
Sub Goodinfo()
'*******************************************************************************************
'°ÝÃD 1 **********************
Sheets("pºâ¾÷ªí®æ").Select '¤Á´«¨ì ¨¾¿mªí®æ,¨Ã¶}©l¤U¸ü¸ê®Æ
Sheets("EPSªí®æ").Select
Columns("Z:CZ").Select
Selection.Clear '²MªÅ ¨¾¿mªí®æ¤¤ªº ªº°]³ø¸ê®Æ
Sheets("¨¾¿mªí®æ").Select
Columns("Z:CZ").Select
Selection.Clear '²MªÅ ¨¾¿mªí®æ¤¤ªº ªº°]³ø¸ê®Æ,
'µM«á,±q ¨¾¿mªí®æ¶}©l¤U¸ü·sªº°]³ø¸ê®Æ
'*******************************************************************************************
Sheets("pºâ¾÷ªí®æ").Select '¤Á´«¨ì ¨¾¿mªí®æ,¨Ã¶}©l¤U¸ü¸ê®Æ
¤½¥q¥N¸¹ = 8086
©u«×¥N¸¹ = 20151
'°ÝÃD 2 *****************
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.moneydj.com/z/zc/zc30.djhtm?b=Y&a=" _
& ¤½¥q¥N¸¹, Destination:=Range("$Z$100"))
"URL;https://goodinfo.tw/StockInfo/StockFinDetail.asp?
RPT_CAT=BS%5FM%5FQUAR&STOCK_ID=" _
¤½¥q¥N¸¹ & "QRY_TIME=" ©u«×¥N¸¹, Destination:=Range("$Z$100"))
"URL:https://goodinfo.tw/StockInfo/StockFinDetail.asp?
RPT_CAT=BS%5FM%5FQUAR&STOCK_ID="
2330&QRY_TIME=20171, Destination:=Range("$Z$100"))
.Name = "zc3a0_" & ¤½¥q¥N¸¹ & ".djhtm"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
°ÝÃD 1: ¦¹¬qµ{¦¡½X¬O¨Ï¥Î "¿ý»s¥¨¶°"ªº¤è¦¡·Ó§Û¤U¨Óªº,¦ýµoı¸ê®Æ²M¤£°®²b,
¨C¦¸ Download,³£·|¨ÏÀɮ׶V¨Ó¶V¤j,°õ¦æ³t«×¶V¨Ó¶VºC,¬Æ¦Ü¨ì¹F¸Ø±iªºµ{«×,
§ÚÓ¤H»{¬°¬O clear«ü¥O¥u²M°£ "cell¤º®e"¦Ó¨S¦³²M°£ "cell®æ¦¡",¦Ó¥B "cell®æ¦¡"·|
²Ö¥[,¾ÉPÀÉ®×ÀHµÛDownload¦¸¼Æ¼W¥[¦Ó¶V¨Ó¶V¤j,¦ý¬O,³o¥u¬O§Úªº²q´ú,§Ú¤£ª¾¯u¥¿
ì¦],¤]§ä¤£¨ì¸Ñ¨M¤èªk.
§Ú¤§©Ò¥H·|°µ¦¹¤@²q´ú,¬O¦]¬°¨Ï¥Î¤â°Ê²M°£¤º®e¬O¥i¥H§¹¬üªº²M¼ä°®²b,Àɮפj¤p
¤£·|ÀHDownload¦¸¼Æ¦Ó²Ö¥[,¦ý¬O¥Î¿ý»s»E¶°ªº¤è¦¡±o¨ìªºµ{¦¡½X´N²M¤£°®²b.
°ÝÃD 2: ³o¤T¬q ºô§}Download ¥u¦³²Ä¤@¬q¬O¥¿±`¥i¥H¨Ï¥Îªº(moneydj),¨ä¾l¨â¬q URL
³£¬O¿ù»~ªº,·íµM,¥L̪ººô§}¤£¦P,¦ý¬O¨ä¹ê¤]¥u¬O§Ú·Qn¾ú¥v¸ê®Æ,©Ò¥H¥²¶·´«ºô§}
¨Ó¤Þ¤J "©u«×¥N¸¹"¦¹¤@ÅܼÆ,moneydj¥»¨¨S¦³¾ú¥v¸ê®Æ¥i¥H¨Ï¥Î,§Ú·Q½Ð°Ý,
²Ä¤G¬qURL»P²Ä¤T¬qURL§Ú¿ù¦bþ¸Ì??¤×¨ä¬O²Ä¤G¬q»P²Ä¤T¬q¨ä¹ê¥u¬O¨SÅܼƤƦӤw,
À³¸Ó¬O¤@¼Ò¤@¼Ëªº.
ÁÂÁ¦U¦ì°ª¤âªºÀ°¦£!! |
|
|
|
|
|
|