更新 Excel 工作表（在经典 ASP/Vbscript 中）

Question

我尝试在 Classic-ASP 中搜索可更新 Excel (XLS) 文件的代码，但无法正常工作。

这是我所拥有的：

<!--#include file="../adovbs.inc"-->
<%
' Open and Update and then Close The XLS File
Dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
Dim FLConnect
Dim strSQLexcel

' Create the connection string.
    FLConnect = "Provider=Microsoft.Jet.OLEDB.4.0 Data Source=" & Server.MapPath("TEST.xls") & "Extended Properties='Excel 8.0;HDR=No'"

' Create the SQL statement.
    strSQLexcel= "UPDATE [Sheet1$A1:A1] SET F1='TestValue1'"

set objConn = Server.CreateObject("ADODB.Recordset")

'Set objConn = New ADODB.Connection

' Create and open the Connection object.
    objConn.Open FLConnect

' Execute the insert statement.
    objConn.Execute strSQLexcel

' Close and destroy the Connection object.
    objConn.Close

%>

但我不断收到错误消息：“连接不能用于执行此操作。在此上下文中它已关闭或无效。”

非常感谢...

Answer 1

你的连接字符串不对。

你有：

Provider=Microsoft.Jet.OLEDB.4.0 Data Source=" 
& Server.MapPath("TEST.xls") & "Extended Properties='Excel 8.0;HDR=No'"

您在 4.0 之后和 Extended 之前缺少一个分号

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
& Server.MapPath("TEST.xls") & ";Extended Properties='Excel 8.0;HDR=No'"

见http://connectionstrings.com

Answer 2

这个连接字符串最适合我：-

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myExcel.xlsm;Extended Properties='Excel 12.0 Macro;HDR=YES';