asp操作excel
需要用excel做数据库,不知道怎么写入数据到excel中
asp如何将数据写入一个已经存在的excel的固定列中???各位大狭帮忙啊???

------解决方案--------------------
1、在一个范围内插入数据
objExcelSheet.Range( "B3:k3 ").Value=Array( "1 ", "2 ", "3 ", "4 ", "5 ", "6 ", "7 ", "8 ", "9 ", "10 ")
2、在一个单元格内插入数据
objExcelSheet.Cells(3,1).Value= "InternetExplorer "
------解决方案--------------------
呵呵，会有人来解决的，帮你顶一下。

asp中应该有现成的com来完成这种操作吧？ 这可是MS自已的东西
连java中都有不少组件来存取excel..

关注一下
------解决方案--------------------
不会,但帮你顶!
------解决方案--------------------
chouchy(城市刀客) ( ) 信誉：100 Blog 加为好友
已经说明..具体下面有个例子.
<!--#include file= "conn.asp "-->
<%
Set xlApplication =server.CreateObject( "Excel.Application ") '调用excel对象
xlApplication.Visible = False '无需打开excel
xlApplication.SheetsInNewWorkbook=1 '指定excel中表的数量
xlApplication.Workbooks.Add '添加工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '生成第1个工作表的子对象
xlWorksheet.name= "统计 " '指定工作表名称
'指定列的宽度以及对齐方式
xlApplication.ActiveSheet.Columns(1).ColumnWidth=5
xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(1).font.bold=true
xlApplication.ActiveSheet.Columns(2).ColumnWidth=40
xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(3).ColumnWidth=5
xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(4).ColumnWidth=15
xlApplication.ActiveSheet.Columns(4).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(5).ColumnWidth=12
xlApplication.ActiveSheet.Columns(5).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(6).ColumnWidth=12
xlApplication.ActiveSheet.Columns(6).HorizontalAlignment=3
'xlApplication.ActiveSheet.Rows(i).RowHeight = 30 '行的高度
'指定列的高度以及特定列
xlWorksheet.Range(xlWorksheet.Cells(1,1), xlWorksheet.Cells(2,6)).MergeCells =True '合并列
xlWorksheet.Range( "A1 ").value= "2005年统计 "
xlWorksheet.Range( "A1 ").font.Size=14 '字体大小
xlWorksheet.Range( "A1 ").font.bold=true '粗体
xlWorksheet.Range( "A1 ").HorizontalAlignment=3 '水平对齐
xlWorksheet.Range( "A1 ").VerticalAlignment=3 '垂直对齐

xlWorksheet.Cells(3,1).Value = "省 "
xlWorksheet.Cells(3,2).Value = "城市 "
xlWorksheet.Cells(3,3).Value = "姓名 "
xlWorksheet.Cells(3,4).Value = "性别 "
xlWorksheet.Cells(3,5).Value = "出生日期 "
xlWorksheet.Cells(3,6).Value = "手机 "

xlWorksheet.Range( "A2:F2 ").Borders.LineStyle=1
Call openconn()
Dim sql
sql= "select top 100 * from kehuziliao "
Set rs=conn.execute(sql)
Dim i
i=1
Do While Not rs.eof
'--------------------------------------------------自己可做循环i=i+1（数据库数据）
xlWorksheet.Cells(2+i,1).Value = rs( "quyu ")
xlWorksheet.Cells(2+i,2).Value = rs( "chengshi ")
xlWorksheet.Cells(2+i,3).Value = rs( "xingming ")
xlWorksheet.Cells(2+i,4).Value =rs( "xingbie ")
xlWorksheet.Cells(2+i,5).Value =rs( "chushengriqi ")
xlWorksheet.Cells(2+i,6).Value = rs( "shouji ")
'--------------------------------------------------
response.write rs( "xingming ")& " <br> "
'response.wirte "ss "&