asp数据库与excel的导入导出 _知识经验

文章插图

下面是asp中的代码
设置rs2 =服务器。CreateObject(ADODB.recordset)
SQL = select * from eq where eq bumen = ' & dep；& ' eqbumen desc的订单
rs2 .打开康涅狄格州sql，1，1
set objExcel=CreateObject(Excel 。应用程序)
objexcel . workbooks . Open(server . mappath(test)& book1 . xlt)'打开excel模板。
ObjExcel 。床单(1) 。选择'选择工作页面。
设置sheetActive=objExcel 。ActiveWorkbook.ActiveSheet
“Num=2”从Excel的第2行开始。
“Do while not rs2.eof”循环，直到数据集中的数据结束。
【asp数据库与excel的导入导出】StrRange=b#&:k# '设置要填充的单元格区域。
工作表激活。范围(字符串范围) 。字体。size = 10 '设置字体大小。
工作表激活。范围(strrange) 。“wraptext = false”设置文本换行。
工作表激活。范围(字符串范围) 。' Shrinktofit = true '设置是否自动适应表格单元格大小。
工作表激活。范围(strrange) 。value = http://www.baikeg.com/ng/array (rs2 (zcid)，rs2 (eqname)，rs2 (eqchangjia)，rs2 (eqxinghao)，rs2 (eqnengli) ， rs2 (eqweizhi)，rs2 (eqxianzhuang) ， rs2 (eqno) 。
数字=数字+1
rs2 。下一步
环
函数getTemporaryFile & # 40myFileSystem & # 41
dim临时文件，点位置
tempFile = my file system . gettempname
dotPos=instr(1，tempFile，.)
getTemporaryFile=mid(tempFile，1，dotPos)& xls；结束功能
set myFs=createObject(脚本。文件系统对象)
filepos = server . mappath(test)& temp '存储临时打印文件的临时目录。
fileName = getTemporaryFile & # 40myFs & # 41获取一个临时文件名。
我的。删除文件filePos&* 。“xls”删除该目录中所有原始的临时打印文件。
设置myFs =无
objExcel 。active workbook . save as filePos & filename；
objExcel退出
set objExcel=Nothing .
以上解释了asp数据库和excel的导入导出。这篇文章已经分享到这里了，希望对大家有所帮助。