[µo°Ý] ½Ð°Ý¦p¦óÅܧó¥N½X§@¬d¸ß

r2henry

¥H¤U¬° white5168 ¤j¤j©Ò´£¨Ñªºµ{¦¡½X¡A¥u¬O¤£ª¾¹D¸Ó¦p¦ó§@¥N½X(¦p6257)ªºÅܧó¡A¨D§U!!!
¹Á¸Õ¹L
set STK = sheets("sheet1").range("M1").value
¦A§â Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_6257.asp.htm"
§ï¦¨ Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_" & STK & ".asp.htm"
¦ý¬O¥X²{¿ù»~¡A¤£ª¾¹D¸Ó¦p¦ó§@¥N½X(¦p6257)ªºÅܧó¡A¨D§U!!!


Sub Test()
    Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_6257.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

Hsieh

¦^´_ 1# r2henry


     Const ¬O«Å§i±`¼Æ
±`¼Æ¬°¤@©T©wªº­È¡A¤£¯àÅÜ°Ê
±`¼Æ«Å§i
Const url As String ="http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_6257.asp.htm"
Åܼƫŧi
Dim url As String
Stk = [M1].Value
url = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_" & Stk & ".asp.htm"

r2henry

¦^´_ 2# Hsieh

°ÝÃD¤w¸g¸Ñ¨M¤F¡A±z¯u¬O¤Ó¦ò¤ß¨Óªº¡AÁÂÁ±zªº¨ó§U~~