VBA:从InternetExplorer对象访问LocalStorage

VBA: Access LocalStorage from InternetExplorer object

本文关键字：访问 LocalStorage 对象 InternetExplorer VBA      更新时间：2023-09-26

除了执行JS在DOM上创建值之外，还有更简单/直接的方法从Internet Explorer对象访问本地存储变量吗？

我有自己的自定义解决方案，使用临时文本字段，但我想知道MS是否提供了直接功能。

Function retrieveLocalStorageValue(sURL As String, sLocalStorageVarName As String) As String
     On Error GoTo ErrHandler1:
        Dim javascriptString As String
        Set oBrowser = New InternetExplorer
        oBrowser.Silent = True
        oBrowser.navigate sURL
        oBrowser.Visible = True
        Do
        ' Wait till the Browser is loaded
        Loop Until oBrowser.readyState = READYSTATE_COMPLETE
    On Error GoTo ErrHandlerJscript:
        javastringUrl = "document.body.innerHTML += '<input id='""test1234'"" type='""text'"" value='""'+ localStorage.getItem('" & sLocalStorageVarName & "') +''""'>';"
        'Execute javascript to create hidden field - Use double quotes in VBA to escape
        'Wait in case it is needed
        Application.Wait DateAdd("s", 1, Now)
        oBrowser.document.parentWindow.eval javastringUrl
        retrieveLocalStorageValue = oBrowser.document.getElementById("test1234").getAttribute("value")
    Exit Function
ErrHandler1:
    MsgBox ("Error, debugging required")
    retrieveLocalStorageValue = "error"
ErrHandlerJscript:
    MsgBox ("Error with javascript execution, debugging required")
    retrieveLocalStorageValue = "error"
End Function

Sub test()
    Dim test As String
    test = retrieveLocalStorageValue("http://127.0.0.1/stackexchange/localStorageVBA.html", "testObject")
    MsgBox test
End Sub

参考：http://maythesource.com/2014/04/22/vba-read-localstorage-variable-from-internet-explorer-object-using-temporary-textfield/

不是。可以，您可以设置对Microsoft Internet Explorer的引用和对Microsoft HTML对象库的引用。这将允许您直接访问DOM对象模型，intellisense将起作用。但是，如果您实际尝试访问该属性，它将抛出一个错误。（如下所示：）

Option Explicit
Sub Example()
    ThisFails "http://www.w3schools.com/html/tryit.asp?filename=tryhtml5_webstorage_local", "lastname"
End Sub
Function ThisFails(ByVal sURL As String, ByVal sLocalStorageVarName As String) As String
    Dim oBrowser As SHDocVw.InternetExplorer
    Dim hDoc As MSHTML.HTMLDocument
    Dim hWin As MSHTML.HTMLWindow2
    Set oBrowser = New SHDocVw.InternetExplorer
    oBrowser.Silent = True
    oBrowser.Navigate sURL
    oBrowser.Visible = True
    Do
        ' Wait till the Browser is loaded
    Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
    Do
        Set hDoc = oBrowser.Document
        'Trust me on these loops
    Loop While hDoc Is Nothing
    Do
        Set hWin = hDoc.parentWindow
    Loop While hWin Is Nothing
    ThisFails = hWin.localStorage.getItem(sLocalStorageVarName)

End Function
相关文章：