VBScript可运行但HTA中ACE OLEDB Provider提示未安装求助

问题原因 #

单独的VBS脚本能正常运行，是因为64位系统下默认用64位的cscript.exe/wscript.exe执行，可加载64位ACE组件；但HTA默认可能调用32位的mshta.exe（位于C:\Windows\SysWOW64\），32位进程无法加载64位ACE Provider，因此触发报错。

解决方案 #

1. 强制使用64位mshta.exe运行HTA #

直接通过以下路径启动HTA：

C:\Windows\System32\mshta.exe "你的HTA文件路径.hta"

或者右键HTA文件，选择「打开方式」→「更多应用」→「在这台电脑上查找其他应用」，找到C:\Windows\System32\mshta.exe并设置为默认打开方式。

2. 修正HTA代码中的连接字符串与结构 #

以下是完整的HTA示例代码，包含文件选择、读取Excel命名区域namenblok并显示内容的功能：

<!DOCTYPE html>
<html>
<head>
    <title>读取Excel命名区域</title>
    <hta:application 
        id="excelReader"
        applicationname="ExcelReader"
        border="thin"
        caption="yes"
        maximizebutton="no"
        minimizebutton="yes"
        scroll="yes"
        singleinstance="yes"
        windowstate="normal"
    />
    <meta charset="utf-8">
    <style>
        body { font-family: Arial, sans-serif; padding: 20px; }
        #content { margin-top: 20px; border-collapse: collapse; }
        #content th, #content td { border: 1px solid #ccc; padding: 8px; }
        #content th { background-color: #f0f0f0; }
    </style>
</head>
<body>
    <button onclick="SelectExcelFile()">选择Excel文件</button>
    <div id="result"></div>

    <script language="VBScript">
        Sub SelectExcelFile()
            Dim objDialog, filePath
            Set objDialog = CreateObject("Shell.Application").BrowseForFolder(0, "选择包含test.xlsx的文件夹", 0, 0)
            If Not objDialog Is Nothing Then
                filePath = objDialog.Self.Path & "\test.xlsx"
                ReadExcelNamedRange filePath
            End If
        End Sub

        Sub ReadExcelNamedRange(filePath)
            Dim objConnection, objRecordset, connectString, htmlContent
            Set objConnection = CreateObject("ADODB.Connection")
            Set objRecordset = CreateObject("ADODB.Recordset")

            ' 64位ACE Provider连接字符串
            connectString = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=" & filePath & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""
            
            On Error Resume Next
            objConnection.Open connectString
            If Err.Number <> 0 Then
                document.getElementById("result").innerHTML = "连接错误：" & Err.Description
                Err.Clear
                Exit Sub
            End If
            On Error GoTo 0

            ' 读取命名区域namenblok
            objRecordset.Open "SELECT * FROM namenblok", objConnection

            ' 生成表格HTML
            htmlContent = "<table id='content'>"
            ' 添加表头
            htmlContent = htmlContent & "<tr>"
            For i = 0 To objRecordset.Fields.Count - 1
                htmlContent = htmlContent & "<th>" & objRecordset.Fields(i).Name & "</th>"
            Next
            htmlContent = htmlContent & "</tr>"

            ' 添加数据行
            Do While Not objRecordset.EOF
                htmlContent = htmlContent & "<tr>"
                For i = 0 To objRecordset.Fields.Count - 1
                    htmlContent = htmlContent & "<td>" & objRecordset.Fields(i).Value & "</td>"
                Next
                htmlContent = htmlContent & "</tr>"
                objRecordset.MoveNext
            Loop
            htmlContent = htmlContent & "</table>"

            document.getElementById("result").innerHTML = htmlContent

            ' 释放资源
            objRecordset.Close
            objConnection.Close
            Set objRecordset = Nothing
            Set objConnection = Nothing
        End Sub
    </script>
</body>
</html>

关键注意事项 #

• 连接字符串中使用Microsoft.ACE.OLEDB.16.0匹配你安装的2016版ACE组件，也可以用Microsoft.ACE.OLEDB.12.0（两者兼容）。
• Extended Properties中的Excel 12.0 Xml对应.xlsx格式，若为.xls则改为Excel 8.0。
• 确保Excel文件未被其他程序占用（比如Excel客户端打开时会锁定文件，导致无法读取）。

内容的提问来源于stack exchange，提问作者Judith