Question

我正在尝试根据我放在单元格“A1”中的内容创建一个更改的URL，但是，我不断收到编译错误“需要常量表达式”。

错误发生在第二行“banana”。

 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，但您实际上是尝试将其用作动态变量String，而不是Const。

如果您希望URL根据Range("A1")中的值动态显示，请使用以下代码：

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

实际上你会收到错误，因为当你声明一个常量时，你给它的值也必须是常数。您不能使用变量声明常量。

声明如下，

Dim Banana as String Dim URL as String

Banana = sheet（1）.Range（“A1”）。价值

在此处使用If或Select Case，因为URL将根据A1中的值更改进行更改

网址=“https://as.com”

然后是其他代码。

需要持续表达 - vba

2 个答案: