VBA网站源代码到Cell

时间:2013-11-28 11:38:26

标签: html excel vba

我正在尝试使用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变为变量?

1 个答案:

答案 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 变量中。