不断expression所需 – vba

我试图创build一个URL，根据我把它放在单元格“A1”，但是，我不断收到编译错误“需要的常量expression式”。

错误是在“香蕉”的第二行。

banana = Range("A1") Const URL As String = "http://openinsider.com/screener?s=" & banana & "&o=&pl=&ph=&ll=&lh=&fd=730&fdr=&td=0&tdr=&fdlyl=&fdlyh=&daysago=&xp=1&xs=1&vl=&vh=&ocl=&och=&sic1=-1&sicl=100&sich=9999&grp=0&nfl=&nfh=&nil=&nih=&nol=&noh=&v2l=&v2h=&oc2l=&oc2h=&sortcol=0&cnt=100&page=1" Const READYSTATE_COMPLETE As Integer = 4 

Answer 1

VBA期望一个Const URL ，但是你实际上正在尝试使用它作为一个dynamicvariablesString而不是Const 。

如果您希望URL根据Range("A1")的值dynamic变化，请使用以下代码：

 Dim banana As String Dim URL As String banana = Range("A1").Value URL = "http://openinsider.com/screener?s=" & banana & "&o=&pl=&ph=&ll=&lh=&fd=730&fdr=&td=0&tdr=&fdlyl=&fdlyh=&daysago=&xp=1&xs=1&vl=&vh=&ocl=&och=&sic1=-1&sicl=100&sich=9999&grp=0&nfl=&nfh=&nil=&nih=&nol=&noh=&v2l=&v2h=&oc2l=&oc2h=&sortcol=0&cnt=100&page=1" 

Answer 2

其实你会得到错误，因为当你声明一个常量时，你给它的值也必须是恒定的。 你不能用variables声明一个常量。

所以这样申明，

昏暗的香蕉作为string昏暗的URL作为string

香蕉=纸（1）。范围（“A1”）。 值

这里使用If或Select Case，因为URL将根据A1中的值更改而改变，

url=“ https://as.com ”

然后是其他代码。