Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/json/13.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Asp classic 将ASP经典表单保存到excel中的特定列中_Asp Classic_Vb6_Vbscript_Excel_Vba - Fatal编程技术网

Asp classic 将ASP经典表单保存到excel中的特定列中

Asp classic 将ASP经典表单保存到excel中的特定列中,asp-classic,vb6,vbscript,excel,vba,Asp Classic,Vb6,Vbscript,Excel,Vba,我想知道是否有可能在提交后将我的asp经典表单保存到excel文件的列中 谢谢大家。使用Microsoft.Jet.OLEDB驱动程序访问excel工作表,如下所示: dim conn : set conn = server.createObject("ADODB.Connection") dim rs : set rs = server.createObject("adodb.recordset") dim sql conn.Open "Provider=Microsoft.Jet.OLED

我想知道是否有可能在提交后将我的asp经典表单保存到excel文件的列中


谢谢大家。

使用Microsoft.Jet.OLEDB驱动程序访问excel工作表,如下所示:

dim conn : set conn = server.createObject("ADODB.Connection")
dim rs : set rs = server.createObject("adodb.recordset")
dim sql

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
          "myExcelFile.xls;" &_
          "Extended Properties=""Excel 8.0;HDR=YES;"""
然后您只需使用sql来插入数据


excel的可能连接字符串已列出

下面的代码将插入到现有excel文件中。这就是你需要的

<%
    Option Explicit 

    ' OPEN DATABASE 
    dim objConn,strConnection,objRS,strQuery

'Set objConn = New ADODB.Connection 
    set objConn = Server.CreateObject("ADODB.Connection") 
    objConn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("TEST.xls") & "; Extended Properties=Excel 8.0;" 
    objConn.Open strConnection 

'Set objRS = New ADODB.Recordset
    set objRS = Server.CreateObject("ADODB.Recordset") 
    set objRS.ActiveConnection = objConn 

' This is to Select A1:A1 and open the recordset     
    strQuery = "SELECT * FROM A1:A1" 
    objRS.Open strQuery 

' This is to insert into A1:A1 a value that says: testttest     
    strQuery = "insert into [A1:A1] values('testttest')" 

' Close and destroy the Connection object. 
    objConn.Execute strQuery 
    objConn.Close
    Set objRS=Nothing
    Set objConn=Nothing
%>

更新特定列的步骤

您可以这样做:请参见此处:
还有这里:

当然,您可以使用ASP 3.0编写网页,将表单数据保存到Excel电子表格中。为什么不呢?我已经写了一页,并准备好了表格。我已经有了我的excel文件,但是你如何将表格保存到现有的excel文件中呢。