如何在VBA或VB 6.0中在浏览器上编写内部HTML

Question

Private Sub CommandButton1_Click()
    Dim ohtl As HTMLDocument
    Dim datasheet As Variant

    WebBrowser1.Navigate "google.com"

    Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop

    Set ohtl = WebBrowser1.Document
    datasheet = ohtl.body.innerHTML
End Sub

此代码将内部HTML保存到数据库中，但现在我想将内部HTML从数据库写入浏览器。

我尝试了下面的代码，但它没有用。

Set ohtl = WebBrowser1.Document
ohtl.write = datasheet

Answer 1

WebBrowser1.DocumentText = html;

此外，您可以Navigate在本地硬盘上创建html文件。