哪里有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
以上程序我没有调试，你可以根据你自己的情况参考一下
函数的用法和思路是我用过了，是可行的。
提问者对于答案的评价：
谢谢你，回答了我的3个问题，我又有了一个新问题，在看看怎么办。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc264131.html
微信扫一扫 
支付宝扫一扫 