技成培训网 技成学习APP 技成工具箱 技成企业服务

欢迎回到技成培训网

技成培训网

电工题库宝典

技成电工课堂

PLC练习题

技成PLC课堂

变频器故障查询

技成PLC学吧

伺服驱动故障查询

技成PLC网校

当前位置:技成首页 > 文章中心 > 技成百科 > excel报表使用vba读取自定义sql2005数据库的脚本例子

excel报表使用vba读取自定义sql2005数据库的脚本例子

刘玉蓉 发布于2014-09-29 18:02 207 0 标签:

哪里有excel报表使用vba读取自定义sql2005数据库的脚本例子 ?
西门子A0567是变量归档数据库的例子,而我是要读取自定义的数据库来做报表,哪里有脚本例子,或用什么方法,请提示。

佳答案

建议你使用ADO访问数据库,利用vbs编写一段程序,将数据库里的数据写进Excel表中。

大概的程序框架如下:
(用于将数据库中某25*25的表中的数据写进d盘名叫1.xls的表中)
打开excel表
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = 1
objExcelApp.Workbooks.Open "D:1.xls"

建立ADO连接
Dim conn,constr
constr = ""填入你连接数据库的连接字符串 
Set conn=CreateObject("ADODB.Connection")
conn.open constr

查询产生数据集
Dim rsIS
Set rsIS = CreateObject("ADODB.Recordset")
rsIS.Open "SELECT * FROM 表名",conn

将查询内容写进excel表
Dim i,j
For i = 0 To 24
  For j = 0 To 24
  objExcelApp.Cells(i,j).Value = rsIS(j).Value  
  Next
  rsIS.MoveNext
Next 

关闭数据集
rsIS.Close
rsIS = Nothing

关闭连接 
conn.Close
conn = Nothing 

关闭excel表
objExcelApp.Workbooks(1).Close 
objExcelApp.Quit 

以上程序我没有调试,你可以根据你自己的情况参考一下
函数的用法和思路是我用过了,是可行的。

若有收获,就点个赞吧!

文章来源于网络及文献如有侵权请联系站长
分享到:

微信扫一扫分享

阅读与本文标签相同的文章

相关推荐

最新文章 热门文章
最新课程 免费课程
PLC资料下载 电工电气资料下载
应用新秀
变频器故障代码查询APP
伺服故障代码查询APP
技成
手机APP
热门标签