ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤@­Ó¥ÎVBA±qºô­¶¨ú±o·Q­n¸ê®Æªº¼gªk~

¦^´_ 16# cji3cj6xu6
¸Ô¬ÝÀɮפºªºµ{¦¡½X

    Tset.rar (215.91 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

sorry, XXXX ¬O­ÓÅܼơA§Ñ¤F¼g¶i¥h¡ã

TOP

½Ð°Ý­Y¬O§Ú·Q­n§ì¨ú¥H¤U¸ê®Æ¡A¨ä¤¤ªºXXXX¬°ªÑ²¼¥N¸¹¡A½Ð°Ý­n¦p¦ó±NXXXX±a¤JVBA
http://money.hinet.net/z/z0/z00/z00a_XXXX_2013-4-6_2013-6-11_D.djhtm

ÁÂÁ¡ã

TOP

§Úªº¤è¦¡¤ñ¸û²Â¡A¥ý¦s¨ì¤@­ÓÀɮפ¤¡AµM«á¦AÂ^¨ú§Ú­nªº³¡¤À
¦A§Q¥ÎvbaÂà¨ì§Ú­nÆ[¹îªºÀɮ׸̡C

TOP

¦U¦ì¤j¤j½Ð°Ý¤@¤U:
¤pªº§Q¥Î4¼Ó¤Î6¼Ó¤j¤jªº¤º®e°µ¾Ç²ß´ú¸Õ¡A
¬°¦ó­è¶}©l³£Â^¨úºô­¶¤º®e«Ü¶¶§Q¡A
¦ý´ú¸Õ´X¦¸¹L«á«oµo¥Íµ{¦¡¤@ª½¦b¤U­±°j°é¶

With ie
        .Visible = False 'True¬°¶}±Òie, False¬°¤£¶}±Òie
        .Navigate url
        Do While .ReadyState <> 4 'µ¥«Ýºô­¶¶}±Ò
        DoEvents
        Loop

¿W¦Û¥´¶}ºô­¶¤]¨S¦³°ÝÃD¸ê®Æ¤@¤Á¥¿±`¡A
¦ý¬O§Ú±N ³o¬q§ï¦¨.Visible = Ture
VBA¥´¶}ªººô­¶«o¤@ª½µLªkŪ¨ú¡A½Ð°Ý³o¬O­þ¥X¤F°ÝÃD??
§Æ±æ¦U¦ì«e½ú½ç±Ð!!!ÁÂÁÂ
Nicole

TOP

I copied you codes but it doesn't work.
However, I'm new to this forum & do not have enough point to download your ademo.zip.
Could you please post your codes in ademo.zip for my reference ?


¤p§Ì´£¨Ñ¥t¤@­Ó¤è¦¡¥Îxmlhttp¨Ó§ì¨ú, µM«á¦b¦Û¤v¸ÑªR»Ý­nªº¸ê®Æ
§Ú¤§«e¬O¥Î¦basp¤W, vbaÀ³¸Ó¤]¬O¥i¥H¨Ï¥Îªº ...
arksu µoªí©ó 2012-5-3 00:12

TOP

«z  ­ì¨Ó°£¤FqueryTable ,
ÁÙ¦³³o¨Ç¤èªk¥i¥HÂ^¨úºô­¶¸ê®Æ
copy & paste ,  XmlHttp
µ§°O¤@¤U , ¥H«á¤]³\·|¥Î¨ì
·PÁ«e´X¼Ó¤À¨É

TOP

ÁÙ¬O¤£¤F¸ÑExecWB ªº¹B§@
¦ý¬O·PÁ¤À¨É!

TOP

¦^´_ 8# c_c_lai


§Ú²³æ¼g¤F­Ó½d¨Ò, ±z°Ñ¦Ò¤@¤U

excel¤@¶}±Ò´N§ì¨úºô­¶¤º®e¥Îmsgbox¨q¥X¨Ó

ademo.zip (14.29 KB)

TOP

¦^´_ 7# arksu
objXmlHttp.Open("GET", url, False) µ¥¼Ò²ÕµLªk¨Ï¥Î¡A
¥i¯à¶·­n¦A¤J¨ä¬Û¹ï DLL¡A¦ý§Ú¹ï VBA ¤£±E¡A
½Ð°Ý¸Ó¦p¦ó³]©w¡H

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD