vba怎么调用js的class属

在VBA中调用JavaScript的class属性可以通过使用Web浏览器控件来实现、动态注入JavaScript代码、利用HTML文件来进行JavaScript调用。 本文将详细介绍如何在VBA中调用JavaScript的class属性，主要从以下几个方面展开：

使用Web浏览器控件来调用JavaScript；
动态注入JavaScript代码；
利用HTML文件来进行JavaScript调用。

具体方法如下：

一、使用Web浏览器控件来调用JavaScript

在VBA中，可以使用Microsoft Internet Controls库中的WebBrowser控件来加载和运行JavaScript代码。这种方法适用于需要在VBA中与网页进行交互的场景。

1.1 添加WebBrowser控件

首先，确保在VBA编辑器中添加了对Microsoft Internet Controls的引用。可以在VBA编辑器中选择“工具” -> “引用”，然后勾选“Microsoft Internet Controls”。

1.2 创建UserForm并添加WebBrowser控件

接下来，创建一个UserForm，并在其中添加一个WebBrowser控件。可以通过工具箱将WebBrowser控件拖放到UserForm上。

1.3 编写VBA代码

在UserForm的代码模块中，编写如下代码：

Private Sub UserForm_Initialize()
    Dim html As String
    html = "<html><body><script type='text/javascript'>" & _
           "class MyClass { constructor() { this.myProp = 'Hello, World!'; } }" & _
           "var obj = new MyClass();" & _
           "</script></body></html>"
    WebBrowser1.Navigate "about:blank"
    Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    WebBrowser1.Document.write html
    WebBrowser1.Document.close
    Call GetJsClassProperty
End Sub
Private Sub GetJsClassProperty()
    Dim jsCode As String
    jsCode = "document.write(obj.myProp);"
    WebBrowser1.Document.parentWindow.execScript jsCode, "JavaScript"
    MsgBox WebBrowser1.Document.body.innerText
End Sub

上述代码中，首先在UserForm的初始化过程中，定义了一段包含JavaScript代码的HTML字符串，并将其写入到WebBrowser控件中。然后，通过调用GetJsClassProperty函数来执行JavaScript代码并获取class属性的值。

二、动态注入JavaScript代码

另一种方法是动态注入JavaScript代码并执行。可以通过创建一个HTML文件并将其加载到WebBrowser控件中，然后执行JavaScript代码。

2.1 创建HTML文件

首先，创建一个包含JavaScript代码的HTML文件。例如，创建一个名为test.html的文件，其内容如下：

<!DOCTYPE html>
<html>
<head>
    <title>Test</title>
    <script type="text/javascript">
        class MyClass {
            constructor() {
                this.myProp = 'Hello, World!';
            }
        }
        var obj = new MyClass();
    </script>
</head>
<body>
</body>
</html>

2.2 加载HTML文件并执行JavaScript

在VBA中，编写如下代码来加载HTML文件并执行JavaScript代码：

Private Sub UserForm_Initialize() WebBrowser1.Navigate "C:pathtotest.html" Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE DoEvents Loop Call GetJsClassProperty End Sub Private Sub GetJsClassProperty() Dim jsCode As String jsCode = "document.write(obj.myProp);" WebBrowser1.Document.parentWindow.execScript jsCode, "JavaScript" MsgBox WebBrowser1.Document.body.innerText End Sub

上述代码中，首先加载HTML文件，然后通过调用GetJsClassProperty函数来执行JavaScript代码并获取class属性的值。

三、利用HTML文件来进行JavaScript调用

这种方法类似于第二种方法，但不同的是，我们可以通过VBA动态生成HTML文件并将其加载到WebBrowser控件中。

3.1 动态生成HTML文件

在VBA中，编写如下代码来动态生成HTML文件：

Private Sub UserForm_Initialize()
    Dim html As String
    html = "<!DOCTYPE html><html><head><title>Test</title><script type='text/javascript'>" & _
           "class MyClass { constructor() { this.myProp = 'Hello, World!'; } }" & _
           "var obj = new MyClass();" & _
           "</script></head><body></body></html>"
    Call WriteToFile("C:pathtotest.html", html)
    WebBrowser1.Navigate "C:pathtotest.html"
    Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    Call GetJsClassProperty
End Sub
Private Sub WriteToFile(filePath As String, content As String)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim file As Object
    Set file = fso.CreateTextFile(filePath, True)
    file.Write content
    file.Close
End Sub
Private Sub GetJsClassProperty()
    Dim jsCode As String
    jsCode = "document.write(obj.myProp);"
    WebBrowser1.Document.parentWindow.execScript jsCode, "JavaScript"
    MsgBox WebBrowser1.Document.body.innerText
End Sub

上述代码中，通过调用WriteToFile函数动态生成包含JavaScript代码的HTML文件，然后将其加载到WebBrowser控件中，并通过GetJsClassProperty函数执行JavaScript代码获取class属性的值。

小结

通过本文的方法，我们可以在VBA中调用JavaScript的class属性，主要通过使用Web浏览器控件来实现。具体方法包括直接写入HTML字符串、加载外部HTML文件以及动态生成HTML文件。这些方法都可以帮助我们在VBA中与JavaScript进行交互，实现更为复杂的功能。