konstanter Ausdruck erforderlich - vba

Question

Ich versuche, eine URL zu erstellen, die sich ändert, basierend auf was ich in Zelle "A1" setze, aber ich bekomme immer einen Kompilierfehler "Constant Ausdruck erforderlich".

Der Fehler ist in der zweiten Zeile bei "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 erwartet eine Const URL, aber sie versuchen, es tatsächlich als dynamische Variable String zu verwenden, nicht Const.

Wenn Sie Ihre URL dynamisch sein entsprechend dem Wert in Range("A1"), verwenden Sie den Code unten:

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

Eigentlich Fehler, den Sie bekommen, weil, wenn Sie eine Konstante deklarieren, wird der Wert geben Sie es muss sein auch konstant. Sie können keine Konstante mit einer Variablen deklarieren.

So wie diese erklären,

Dim Banane als String Dim URL als String

Banane = Blätter (1) .Range ("A1"). Wert

Verwendung entweder If oder Select Case hier seit URL per Wertänderungen A1 ändern,

URL = "https://as.com"

Dann anderer Code.