'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
WSH 直接将查询数据结果生成 EXCEL 表
时间: 2024-11-27 21:51:26
WSH 直接将查询数据结果生成 EXCEL 表的相关文章
Nodejs获取网络数据并生成Excel表格_node.js
Nodejs的模版中有很多关于Excel表格的,这里我简单介绍一下我使用过的一个模块的使用. 首先,先安装Excel的模块: npm install node-xlsx 然后,在代码中引入模块: var xlsx = require('node-xlsx'); 最后,获取数据并写入Excel: var fs = require('fs'); var xlsx = require('node-xlsx'); var ajax = require('./ajax.js'); start(); fun
请各位一下.如何将C#中的数据网格表中的数据导到EXCEL表中?
问题描述 请各位一下.如何将C#中的数据网格表中的数据导到EXCEL表中? 解决方案 解决方案二:是GridView导出EXCEL吗?解决方案三:从网上找到的,引用Excel库usingSystem;usingSystem.Collections.Generic;usingSystem.ComponentModel;usingSystem.Data;usingSystem.Drawing;usingSystem.Text;usingSystem.Windows.Forms;usingSystem
vb6-vb 把数据输入到excel表中
问题描述 vb 把数据输入到excel表中 For m = 68 To 80 Step 3 For n = 12.6 To 16.2 Step 1.2 For o = 3.6 To 4.4 Step 0.2 For p = 210 To 275 Step 30 If m <> n And m <> o And m <> p And n <> o And n <> p Then Print m; n; o; p End If Next Next N
excel-asp.net mvc4如何实现页面数据导出到Excel表,有完整代码吗?本人新手,求大神
问题描述 asp.net mvc4如何实现页面数据导出到Excel表,有完整代码吗?本人新手,求大神 如题,asp.net mvc4如何实现页面数据导出到Excel表,有完整代码吗?本人新手,求大神 解决方案 最简单的方式是使用npoihttp://www.tuicool.com/articles/NNzMNn 解决方案二: 你可以采用OLEDB的方式进行导出,也就是采用数据库的方式,你可以在服务器上面配置一个tmp目录,先将数据文件采用OLEDB导出到这个文件中, 在通过文件下载的方式获取这个
java excel-java 生成excel表单并在某一单元格中填写内容
问题描述 java 生成excel表单并在某一单元格中填写内容 java 生成excel表单并在某一单元格中填写内容我可能一行excel中只在最前面和最后面填写了内容.中间全是空
求C#代码!!关于从Excel表中将数据导入Access数据库,以及Access数据库中的数据导出到Excel表的代码。急!!!晚上就得交差啊
问题描述 我需要从Excel表中将数据导入Access数据库,以及Access数据库中的数据导出到Excel表的代码,越具体越好!!望各位高手能不吝赐教 解决方案 解决方案二:不会吧?难道世间真的是如此残忍?为什么没人理我啊?高手们,算小弟我求你们了!难道是分不够多吗?初出江湖实在是身无分文啊----就不要太在意这个了,好不好啊?给我写写吧,万分感谢了!!解决方案三:这里是利用officeapplication方式来操作excel的http://blog.csdn.net/fangxinggoo
将MSHFlexGrid中的数据保存到Excel表
一直放着导出为Excel的这一步,以前一直觉得这个应该不好做吧,但是今天把代码写出来,才觉得没有想象的那么难. 首先,引用对象:Microsoftexcel 14.0 object library 接下来就是代码的设置了: Dim TempExcel As Excel.Application '声明一个Excel工作表 Dim TempSheet As Excel.Worksheet '声明一个excel工作簿 Dim TempRow
asp.net中利用OWC组件生成EXCEL表
//请在项目中引用OWC11(COM组件)OWC11.SpreadsheetClass xlsheet =new OWC11.SpreadsheetClass(); //合并单元格 xlsheet.get_Range(xlsheet.Cells[1,1],xlsheet.Cells[1,14]).set_MergeCells(true); xlsheet.ActiveSheet.Cells[1,1] ="一级帐表"; //字体加粗 xlshe
php怎么把数据表中的数据导出到excel表中
先定义头部信息,表示输出一个excel.然后再以table的形式把数据库的信息循环的echo出来,就好了. 代码如下 复制代码 <?php header("Content-type:application/vnd.ms-excel"); header("Content-Disposition:filename=xls_region.xls"); $cfg_dbhost = 'localhost'; $cfg_dbname = 'testdb';