asp-classic - ASP クラシック フォームを Excel の特定の列に保存する

Question

送信後に、ASP クラシック フォームを列の Excel ファイルに保存することが可能かどうかを知りたいですか?

皆さん、ありがとうございました。

Answer 1

Microsoft.Jet.OLEDB Driver を使用して、次のように 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の可能な接続文字列はここにリストされています

Answer 2

以下のコードは、既存の 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
%>

特定の列を更新するには

これを行うことができます: ここを参照してください: http://bytes.com/topic/asp-classic/answers/620074-update-existing-excel-file-using-asp-urgent およびここも参照: Excel シートの更新 (クラシック ASP の場合) /Vbscript)