請教出現 "必須是常數運算式" 的編譯錯誤該如何解決?

yuch8663

請教
在執行下面的程式碼時，因為需要使用自設 QRY_TIME 、STOCK_ID 兩項 ，一使用 [&]  連結字串 ，就會出現"必須是常數運算式" 的編譯錯誤該如何解決?
Const url As String = "http://goodinfo.tw/StockInfo/StockFinDetail.asp?RPT_CAT=BS_m_YEAR&QRY_TIME=" & YY & "&STOCK_ID=" & stockNo

程式碼如下 :
Sub text()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.DisplayStatusBar = True
   
    Sheets("sheet1").Select
    YY = 2009
    stockNo = 1234
   
    Cells.Clear
       Const url As String = "http://goodinfo.tw/StockInfo/StockFinDetail.asp?RPT_CAT=BS_m_YEAR&QRY_TIME=" & YY & "&STOCK_ID=" & stockNo


    Set ie = CreateObject("internetexplorer.application")
        .Visible = False
        .Navigate url
    Do While .ReadyState <> 4 '等待網頁開啟
        DoEvents
    Loop
    Application.StatusBar = "資料複製中請稍候...."
        .ExecWB 17, 2
        .ExecWB 12, 2
        Sheets("temp").Cells.Select text.rar (5.67 KB)

下載次數: 2

2017-4-8 13:12

        Range("A1").Activate
        ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
                False, NoHTMLFormatting:=True
    End With
    Application.StatusBar = False
    ie.Quit
   
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True  

End Sub

准提部林

Const url As String = "http://goodinfo.tw/StockInfo/StockFinDetail.asp?RPT_CAT=BS_m_YEAR&QRY_TIME=" & YY & "&STOCK_ID=" & stockNo
改成:
url$ = "http://goodinfo.tw/StockInfo/StockFinDetail.asp?RPT_CAT=BS_m_YEAR&QRY_TIME=" & YY & "&STOCK_ID=" & stockNo

yuch8663

謝謝准提部林版主，不過後面又出了個問題如下

[attach]27011[/attach]

yuch8663

謝謝准提部林版主，不過後面又出了個問題[attach]27013[/attach]

    Set ie = CreateObject("internetexplorer.application")
        .Visible = False
        .Navigate url
    Do While .ReadyState <> 4

在       .Visible = False  處，又出現 "不正確的引用"訊息，該如何解，謝謝