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

2016-01-29 17:40 8 1 收藏

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

【 tulaoshi.com - ASP 】

  '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


 

来源:http://www.tulaoshi.com/n/20160129/1502457.html

延伸阅读
Excel 2003  工作表是组织和分析财务数据的理想工具。例如,您可能会创建一个包含差旅住宿费的工作表。如果需要各个季度的分类汇总,您知道如何相应地修改工作表。 但是,在需要按季度查看费用类别总计时会发生什么情况呢?而且如果您每次只想查看某一类或某一年份又该怎么办呢?在 Excel  工作表中能实现这些吗?当然可以。有没有更容...
标签: SQLServer
  为了解决这个问题,我们可以用前置的0补足ShipperID值,使得ShipperID值都有同样的长度。按照这种方法,基于字符的排序具有和整数排序同样的输出结果。修改后的存储过程如Listing 5所示。十个0被置于ShipperID的绝对值之前,而在结果中,代码只是使用最右边的10个字符。SIGN函数确定在正数的前面加上加号(+)前缀,还是在负数的前...
标签: SQLServer
  三、用列号作为参数 就象第一个方案所显示地那样,你也许更喜欢用列的编号作为参数,而不是使用列的名字(列的编号即一个代表你想要作为排序依据的列的数字)。这种方法的基本思想与使用列名字作为参数的思想一样:CASE表达式根据指定的列号确定使用哪一个列进行排序。Listing 7显示了修改后的GetSortedShippers存储过程。 【...
标签: SQLServer
  为了避免出现这种转换错误,我们可以尝试把ShipperID转换成varchar数据类型。采用这种方法之后,nvarchar将作为最高优先级的数据类型被返回。Listing 3显示了修改后的GetSortedShippers存储过程。 【Listing 3:用列名字作为参数,第二次尝试】 ALTER PROC GetSortedShippers @ColName AS sysname AS SELECT * FROM...
之前在PowerPoint里面演示数据透视表是件不可能的事情,但现在就将其变为可能,需要借助一个插件,其支持交互式的图表移植,作用是将Excel图表移到PPT里面不再是单调的静态的表。下面以图文的形式为大家介绍下具体的操作步骤,作为新手朋友的你,可以借此机会学习下。 简述 首先是下载插件,选中数据源,Ctrl+F3键,新建名称。打开PowerPoint...

经验教程

158

收藏

63
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部