[µo°Ý]VBA§ì¨ú.PHP¶°ÝÃD??
- ©«¤l
- 81
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 95
- ÂI¦W
- 314
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-29
- ³Ì«áµn¿ý
- 2024-11-9
|
[µo°Ý]VBA§ì¨ú.PHP¶°ÝÃD??
¦U¦ì¥ý¶i
¤£¤~¦bºô¸ô¤W¬Ý¨ì¤@¬q§ì¨úÂd¶R.phpªº¸ê®Æ,ì¤å¦p¤U
Sub Macro1()
Dim i As Integer, j As Integer, k As Integer
URL$ = "http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php"
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate URL
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
.Document.all("input_stock_code").Value = 6121 'n¬dªº¥N½X
.Document.all(1758).Click <=====¥¨¶°°õ¦æ¨ì¦¹´N¿ù»~,½Ð°Ý³o¤@¦æ¬O¬°¦ó·N,§ä¤F«Ü¤[¬d¤£¥X¬O¦ó·N
Application.Wait Now + TimeValue("00:00:02") 'µ¥«Ý2¬í§ó·s¸ê®Æ
Set tmp = .Document.getelementsbytagname("table")(79) <==== (79)¤S¬O¦ó·N??
k = 1
Cells(k, 1) = tmp.Rows(0).innertext
Cells(k, 1).WrapText = False
For i = 1 To tmp.Rows.Length - 1
k = k + 1
For j = 0 To tmp.Rows(i).all.Length - 1
Cells(k, j + 1) = tmp.Rows(i).Cells(j).innertext
Next
Next
k = k + 1
Set tmp = .Document.getelementsbytagname("table")(82)<==== (82)¤S¬O¦ó·N??
For i = 0 To tmp.Rows.Length - 1
k = k + 1
For j = 0 To tmp.Rows(i).all.Length - 1
Cells(k, j + 1) = tmp.Rows(i).Cells(j).innertext
Next
¦]ìºô¶´N¦b¿é¤J 6121 ´N°±¦í¤F,¥¼¯àIJµoºô¶±a¥X¸ê®Æ,¬G«áÄòªº table ´NµLªk§ì¥X¼Æ¾Ú±a¤Jexecl,½Ð°Ý¥ý¶i»Ý¦p¦óקï¤~¦n..TKS!! |
|
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-9
- ³Ì«áµn¿ý
- 2020-12-30
|
½Ð°Ý¤j¤j, ¦pn¬d¨ä¥LªÑ²¼,À³¦p¦óקï.TKS¡I¡I |
|
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-9
- ³Ì«áµn¿ý
- 2020-12-30
|
¦^´_ 6# chen_cook
·PÁ chen_cook ¤j¤j¦^µª, ¦]¬OVBA·s¤â¦b¨Ï¥Î¤W¦³³\¦h¤£©ú¥Õ¦a¤è, ¦p¤è«K¸Ü¥i§_¤ñ·Ó1#,2# ªº¨Ò¤l.±NCODE ¶K¤W°Ñ¦Ò. TKS!!! |
|
|
|
|
|
|
¡@¼ÊºÙ: ¨F©Ôªo ¡@ÀY»Î: ¥¿´äA¤ô¹q¤u
¶W¯Åª©¥D
- ©«¤l
- 44
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 49
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP SP3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- §b¤Y
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2013-1-27
|
|
¤@§Z¤T¥|¡BÅå¨ìåF¥N»x
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-9
- ³Ì«áµn¿ý
- 2020-12-30
|
ÁÂÁ¦^µª,§Ú¤£¬O·Q"¤£³Ò¦ÓÀò"¦Ó¬O¯uªº¤£·|,¯uªº·Q¾Ç,¤~·|¦b³o´£¥X°ÝÃD¡C(¦p¤j¤j¤]¬O4¦~¯Å¸Ü¡AÀ³¸Ó·|Åé½Ì§Ú̳o¤@¶¥¬qªº¤H,¦b¹q¸£ªºª¾ÃѬO¦³³\¦h¤£¨¬¤§³B)... ¦A¦¸ÁÂÁ¤j¤j¦^µª. |
|
|
|
|
|
|