- ©«¤l
- 83
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 105
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-12-28
- ³Ì«áµn¿ý
- 2018-8-8
|
[µo°Ý] ½Ð±ÐMSXML2.XMLHTTP©MInternetExplorerªº²§¦P
¦U¦ì¦n¡I¤p§Ì¦b³o¸Ì¬Ý¨ì¦U¦ì°ª¤âªºCODE¡A²×©ó²¤À´VBAªº¥Ö¤ò¡A´£¤É¤é±`¤u§@ªº®Ä²v¡AÁÂÁ¤j®a¡C¦ý
§Ú¹ïVBA«Ü¦h¦a¤è¤´µM¨S¯à´x´¤¡A§Æ±æ¤j®a¯à«ü±Ð«ü±Ð¡C
¦pªG§Úªºµ{§Ç»Ýn¨ìºô¯¸§ä¸ê®Æ®É¡A§Ú·|¨Ï¥Î³o¨â²Õ¡G- XMLHTTP= CreateObject("MSXML2.XMLHTTP.6.0")
- XMLHTTP.Open "GET", URL
- ©Î
- objIE = CreateObject("InternetExplorer.Application")
- objIE.Navigate URL
½Æ»s¥N½X ¨Ì§Ú²z¸Ñ¡A³o¨â²Õ¥N½X¬OŪ¨ú¸ÓPAGEªºHTML½X
¦ý§Ú¹ï¥¦Ì¦³«Ü¦hºÃ°Ý¡G
1) MSXML2.XMLHTTP.6.0 ¥i¥H¥ÎPOST ©ÎGET ¡A«eªÌ»Ýn§ÚSEND DATA¨ìºô¯¸§@¬d¸ß¡A¦ý
http://stock.finance.sina.com.cn/hkstock/finance/02317.html#a4
¦pªG§Ú·Q§ïÅÜ¥k±¿ï¾ÜÄ檺³øªíÃþ«¬¡A¬O§_¥i¥H¥ÎMSXML2.XMLHTTP.6.0 ªºPOST & SENDªº¤èªk¡H¦ý§Ú¨S¦³¬ã¨s¦¨¥\¡A¥u¯à¥ÎobjIE = CreateObject("InternetExplorer.Application")¥h¾Þ§@
2) CreateObject("MSXML2.XMLHTTP.6.0")¬O§_¥i¥H§¹¥þ¨ú¥NCreateObject("InternetExplorer.Application")¡H¦³®ÉÔ¦bLOOPING¡AIE·|°±¤î¤£°Ê¡A¦³ÂI³Â·Ð¡C
3) ¦b¨Ï¥ÎCreateObject("InternetExplorer.Application")®É¡A·í§Ú¶ñ¼g¤F¸ê®Æ¦A«ö.Submit«á¡A§Ú·|¦³¤@¬q¥N½X- do until instr(.document.body.innerhtml,"XXX")>0
- sleep 50
- doevents
- loop
½Æ»s¥N½X ¨Ó§PÂ_¸Ó¶±¬O§_¤w§¹¦¨Åª¨ú(§Ú´¿¥ÎreadyState<>4¡A¦ý¦n¹³¥¢±Ñ)¡A¦pªG·í®Éºô³t¤£¨Î¡Aexcel·|Åã¥Ü¨S¦³.document.body.innerhtmlªºOBJECT(Ãþ¦üªº¦r²´)¡A§Ú»ÝnRERUN¥N½X¤~¯àÄ~Äò¡C§Y¨Ï§Ú¥Î¡Gdo until not .document.body.innerhtml is nothing t¤]·|¥X²{ERROR....
4) §Ú·Q¥Î³o¨â²Õ¥N½XŪ¨ú³oºô¯¸ªº³ø»ù¸ê®Æ¡A¦ý¨âÓ³£¤£¦¨¥\¡A¬Ý¤FŪ¦^¨ÓªºHTML CODE¡AªÑ»ù¸ê®Æ¬OªÅªº¡A¦ý§Úª½±µ¬Ý³oÓºô¯¸®É¡A¥¦ªºHTML CODE¬O¥]¬A³ø»ù¸ê®Æ¡C³B²z³o¨Çºô¯¸®É¦³¨S¦³¯S§Oªº³B²z§Þ¥©¡H
http://www.etnet.com.hk/www/tc/stocks/realtime/quote.php?code=2317 |
|