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

VBA¬d¸ßºô­¶¶×¤J

VBA¬d¸ßºô­¶¶×¤J

¥»©«³Ì«á¥Ñ jewayy ©ó 2014-12-20 12:53 ½s¿è

¦U¦ì¥ý¶i,

¤p§Ì¦b°µºô­¶¬d¸ß®É¹J¨ì§xÃø¡A¦p¤Uºô­¶·Q¥Î²î¦W¯è¦¸¬d¸ß
ºô§}¡Ghttp://csct.nbport.com.cn/csct/business/cqcx.jsp
ÂI¿ï­^¤å²î¦W¯è¦¸¡A¬d¸ß¡GUNICHART/222E


§Ú°µªºiqy¦p¤U¡A¬d¸ß¤£¥Xµ²ªG¡A½Ð¦U¦ì¥ý¶i«üÂI­n¦p¦ó§ó§ï¡A·P¿E¤£ºÉ¡I¡I¡I
--------------
WEB
1
http://csct.nbport.com.cn/csct/business/cqcx.jsp
check_mode=1&e_voyage=UNICHART/222E
--------------
Hi~

¬õ¦âªº¦r³]¦¨§AªºÅܼƴN¦æ
Sub ¥¨¶°1()

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://csct.nbport.com.cn/csct/business/cqcx.jsp?start_date=&end_date=&check_mode=1&e_voyage=UNICHART%2F222E&vRef=UNICH121&holdFlag=display&imageField32.x=26&imageField32.y=11" _
        , Destination:=Range("$A$1"))
'        .WebFormatting = xlWebFormattingNone
        .WebTables = "25"
        .Refresh BackgroundQuery:=False
        .Delete
    End With
End Sub

TOP

ÁÂÁ«ü¾É¡I¡I
­ì¨ÓvRef»PholdFlag¬O¥²¶·ªº¡A±a³o¨â­Ó´N¥i¥H¬d¥X¨Óµ²ªG¡I(¦p¤U)
------------------------------------
WEB
1
http://csct.nbport.com.cn/csct/business/cqcx.jsp?check_mode=1&vRef=UNICH121&holdFlag=display
Selection=1
Formatting=None
------------------------------------
¥i¥H¦A½Ð±Ð¤@­Ó°ÝÃD¡A¦]¬°­n¬d¸ßªº¶µ¥Ø¬OÅܰʪº¡A¨Ò¦pUNICHART¬O©T©wªº¡A¦ý222E¬OÅܰʪº¡A
¥i¯à­n¬d223E¡B224E¡A½Ð°Ý¦³¨S¦³¿ìªk§Q¥Îe_voyage¼´¥X¬Û¹ïÀ³ªºvRef¡A³o¼Ë¤~¤è«K¼gµ{¦¡¦Û°Ê±a¤J¡AÁÂÁ¡A·P¿E¤£ºÉ¡I¡I
Hi~

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD