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

Posted 2023-03-18

参考技术A 下面是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的数据输出到文本文件中并设定长

我有一批excel中的数据需要导到txt文件中，并且规定每列在txt中的长度一定，每列之间没有制表符。请问各位专家有没有解决方案？

存为制表符分隔的，然后随便用什么语言写个小程序来转行为固定宽度的，因为EXCEL不支持直接输出固定宽度的文本文件。

转换程序非常简单，我可以帮你写一个，不过这里只能贴源码，目标文件无法粘贴，所以建议用PERL来写，你自己下载一个PERL来安装即可，PERL的可移植性比其它的C和PASCAL好得多，什么平台、什么版本基本上都通用。 参考技术A 你在保存时用文本格式保存就可以了. 参考技术B 直接保存就是你要的结果，在第二个警告处选择“是”