导入和导出到excel，在线等！！！！！（300分）（

wxcyz 2005-05-16 03:42:57
numid 自动编号
xinghao nvarchar
changjia nvarchar
shuliang nvarchar
pihao nvarchar
fengzhuang nvarchar
danjia nvarchar
gonghuo nvarchar
beizhu1 nvarchar
tel1 nvarchar
tel2 nvarchar
lishi nvarchar
xundate nvarchar
xunjia nvarchar
beizhu2 nvarchar
uptime datetime
addtime datetime
jian smallint

这个是库的字段，谁能帮我做个直接在本地机上excel导入数据库和数据库导出到excel的
我出300分


http://community.csdn.net/Expert/topic/4010/4010003.xml?temp=.4422571(100分)

http://community.csdn.net/Expert/topic/4010/4010003.xml?temp=.4422571（100分）
...全文
598 21 打赏 收藏 转发到动态 举报
写回复
用AI写文章
21 条回复
切换为时间正序
请发表友善的回复…
发表回复
XTechFly 2005-05-17
  • 打赏
  • 举报
 回复
这是我在使用时的函数，也贴出来吧。
Function Get2Bit(n)
IF n<10 then
n="0"&n
End IF
Get2Bit=n
End Function

Function ExportExcel(objRS,subExcelpath)
Response.Clear
%>
<br><br><br><br><br><div align="center"><font color=red>正在生成Excel报表,请您稍候......</font></div>
<%
Session("subExcelpath")=subExcelpath
Response.Buffer
Dim SaveName,pNow
pNow=Now
NowDT=year(pNow)&Get2Bit(month(pNow))&Get2Bit(day(pNow))
NowDT=NowDT&Get2Bit(hour(pNow))&Get2Bit(minute(pNow))&Get2Bit(second(pNow))
SaveName=subExcelpath&NowDT
Dim objExcel
Dim ExcelPath
Session("ExcelPath") = "Excel\" & SaveName & ".xls"
Set objExcel = New ExcelGen
objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
objExcel.GenerateWorksheet(objRS)
If objExcel.SaveWorksheet(Server.MapPath(Session("ExcelPath"))) then
%>
<Script language="javascript">
var winExcel;
winExcel=window;
window.location="<%=Server.URLEncode(Session("ExcelPath"))%>";
</Script>
<%
Else
Response.Write "在保存的过程中发生错误！"
End If
Set objExcel = Nothing
End Function
%>
XTechFly 2005-05-17
  • 打赏
  • 举报
 回复
下面是我正在使用的一个导出Excel类，你试试看是否方便。
'++++++++++++++++++++++Class Start+++++++++++++++++++++++++++
<%
Class ExcelGen
Private objSpreadsheet
Private iColOffset
Private iRowOffset

Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iColOffset = 2
End Sub


Sub Class_Terminate()
Set objSpreadsheet = Nothing 'Clean up
End Sub



Public Property Let ColumnOffset(iColOff)
If iColOff > 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property



Public Property Let RowOffset(iRowOff)
If iRowOff > 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property

Sub GenerateWorksheet(objRS)
'Populates the Excel worksheet based on a Recordset"s contents
'Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2
iCol = iCol + 1
Next 'objField
'Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
End If
iCol = iCol + 1
Next 'objField
objRS.MoveNext
Loop
End Sub

Function SaveWorksheet(strFileName)
'Save the worksheet to a specified filename
On Error Resume Next
Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)
SaveWorksheet = (Err.Number = 0)
End Function
End Class

'++++++++++++++++++++++Class End+++++++++++++++++++++++++++
wxcyz 2005-05-17
  • 打赏
  • 举报
 回复
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=;Extended properties=Excel 8.0')...sheet1$ (numid,xinghao,changjia,shuliang,pihao,fengzhuang,danjia,gonghuo,beizhu1,tel1,tel2,lishi,xundate,xunjia,beizhu2,uptime,addtime,jian) values ( '133','sdsfsdfdsfdf','changjia','shuliang','pihao','fengzhuang','danjia','gonghuo','beizhu1','tel1','tel2','lishi','xundate','xunjia','beizhu2','05 17 2005 12:19PM','05 17 2005 12:19PM','0')
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]OLE DB 错误跟踪［OLE/DB Provider 'Microsoft.Jet.OLEDB.4.0' IDBInitialize::Initialize returned 0x80004005: 提供程序未给出有关错误的任何信息。］。

/pfdz/manage/admin_backup.asp，行 167


导出的时候遇上这个错误
wxcyz 2005-05-17
  • 打赏
  • 举报
 回复
关键是半个月换一次数据，不这样做的话很麻烦的，一次15～20W条数据

导入解决了，用了个笨办法，不要系统自己找列名，我手工添加上去，反正那个是不变的。

现在弄导出
fcuandy 2005-05-17
  • 打赏
  • 举报
 回复
300分，哈哈
超级大笨狼 2005-05-17
  • 打赏
  • 举报
 回复
EXCEL不用这么麻烦。
你按照HTML格式写文件，修改后缀成xls就可以了。
甚至连CSS样式都能保留。
zzy0000 2005-05-17
  • 打赏
  • 举报
 回复
先 mark
wxcyz 2005-05-17
  • 打赏
  • 举报
 回复
可以

strValue = "'" & objRs(ExcelArrange).Value & "'" 这句有问题，


ADODB.Recordset 错误 '800a0cc1'

在对应所需名称或序数的集合中，未找到项目。

/pfdz/manage/admin_backup.asp，行 189
mymyal123 2005-05-17
  • 打赏
  • 举报
 回复
检查 Rs.Fields.Count 能不能够得到值
wxcyz 2005-05-17
  • 打赏
  • 举报
 回复
链接都没有错
就是只导进来1条，循环不了
不知道怎么回事？

这是具体的源代码
http://community.csdn.net/Expert/topic/4012/4012765.xml?temp=.638302
mymyal123 2005-05-17
  • 打赏
  • 举报
 回复
你要从execel导入数据库SQL

就先建立与excel的连接，然后

Rs1.Open "select * from [Sheet1$]",objConn1,1,3 //excel

表名后面要加 $

然后用 Rs2建立与SQL的连接，

然后用循环把rs1的记录逐条insert rs2就可以了

原理就是这样，具体代码没法帮你了
wxcyz 2005-05-17
  • 打赏
  • 举报
 回复
mymyal123(风之森) ，你在吗？
huejim 2005-05-17
  • 打赏
  • 举报
 回复
晕死！哪用这么多代码啊！大笨狼说的就最好了！我以前也是这么做的！
wxcyz 2005-05-17
  • 打赏
  • 举报
 回复
拿出来大家共享一下


<%
sub daochu()
strPath=request("strPath")

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 pfdzdate",Conn,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

strValue0 = objRs(0).Value
strValue1 = objRs(1).Value
strValue2 = objRs(2).Value
strValue3 = objRs(3).Value
strValue4 = objRs(4).Value
strValue5 = objRs(5).Value
strValue6 = objRs(6).Value
strValue7 = objRs(7).Value
strValue8 = objRs(8).Value
strValue9 = objRs(9).Value
strValue10 = objRs(10).Value
strValue11 = objRs(11).Value
strValue12 = objRs(12).Value
strValue13 = objRs(13).Value
strValue14 = objRs(14).Value
strValue15 = objRs(15).Value
strValue16 = objRs(16).Value
strValue17 = objRs(17).Value
'Next
if strValue1<>"" then
strSql = "insert into [Sheet1$] (自动编号,产品型号,厂家,数量,批号,封装,单价,供货商及地址,备注1,电话1,电话2,历史成交价,询价日,询价者,备注2,操作,添加时间,推荐) values ( '"&strValue0&"','"&strValue1&"','"&strValue2&"','"&strValue3&"','"&strValue4&"','"&strValue5&"','"&strValue6&"','"&strValue7&"','"&strValue8&"','"&strValue9&"','"&strValue10&"','"&strValue11&"','"&strValue12&"','"&strValue13&"','"&strValue14&"','"&strValue15&"','"&strValue16&"','"&strValue17&"')"
'Response.Write strSql
objConn1.Execute strSql
end if
objRs.MoveNext
i=i+1
Wend

End If

response.write "<script language=javascript>alert('数据导出成功，返回中...');</script>"
response.write "<script language=javascript>this.location.href='admin_client.asp';</script>"
'response.write "导出"
end sub


sub daoru()

strPath=request("strPath")
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 objRs=server.CreateObject("ADODB.Recordset")
objRs.Open "select * from [Sheet1$]",objConn,1,3

Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "select * from pfdzdate",Conn,1,3

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

If Not objRs.EOF Then

While Not objRs.EOF
strValue1 = objRs(1).Value
strValue2 = objRs(2).Value
strValue3 = objRs(3).Value
strValue4 = objRs(4).Value
strValue5 = objRs(5).Value
strValue6 = objRs(6).Value
strValue7 = objRs(7).Value
strValue8 = objRs(8).Value
strValue9 = objRs(9).Value
strValue10 = objRs(10).Value
strValue11 = objRs(11).Value
strValue12 = objRs(12).Value
strValue13 = objRs(13).Value
strValue14 = objRs(14).Value
'Next
if strValue1<>"" then
cccSql="insert into pfdzdate (xinghao,changjia,shuliang,pihao,fengzhuang,danjia,gonghuo,beizhu1,tel1,tel2,lishi,xundate,xunjia,beizhu2) values ( '"&strValue1&"','"&strValue2&"','"&strValue3&"','"&strValue4&"','"&strValue5&"','"&strValue6&"','"&strValue7&"','"&strValue8&"','"&strValue9&"','"&strValue10&"','"&strValue11&"','"&strValue12&"','"&strValue13&"','"&strValue14&"')"
'Response.Write cccSql
Conn.execute cccSql
end if
objRs.MoveNext
i=i+1
Wend

End If

response.write "<script language=javascript>alert('数据导入成功，返回中...');</script>"
response.write "<script language=javascript>this.location.href='admin_client.asp';</script>"
end sub
%>
okmax 2005-05-17
  • 打赏
  • 举报
 回复
做个标记，我也需要
sywcf 2005-05-17
  • 打赏
  • 举报
 回复
收藏
wxcyz 2005-05-17
  • 打赏
  • 举报
 回复
谢谢大家，问题已经解决，共有400分，mymyal123(风之森)300分
其它的大家分吧


mymyal123(风之森)去
http://community.csdn.net/Expert/topic/4009/4009640.xml?temp=.1471674

拿分
wxcyz 2005-05-16
  • 打赏
  • 举报
 回复
mymyal123(风之森) 你好，我下午等着要，能不能具体的和我说下怎么做，我拿来试了下，一点反应都没有，也不报错。非常感谢，我的QQ1362174
poonzsp 2005-05-16
  • 打赏
  • 举报
 回复
帮你贴段兔子的总结

ASP操作Excel技术总结

目录
一、 环境配置
二、 ASP对Excel的基本操作
三、 ASP操作Excel生成数据表
四、 ASP操作Excel生成Chart图
五、 服务器端Excel文件浏览、下载、删除方案
六、 附录

正文
一、 环境配置
服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即：
1．Win9x+PWS+Office
2．Win2000 Professional+PWS+Office
3．Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特殊要求，考虑到客户机配置的不确定性和下兼容特性，建议服务器端Office版本不要太高，以防止客户机下载后无法正确显示。
服务器端环境配置还有两个偶然的发现是：
1． 笔者开发机器上原来装有金山的WPS2002，结果Excel对象创建始终出现问题，卸载WPS2002后，错误消失。
2． 笔者开发ASP代码喜欢用FrontPage，结果发现如果FrontPage打开（服务器端），对象创建出现不稳定现象，时而成功时而不成功。扩展考察后发现，Office系列的软件如果在服务器端运行，则Excel对象的创建很难成功。
服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择Microsoft Excel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。
客户端的环境配置没发现什么特别讲究的地方，只要装有Office和IE即可，版本通用的好象都可以。

二、 ASP对Excel的基本操作
1、 建立Excel对象
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false 不显示警告
objExcelApp.Application.Visible = false 不显示界面
2、 新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
3、 读取已有Excel文件
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
4、 另存Excel文件
objExcelBook.SaveAs strAddr & "\Temp\Table.xls"
5、 保存Excel文件
objExcelBook.Save （笔者测试时保存成功，页面报错。）
6、 退出Excel操作
objExcelApp.Quit 一定要退出
set objExcelApp = Nothing

三、 ASP操作Excel生成数据表
1、 在一个范围内插入数据
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
2、 在一个单元格内插入数据
objExcelSheet.Cells(3,1).Value="Internet Explorer"
3、 选中一个范围
4、 单元格左边画粗线条
5、 单元格右边画粗线条
6、 单元格上边画粗线条
7、 单元格下边画粗线条
8、 单元格设定背景色
9、 合并单元格
10、 插入行
11、 插入列

四、 ASP操作Excel生成Chart图
1、 创建Chart图
objExcelApp.Charts.Add
2、 设定Chart图种类
objExcelApp.ActiveChart.ChartType = 97
注：二维折线图，4；二维饼图，5；二维柱形图，51
3、 设定Chart图标题
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"
4、 通过表格数据设定图形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
5、 直接设定图形数据（推荐）
objExcelApp.ActiveChart.SeriesCollection.NewSeries
objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333"""
objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}"
6、 绑定Chart图
objExcelApp.ActiveChart.Location 1
7、 显示数据表
objExcelApp.ActiveChart.HasDataTable = True
8、 显示图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

五、 服务器端Excel文件浏览、下载、删除方案
浏览的解决方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以实现，建议用客户端的方法，原因是给服务器更多的时间生成Excel文件。
下载的实现要麻烦一些。用网上现成的服务器端下载组件或自己定制开发一个组件是比较好的方案。另外一种方法是在客户端操作Excel组件，由客户端操作服务器端Excel文件另存至客户端。这种方法要求客户端开放不安全ActiveX控件的操作权限，考虑到通知每个客户将服务器设置为可信站点的麻烦程度建议还是用第一个方法比较省事。
删除方案由三部分组成：
A： 同一用户生成的Excel文件用同一个文件名，文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。
B： 在Global.asa文件中设置Session_onEnd事件激发时，删除这个用户的Excel暂存文件。
C： 在Global.asa文件中设置Application_onStart事件激发时，删除暂存目录下的所有文件。
注：建议目录结构 \Src 代码目录 \Templet 模板目录 \Temp 暂存目录

六、 附录
出错时Excel出现的死进程出现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改善这种情况，因为它会不管文件是否产生错误都坚持执行到“Application.Quit”，保证每次程序执行完不留下死进程。
mymyal123 2005-05-16
  • 打赏
  • 举报
 回复
ASP操作Excel技术总结

目录
一、 环境配置
二、 ASP对Excel的基本操作
三、 ASP操作Excel生成数据表
四、 ASP操作Excel生成Chart图
五、 服务器端Excel文件浏览、下载、删除方案
六、 附录

正文
一、 环境配置
服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即：
1．Win9x+PWS+Office
2．Win2000 Professional+PWS+Office
3．Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特殊要求，考虑到客户机配置的不确定性和下兼容特性，建议服务器端Office版本不要太高，以防止客户机下载后无法正确显示。
服务器端环境配置还有两个偶然的发现是：
1． 笔者开发机器上原来装有金山的WPS2002，结果Excel对象创建始终出现问题，卸载WPS2002后，错误消失。
2． 笔者开发ASP代码喜欢用FrontPage，结果发现如果FrontPage打开（服务器端），对象创建出现不稳定现象，时而成功时而不成功。扩展考察后发现，Office系列的软件如果在服务器端运行，则Excel对象的创建很难成功。
服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择Microsoft Excel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。
客户端的环境配置没发现什么特别讲究的地方，只要装有Office和IE即可，版本通用的好象都可以。

二、 ASP对Excel的基本操作
1、 建立Excel对象
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false 不显示警告
objExcelApp.Application.Visible = false 不显示界面
2、 新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
3、 读取已有Excel文件
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
4、 另存Excel文件
objExcelBook.SaveAs strAddr & "\Temp\Table.xls"
5、 保存Excel文件
objExcelBook.Save （笔者测试时保存成功，页面报错。）
6、 退出Excel操作
objExcelApp.Quit 一定要退出
set objExcelApp = Nothing

三、 ASP操作Excel生成数据表
1、 在一个范围内插入数据
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
2、 在一个单元格内插入数据
objExcelSheet.Cells(3,1).Value="Internet Explorer"
3、 选中一个范围
4、 单元格左边画粗线条
5、 单元格右边画粗线条
6、 单元格上边画粗线条
7、 单元格下边画粗线条
8、 单元格设定背景色
9、 合并单元格
10、 插入行
11、 插入列

四、 ASP操作Excel生成Chart图
1、 创建Chart图
objExcelApp.Charts.Add
2、 设定Chart图种类
objExcelApp.ActiveChart.ChartType = 97
注：二维折线图，4；二维饼图，5；二维柱形图，51
3、 设定Chart图标题
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"
4、 通过表格数据设定图形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
5、 直接设定图形数据（推荐）
objExcelApp.ActiveChart.SeriesCollection.NewSeries
objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333"""
objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}"
6、 绑定Chart图
objExcelApp.ActiveChart.Location 1
7、 显示数据表
objExcelApp.ActiveChart.HasDataTable = True
8、 显示图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

五、 服务器端Excel文件浏览、下载、删除方案
浏览的解决方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以实现，建议用客户端的方法，原因是给服务器更多的时间生成Excel文件。
下载的实现要麻烦一些。用网上现成的服务器端下载组件或自己定制开发一个组件是比较好的方案。另外一种方法是在客户端操作Excel组件，由客户端操作服务器端Excel文件另存至客户端。这种方法要求客户端开放不安全ActiveX控件的操作权限，考虑到通知每个客户将服务器设置为可信站点的麻烦程度建议还是用第一个方法比较省事。
删除方案由三部分组成：
A： 同一用户生成的Excel文件用同一个文件名，文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。
B： 在Global.asa文件中设置Session_onEnd事件激发时，删除这个用户的Excel暂存文件。
C： 在Global.asa文件中设置Application_onStart事件激发时，删除暂存目录下的所有文件。
注：建议目录结构 \Src 代码目录 \Templet 模板目录 \Temp 暂存目录

六、 附录
出错时Excel出现的死进程出现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改善这种情况，因为它会不管文件是否产生错误都坚持执行到“Application.Quit”，保证每次程序执行完不留下死进程。
补充两点：
1、其他Excel具体操作可以通过录制宏来解决。
2、服务器端打开SQL企业管理器也会产生问题。


<%
On Error Resume Next

strAddr = Server.MapPath(".")

set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.WorkBooks.Open(strAddr & "\Templet\Null.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)

objExcelSheet.Range("B2:k2").Value = Array("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10")
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
objExcelSheet.Range("B4:k4").Value = Array("10", "10", "8", "27", "33", "37", "50", "54", "10", "10")
objExcelSheet.Range("B5:k5").Value = Array("23", "3", "86", "64", "60", "18", "5", "1", "36", "80")
objExcelSheet.Cells(3,1).Value="Internet Explorer"
objExcelSheet.Cells(4,1).Value="Netscape"
objExcelSheet.Cells(5,1).Value="Other"

objExcelSheet.Range("b2:k5").Select

objExcelApp.Charts.Add
objExcelApp.ActiveChart.ChartType = 97
objExcelApp.ActiveChart.BarShape =3
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = "Visitors log for each week shown in browsers percentage"
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
objExcelApp.ActiveChart.Location 1
'objExcelApp.ActiveChart.HasDataTable = True
'objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

objExcelBook.SaveAs strAddr & "\Temp\Excel.xls"

objExcelApp.Quit
set objExcelApp = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="Microsoft FrontPage 5.0">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
</BODY>
</HTML>
加载更多回复（1）
Java POI 导入导出Excel简单实例源代码
Java POI 导入导出Excel简单实例源代码 该源代码的jar包，参见以下博文附录截图 Java POI导出EXCEL经典实现 Java导出Excel弹出下载框 http://blog.csdn.net/evangel_z/article/details/7332535 web页面导出Excel...
JAVA实现mysql与excel数据互导
不错，得到一些启发，后来在网络上又找了一些学习资源，自己做了个mysql与excel自动导入导出的普通JAVA工具类！谢谢分享资源啊！ 在网上找了一些学习资源，自己照着做了一个mysql与excel数据互想导入导出的例子，...
Java实现Excel导入和导出，看这一篇就够了(珍藏版)
最近抽了两天时间，把Java实现表格的相关操作进行了封装，本次封装是基于POI的二次开发，最终使用只需要调用一个工具类中的方法，就能满足业务中绝大部门的导入和导出需求。 环境准备 1. Maven 依赖 本次工具类的...
DBeaver 25.0.2 数据库导入、导出到Excel
5）在DBeaver中选择要导入的表，右键，导入数据，选择"CSV 从 CSV 文件导入"，下一步（可以点击右边的预览按钮，可以查看...DBeaver 25.0.2 社区版自带没有导出到Excel文件的功能，不过也可以实现导出到excel的需求。
Excel表的导入、导出
一、Excel表的两种导入导出方式（POI和JXL） 二、使用两种不同方式的概念和Excel的关系 三、实现两种不同方式的简单实例 一、Excel表的两种导入导出方式（POI和JXL） 注：网上找的资料 JXL：支持比较低版本...
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章