¿é¤JªÑ²¼¥N¸¹,¸ê®Æ¤º®eÅã¥Ü©ó¤w½s¿èªºªí®æ¤º
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
¿é¤JªÑ²¼¥N¸¹,¸ê®Æ¤º®eÅã¥Ü©ó¤w½s¿èªºªí®æ¤º
¦U¦ì¤j¤j¦n~¦³¤p¤p°ÝÃD·Q½Ð±Ð
¥Ø«eÁÙ¦b¾Ç²ßVB¤¤,§Æ±æÂǥѹê°Èªº×§ï
±q¤¤¶¡¶}©l¬ã¨s,¾Ç²ßVB
¥Ø«e¥\¯à¡G
¥i¥H¦bA1¿é¤J¥N¸¹¬d¸ßªÑ§Q¸ê®Æ
¨Ã¥BÅã¥Ü¦bA3
¦ý~ªí®æ¤£¯à½s¿è
°ÝÃD¡G
¡¶§Ú»Ýn½s¿è,·Qn¦Û¦æ³]p¤@Óªí®æ®æ¦¡
ÅýA3¿é¥Xªº¸ê®Æ¦b§Ú½s¿è¦nªºªí®æ®æ¦¡¤º
¡¶A1¿é¤J¤£¬O¥¿½TªºªÑ²¼¥N¸¹®É,©ÎªÌªÅ®æ¨S¿é¤J
¯à§_¦bB1Åã¥Ü"½Ð¿é¤J¥¿½TªÑ²¼¥N¸¹"
½Ð°Ý¥H¤W¦p¦ó¹ê²{?
¥H¤U¬Oµ{¦¡¥N½X- Private Sub CommandButton1_Click()
- Dim strURL$ '«Å§istrURL¬°ÅܼÆ
- strURL = "https://tw.stock.yahoo.com/d/s/dividend_" & [A1].Value & ".html" '©w¸qstrURLÅܼƤº®e
- [A3].CurrentRegion.Clear
- With ActiveSheet.QueryTables.Add("url;" & strURL, Range("a3"))
- .WebFormatting = xlWebFormattingNone '(NONE)¤£¥]§t®æ¦¡,(ALL)¥]§t®æ¦¡
- .WebSelectionType = xlSpecifiedTables '«ü©wtableªí®æ¼Ò¦¡
- .WebTables = "8" '²Ä8Ótableªí®æ
- .Refresh False
- End With
- End Sub
½Æ»s¥N½X «D±`·PÁÂ... |
|
|
|
|
|
|
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
¦nªº,·PÁÂGBK¤j
¥Ø«e´ú¸ÕOK!¤]§â¥¨¶°½Æ»s¶i¥h¤F!!
»ÝnªáÂI®É¶¡¬ã¨s~µ{¦¡½X©¿µMÃz¬µ©Ê¦¨ªø¤F«¢
ÁÂÁÂ~~~~³oÓºô§ìµ{¦¡½X½T¹ê¦n¥Î!!
±j! |
|
|
|
|
|
|
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
ex2.rar (20.09 KB)
ªþ¤WÀÉ®×~~~~~
¦A¦¸·PÁ¤j¤j!!! |
|
|
|
|
|
|
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
GBK¤j~~§Ú¤S¨Ó¤Fªü!!«¢«¢
¤w¸g¶}©l¦b¬ã¨s±zªºµ{¦¡½X¤F~!!
¥Ø«e¤S¹J¨ì2Ó¤p°ÝÃD
@
A3¸ê®Æ§e²{½T¹ê¥i¥H½s¿èªí®æ¤º¤å¦rÃC¦âI´ºµ¥µ¥ªº!³oÃä¬OOK!
¦ý¬O"Äæ¼e"³¡¤À ·|¶]¦^¥h
"Äæ¼e"¬O§_¥i¥H¹ê²{¦p¦P¤å¦rÃC¦âI´º¤@¼Ë,¯à°÷¦Û¾AÀ³?
@
¦b¬d¸ß¥¢±Ñ,B1·|Åã¥Ü"½Ð¿é¤J¥¿½TªÑ²¼¥N¸¹"
³o³¡¤À§¹¬ü!¥i¨Ï¥Î!!¥¿±`¹B§@!!
¨º¤Ï¤§,¦pªG¬d¸ß¦¨¥\¤F,B1®æ¤º´N·|"ªÅ¥Õ"
©Ò¥H§Ú·Q»¡
¬O§_¥i¥H¹ê²{¬d¸ß¦¨¥\,"B1"´NÅã¥Ü©Ò¿é¤JªºªÑ»ù¥N¸¹¥H¤Î¦WºÙ?
·PÁÂGBK¤j¤j~~±z¨¯W¤F~~~~!!!! |
|
|
|
|
|
|
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
§¹¥þ¥i¥H¨Ï¥Î!!
GBª©¤j«D±`ªº·PÁ±z
¯uªº«Ü¼F®`!
¦^®a«á·|¦n¦n¬ã¨s±z¥Ø«eªº¨ç¼Æ
§â¥¦¦n¦n¾Ç°_¨Ó!!
·|¦A«×¨Ó¥´ÂZ±zªº!!«¢«¢!!!
¯¬¤@¤Á¶¶¤ß ¨Åé°·±d °]·½ºuºu~~ |
|
|
|
|
|
|
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
EX1.rar (17.5 KB)
µæ³¾§Ú¤w¸g²³æªº§âªí®æ¤ºµÛ¦â
ÁÙ¦³¥Î¤F²³æ®Ø½u¥H¤Î¦r«¬
¥Dn¬O§Æ±æ¥´¤JªÑ²¼¥N¸¹«á
A3©Ò§e²{ªº¸ê®Æ®æ¦¡¬O¨Ì·Ó§Ú¥H¤W©Ò½s¿èªºªí®æ¤º®æ¦¡
°ÝÃD¡G
¡¶
ÅýA3¿é¥Xªº¸ê®Æ¦b§Ú¬ü¤Æ¦nªºªí®æ¤º
¡¶
A1¿é¤J¤£¬O¥¿½TªºªÑ²¼¥N¸¹®É,©ÎªÌªÅ®æ¨S¿é¤J
¯à§_¦bB1Åã¥Ü"½Ð¿é¤J¥¿½TªÑ²¼¥N¸¹"
½Ð¨D¦U¸ô¤j«LÀ°§U!!! |
|
|
|
|
|
|
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
EX1.rar (17.78 KB)
ªþ¤WÀÉ®×
¤j¤O³»¤W¥h |
|
|
|
|
|
|