ASP写EXCEL表问题,大家看一下有没有出现过这样的错误！

[wangyanyan]

从SQL数据库中提取数据写EXCEL表，总共写200行左右，当打开数据库中的表时出现错误如下：
在执行此操作期间发生意外错误[MS Design Tools]存储器不足，无法完成此操作。
我计算机的硬件环境：
CY2.4G
40G
256M DDR

[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

[wangyanyan]

不是某一个数据库，而是多个数据库中的部分内容，以前没有问题

[coolyqy]

路过，学习！