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

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

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

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

¦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

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

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

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

TOP

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

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

TOP

G¤j¡A
®É¶¡¨º»ò¤[¤F¡A§Ú³£§Ñ¤F¦³°Ý¹L³o­Ó°ÝÃD¡AÁÙ¦³³Ò±z¶O¤ß¡A¯u¤£¦n·N«ä¡CÁÂÁ¡ã

TOP

¦^´_  white5168
¦^´_  vesperlee
½Ð¸Õ¸Õ¬Ý¡I
c_c_lai µoªí©ó 2012-5-1 16:42

§Ú§âCC¤jªºµ{¦¡­×§ï§Ú·Q­nªÑ²¼¦WºÙ,¦ý¬°¦ó·|¶]¥X"¥²¶·¬O±`¼Æ¹Bºâ¦¡"ªº¿ù»~°T®§,½Ð°Ý§Ú¤U­±ªº¼gªk¦³¿ù¶Ü?
¨º¤£µM­n¦p¦ó§ó§ï¦Û¤v·Q­nªºªÑ²¼¥N¸¹©O?
½Ð«ü±Ð§Ú³o­ÓVBA·s¤â,ÁÂÁÂ

Sub a()
    x = Worksheets("sheet1").Range("l1")
    Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl_" & x & ".asp.htm"
    Cells.Clear
    Set ie = CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
    With ie
        .Visible = False 'True¬°¶}±Òie, False¬°¤£¶}±Òie
        .Navigate url
        Do While .ReadyState <> 4 'µ¥«Ýºô­¶¶}±Ò
            DoEvents
        Loop
        .ExecWB 17, 2 'Select All
        .ExecWB 12, 2 'Copy selection
        Sheets("Sheet1").Cells.Select
        Range("A1").Activate
        ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
                False, NoHTMLFormatting:=True
    End With
    Columns("A:B").Delete
    ie.Quit
    MsgBox "¸ê®Æ½Æ»sµ²§ô"
    End Sub

TOP

¹ï¤F,¶¶«K¦A¸É°Ý¤@¤U,Ãþ¦ü³oºØºô¯¸,¥i¥H¥Î¿ý»s¥¨¶°ªº¤è¦¡¦A¤U¥h­×§ï¶Ü?
ÁÙ¬O¥²¶·¨Ì¤W­±¤j¤jªº¼gªk¤U¥h­×§ï©O?
¦]¬°¾a¦Û¤v¼g¥X¨Ó,¤£¥Î¨C¦¸³£¾a§O¤HÀ°¦£,ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD