返回列表 上一主題 發帖

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

yuch8663

帖子
51 
主題
12 
精華
0 
積分
77 
點名
0  
作業系統
windows xp sp3 
軟體版本
excel 2003 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2023-10-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-4-8 13:13 | 只看該作者

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

請教
在執行下面的程式碼時，因為需要使用自設 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)
        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
收藏 分享

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
2#
發表於 2017-4-9 10:24 | 只看該作者
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

TOP

yuch8663

帖子
51 
主題
12 
精華
0 
積分
77 
點名
0  
作業系統
windows xp sp3 
軟體版本
excel 2003 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2023-10-31 
3#
發表於 2017-4-12 23:35 | 只看該作者
謝謝准提部林版主，不過後面又出了個問題如下

[attach]27011[/attach]

TOP

yuch8663

帖子
51 
主題
12 
精華
0 
積分
77 
點名
0  
作業系統
windows xp sp3 
軟體版本
excel 2003 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2023-10-31 
4#
發表於 2017-4-12 23:40 | 只看該作者
謝謝准提部林版主，不過後面又出了個問題[attach]27013[/attach]

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

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

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題