使用 ASP / VBScript 写入 Excel 文件

Question

我正在尝试使用 ASP / VBScript（不是 VB.NET）从 HTML 表单中获取信息并输入到 Excel 文件（xlsx）中。我在 Java 和 PHP 方面有一些经验，但对 VB 世界还是个新手。 到目前为止，我已经找到了从 GET/POST 方法获取数据的方法。现在我正在尝试创建与 Excel 文件的 ADO 连接。 到目前为止，这是我的代码：

Dim cn as ADODB.Connection
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=EXCEL_FILE.xlsx;" & _"Extended Properties=Excel 12.0 Xml;HDR=YES"
    .Open
End With

我从这里获取了连接字符串：connectionstrings.com 并尝试坚持本指南：http://support.microsoft.com/kb/257819 /en-us 但到目前为止还没有运气。 所以我的问题是：

1）这总体上是正确的想法吗？例如，从 POST 获取数据，然后使用 ADO 打开与 excel 文件的连接，并在连接对象上添加带有查询的信息？

2）代码中有什么明显的缺陷吗？

3) 如果有人能概述一个解决方案，将 HTML 表单中的数据写入 Excel 文件，那就太好了。

提前致谢。

编辑： 好的，这是我尝试的代码：

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
With cn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=EXCEL_FILE.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"""
'From : http://www.connectionstrings.com/excel-2007
    .Open
End With

一旦我在 cn 上调用“Open”，它就会给我一个 500 内部错误。我不确定我是否犯了一个明显的错误，但由于我不知道在哪里可以找到错误日志，所以我不知道从哪里开始查找。

Answer 1

1 - 如果您必须使用Excel作为数据库，是的，这是正确的。但是，如果您需要数据库，应该使用数据库，而不是 Excel 工作表。
2 - VBScript 不支持早期绑定。您应该定义没有数据类型的变量，应该使用 创建对象。您需要对连接字符串（引号）进行一些更改。
eg

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
With cn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=EXCEL_FILE.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"""
    'From : http://www.connectionstrings.com/excel-2007
.Open
End With
'
' Add new records etc.
'
cn.Close
Set cn = Nothing

3 - 添加新记录的示例（将其替换为上面的“添加新记录等”）从 HTML 表单获取值（帖子方法）。

Dim rs
Set rs = Server.CreateObject("Adodb.Recordset")
With rs
    .Open "[Sheet1$]", cn, 1, 3
    .AddNew 
    .Fields(0).Value = Request.Form("Param1") 'Column A1 (or with name rs.Fields("col1").Value = exp )
    .Fields(1).Value = Request.Form("Param2") 'Column B1
    .Update
    .Close
End With
Set rs = Nothing