您的位置：首页 → 精文荟萃 → 软件资讯 → WSH 直接将查询数据结果生成EXCEL表

WSH 直接将查询数据结果生成EXCEL表

时间：2004/10/7 18:18:00来源：本站整理作者：蓝点我要评论(0)

'EXCELa.VBS '直接将查询数据结果生成 EXCEL 表，稍做修改后即可 
'改成ASP文件放在服务器上面向客户 

option Explicit 
dim conn,strConnString 
Set conn = WScript.CreateObject("ADODB.Connection") 
on error resume next 
strConnString ="Provider=SQLOLEDB.1;Password=UP;" & _ 
"Persist Security Info=True;User ID=UI;" & _ 
"Initial Catalog=UCOOl;" & _ 
"Data Source=111.111.111.111;Connect Timeout=15" 
conn.Open strConnString 
if err.number <> 0 Then 
WScript.echo "数据库链接不畅!;" 
WScript.Quit 
end If 
on error goto 0 
Dim rs,sql 
set rs=WScript.createobject("adodb.recordset") 
on error resume next 
sql="select name,dw,dwdz,zw,sex,email from t1 order by id desc" 
rs.Open sql, conn 
if err.number <> 0 Then 
WScript.echo "查询语句有误!;" 
WScript.Quit 
end If 
on error goto 0 
dim rsname,i 
on error resume next 
rsname=RS( 0 ).name 
for i = 1 to RS.Fields.Count - 1 
rsname=rsname&chr(9)&RS( i ).name 
next 
rsname=rsname&chr(13) 
Dim strdate 
strdate=rsname&rs.GetString(2,-1,,," ") 
if err.number <> 0 Then 
WScript.echo "保存数据时出错!;" 
WScript.Quit 
end If 
Set conn=Nothing 
Set rs=Nothing 
on error goto 0 
Dim fs,fl,path,ntime 
Set fs=WScript.CreateObject("scripting.filesystemobject") 
path=WScript.scriptfullname 
path=left(path,instrrev(path,"\")) 
ntime=cstr(Now) 
ntime=Replace(ntime,":","_") 
on error resume next 
Set fl=fs.CreateTextFile(path&ntime&".xls",true) 
fl.Write strdate 
if err.number <> 0 Then 
WScript.echo "建立文件出错!;" 
end If

相关阅读 Mac访问Windows共享文件夹Windows 7正版系统验证方法windows 8.1系统版本号查看方法Windows 8.1系统电话激活时无法输入微软返回代码解决方法Windows 8如何调整屏幕分辨率windows8.1磁盘占用100%解决方法Mac双系统如何删除Boot Camp安装的Windows分区Apple教你如何在Mac 上运行 Windows

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论