asp如何将数据库中的数据输出到表格中并修改

下面是asp中的代码

Set rs2=Server.CreateObject(ADODB.recordset)

sql=select * from eq where eqbumen='&dep;&' order by eqbumen desc

rs2.open sql,conn,1,1

set objExcel=CreateObject(Excel.Application)

objExcel.Workbooks.Open(server.mappath(test)&book1.xlt) '打开Excel模板

objExcel.Sheets(1).select '选中工作页

set sheetActive=objExcel.ActiveWorkbook.ActiveSheet

num=2 '从Excel的第2行开始

Do while not rs2.eof '循环直至数据集中的数据写完

strRange=b#&:k# '设定要填写内容的单元区域

sheetActive.range(strRange).font.size=10 '设定字体大小

sheetActive.range(strRange).WrapText=false '设定文字回卷

sheetActive.range(strRange).ShrinkToFit=true '设定是否自动适应表格单元大小

sheetActive.range(strRange).value=array(rs2(zcid),rs2(eqname),rs2(eqchangjia),rs2(eqxinghao),rs2(eqnengli),rs2(eqweizhi),rs2(eqxianzhuang),rs2(eqno),rs2(eqbumen),rs2(eqchejian)) '把数据集中的数据填写到相应的单元中

num=num+1

rs2.MoveNext

loop

function getTemporaryFile(myFileSystem)

dim tempFile,dotPos

tempFile=myFileSystem.getTempName

dotPos=instr(1,tempFile,.)

getTemporaryFile=mid(tempFile,1,dotPos)&xls;end function

set myFs=createObject(scripting.FileSystemObject)

filePos=server.mappath(test)&temp '要存放打印临时文件的临时目录

fileName=getTemporaryFile(myFs) '取得一个临时文件名

'myFs.DeleteFile filePos&*.xls '删除该目录下所有原先产生的临时打印文件

set myFs=nothing

objExcel.ActiveWorkbook.saveas filePos&filename;

objExcel.quit

set objExcel=Nothing。

如何在一份Excel表格中进行快速查找

1、快速查找可直接点击excel界面的“查找和选择”，点击查找，就会出现查找页面；快捷键是Ctrl+F，同时按下Ctrl+F键也会出现查找和替换的页面。

2、Excel的常用快捷键有：Ctrl+A 全选；Ctrl+C 复制；Ctrl+V 粘贴；Ctrl+X剪切；Ctrl+Alt+向左键 向左切换到下一个不相邻的选定区域；Ctrl+Alt+向右键 在不相邻的选定区域中，向右切换到下一个选定区域；Ctrl+B 应用或取消加粗格式；Ctrl+I 应用或取消字体倾斜格式；Ctrl+U 应用或取消下画线。

怎样从表格中选出所需的信息

先双击打开需要用的那个excel表格，然后找到菜单栏目的开始，之后找到后面的自动筛选这个按钮，最后点开按钮输入需要的信息即可。MicrosoftExcel是用于电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。