如何将JS数组中的数据从html文件中提取到VBA中

var dataArray = [1, 2, 3, 4, 5];

<input type="hidden" id="dataArrayInput" value="[1, 2, 3, 4, 5]">

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "path_to_html_file" ' 替换为HTML文件的路径

' 等待页面加载完成
Do While ie.Busy Or ie.ReadyState <> 4
    DoEvents
Loop

' 提取隐藏表单元素的值
Dim dataArray As String
dataArray = ie.Document.getElementById("dataArrayInput").Value

ie.Quit
Set ie = Nothing

' 移除字符串中的方括号和空格，并将逗号分隔的值分割为数组
dataArray = Replace(dataArray, "[", "")
dataArray = Replace(dataArray, "]", "")
dataArray = Replace(dataArray, " ", "")
Dim dataArraySplit() As String
dataArraySplit = Split(dataArray, ",")

' 将字符串数组转换为VBA数组
Dim vbaArray() As Variant
ReDim vbaArray(0 To UBound(dataArraySplit))
Dim i As Integer
For i = 0 To UBound(dataArraySplit)
    vbaArray(i) = CInt(dataArraySplit(i))
Next i