关于将ACCESS库中的数据导入EXCEL的问题，急！谢谢各位！

[iamsoweak]

我现在需要的功能是：
通过点击页面上的一个按钮，将页面打开的时候已经通过以下代码从ACCESS库中搜索出的记录集导入到EXCEL中

<%
set chartconn=server.createobject("adodb.connection")
chartconn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("/rmcweb.mdb") & ";"
set chartrst=server.createobject("adodb.recordset")

strsql="select * from odfdata"
chartrst.open strsql,chartconn,1
%>

请各位高手指点，谢谢！

[mymyal123]

<%
将SQL导入到EXCEL和一将EXCEL的数据导入到SQL中


Set objConn=server.CreateObject("adodb.connection")
objConn.ConnectionTimeout = 60
objConn.CommandTimeout = 60
objConn.CursorLocation = 3
objConn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID = sa;Password=sa;Initial Catalog=" & SqlName & ";Data Source=" & SqlIp & ""

Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.Provider = "Microsoft.Jet.OLEDB.4.0 "
objConn1.ConnectionString = "Data Source=" & strPath & ";" & "Extended Properties=Excel 8.0;"
objConn1.Open

Set objRs=server.CreateObject("ADODB.Recordset")
objRs.Open "select * from sheet1",objConn,1,3

Set objRs1=server.CreateObject("ADODB.Recordset")
objRs1.Open "select * from [Sheet1$]",objConn1,1,3

Dim i
Dim strValue'存放内容
Dim strTitle'存放表头
Dim strSql

If Not objRs.EOF Then

While Not objRs.EOF
strTitle = objRs1(ExcelArrange).Name
For i = ExcelArrange + 1 To objRs1.Fields.Count - 1
strTitle = strTitle & "," & objRs1(i).Name
Next

strValue = "'" & objRs(0).Value & "'"
For i = 1 To objRs.Fields.Count - 1
strValue = strValue & ",'" & objRs(i).Value & "'"
Next

strSql = "insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & strPath1 & ";Extended properties=Excel 8.0')...sheet1$ (" & strTitle & ") values (" & strValue & ")"
Response.Write strSql
objConn.Execute strSql
objRs.MoveNext
i=i+1
Wend

End If




Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Provider = "Microsoft.Jet.OLEDB.4.0 "
objConn.ConnectionString = "Data Source=" & strPath & ";" & "Extended Properties=Excel 8.0;"
objConn.Open

Set objConn1=server.CreateObject("adodb.connection")
objConn1.ConnectionTimeout = 60
objConn1.CommandTimeout = 60
objConn1.CursorLocation = 3
objConn1.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID = sa;Password=sa;Initial Catalog=" & SqlName & ";Data Source=" & SqlIp & ""

Set objRs=server.CreateObject("ADODB.Recordset")
objRs.Open "select * from [Sheet1$]",objConn,1,3

Set objRs1=server.CreateObject("ADODB.Recordset")
objRs1.Open "select * from sheet1",objConn1,1,3

Dim i
Dim strValue'存放内容
Dim strTitle'存放表头
Dim strSql

If Not objRs.EOF Then

While Not objRs.EOF
strTitle = objRs1(0).Name
For i = 1 To objRs1.Fields.Count - 1
strTitle = strTitle & "," & objRs1(i).Name
Next

strValue = "'" & objRs(ExcelArrange).Value & "'"
For i = ExcelArrange + 1 To objRs.Fields.Count - 1
strValue = strValue & ",'" & objRs(i).Value & "'"
Next

strSql="insert into sheet1 (" & strTitle & ") values (" & strValue & ")"
'Response.Write strSql
objConn1.Execute strSql
objRs.MoveNext
i=i+1
Wend

End If
%>

[iamsoweak]

这位大哥，这段程序是在服务器端生成EXCEL的吧？我需要的是在客户端生成EXCEL。

而且我试了一下，程序里的这个量（ExcelArrange）在运行时会造成错误，报“项目在所需的名称或序数中未被发现”