標題: [發問] 請問如何變更代碼作查詢 [打印本頁]

---

作者: r2henry    時間: 2012-5-28 09:36     標題: 請問如何變更代碼作查詢

以下為 white5168 大大所提供的程式碼，只是不知道該如何作代碼(如6257)的變更，求助!!!
嘗試過
set STK = sheets("sheet1").range("M1").value
再把 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"
但是出現錯誤，不知道該如何作代碼(如6257)的變更，求助!!!


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") '使用此方式可以免除 "設定引用項目"
    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 "資料複製結束"
End Sub

---

作者: Hsieh    時間: 2012-5-28 10:00

本帖最後由 Hsieh 於 2012-5-28 10:01 編輯

回復 1# r2henry


     Const 是宣告常數
常數為一固定的值，不能變動
常數宣告
Const url As String ="http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_6257.asp.htm"
變數宣告
Dim url As String
Stk = [M1].Value
url = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_" & Stk & ".asp.htm"

---

作者: r2henry    時間: 2012-5-28 10:34

回復 2# Hsieh

問題已經解決了，您真是太佛心來的，謝謝您的協助~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)