Question

我在网站上有一张随时间变化的地图（互动），我想将它插入excel表格。

我正在使用此代码，但它没有显示HTML：

Private Sub Mapit()
URL = Sheets("sheet1").Cells(1, 1) //Here there is written the link to the website that want to show on excel
Sheets("sheet1").Pictures.Insert(URL).Select End Sub

这可能吗？我想那张Sheets（“sheet1”）。图片。插入（URL）。选择是问题，但我无法找到哪种方法正确。

感谢您的时间

Answer 1

试试这个。你快到了。无需.Select

Sub Mapit()

    Dim URL As String
    URL = "https://www.google.com/images/srpr/logo9w.png"
    ActiveSheet.Pictures.Insert (URL)

End Sub

Private Sub Mapit()

    Dim URL As String
    URL = Sheets("sheet1").Cells(1, 1)

    ThisWorkbook.Activate
    ThisWorkbook.Sheets("sheet1").Select
    Sheets("sheet1").Pictures.Insert (URL)

End Sub

评论后更新：

插入用户形式＆gt;转到工具箱＆gt;其他控制＆gt; 选择Microsoft Web Browser＆gt;好的

将控件拖到userform

现在在userform上粘贴代码

Private Sub UserForm_Initialize()
    Me.WebBrowser1.Navigate ("www.google.com")
End Sub

如何将HTML插入Excel

1 个答案: