我正在尝试使用VBA从站点中提取一些信息。我有URL列表,每个我想获得页面的源代码,以便我可以在Excel中提取相关信息。我该怎么做呢?
使用宏录制器我得到以下VBA:
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.cmegroup.com/trading/metals/precious/silver_contract_specifications.html" _
, Destination:=Range("$B$2"))
但是,如何将URL变为变量?
答案 0 :(得分:2)
要替换代码中的网址,请执行以下操作:
Dim sURL as String
sURL = "http://www.cmegroup.com/trading/metals/precious/silver_contract_specifications.html"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & sURL _
, Destination:=Range("$B$2"))
'rest of your code
现在,您可以创建一个遍历网址列表的循环,并将其存储在 sURL 变量中。