在一个工作表中包含多个网页

时间:2016-04-07 09:00:07

标签: excel excel-vba webpage vba

我尝试使用宏将一些网页包含到Excel工作表中。我设法包含多个OLEObjects,但我不知道如何正确地解决这些问题以显示我想要的网页。网页显示了Google地图页面,我基本上只想在数据库中查询的表格下方显示地图。这是我到目前为止所做的。

For Each vTrip In lTrips

    ... some more code here

    vRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 2
    Range("A" & vRow).Select
    With ActiveSheet.OLEObjects.Add(ClassType:="Shell.Explorer.2", _
       Link:=False, DisplayAsIcon:=False, Left:=0, Top:=vPos, Width:=600, Height:=250)
    End With

    vRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 20
    vPos = vPos + 350

Next

现在,当我有多个对象时,如何调用以下内容:

    WebBrowser1.Navigate "http://www.website.com/page.asp?T=" & vTrip.Value

如果我这样称呼它,我会收到一条错误消息,说明"运行时错误' 424&#39 ;:对象需要"。看起来,我只能导航到工作表中的一个页面。当我每次删除并重新创建工作表时,这会产生一个问题,即如何在重新创建后将宏定义/插入到工作表中?

即使我可以调用它,如何多次调用它将WebBrowser1中的1更改为2,3等等?

这甚至可能吗?

0 个答案:

没有答案