麻辣家族討論版版 - Powered by Discuz! Board

標題: 請教出現 "必須是常數運算式" 的編譯錯誤該如何解決? [打印本頁]

作者: yuch8663 時間: 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[attach]26974[/attach][attach]26974[/attach]
      Range("A1").Activate
      ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
            False, NoHTMLFormatting:=True
End With
Application.StatusBar = False
ie.Quit
[attach]26974[/attach]
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

作者: 准提部林 時間: 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

作者: yuch8663 時間: 2017-4-12 23:35

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

[attach]27011[/attach]

作者: yuch8663 時間: 2017-4-12 23:40

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

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

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

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