vba 编写自动报表
来源:互联网 发布:hse矩阵管理规定 编辑:程序博客网 时间:2024/04/28 16:31
Sub qr_report_week_click() Dim conn As ADODB.Conn Dim rs As ADODB.Reco Dim i As Integer Dim sql As String, sdate As String, edate As String Set conn = CreateObjct("ADDB.Contion") conn.ConnecnString = "DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=192.168.0.3;Database=test;Uid=test;Pwd=test" conn.Open Set rs = New ADODB.Recordset sdate = InputBox("请输入起始日期,格式如 2016-02-01", "起始日期", Format(DateAdd("d", -7, Now), "yyyy-mm-dd")) edate = InputBox("请输入终止日期,格式如 2016-02-07", , Format(Now, "yyyy-mm-dd")) sql = "SELECT ....." rs.Open sql, conn rs.MoveFirst Set sht = ThisWorkbook.Worksheets("周新增统计") sht.Range("A2:E2").ClearContents i = 2Do While Not rs.EOF sht.Cells(i, 1) = rs("date") sht.Cells(i, 2) = rs("register") sht.Cells(i, 3) = rs("bind") sht.Cells(i, 4) = rs("activat") sht.Cells(i, 5) = rs("lv") rs.MoveNext i = i + 1Loop'累计统计Set rs = New ADODB.Recordset sql = "SELECT ....." rs.Open sql, conn rs.MoveFirst Set sht = ThisWorkbook.Worksheets("累计统计") sht.Range("A2:E2").ClearContents i = 2Do While Not rs.EOF sht.Cells(i, 1) = rs("register") sht.Cells(i, 2) = rs("activat") sht.Cells(i, 3) = rs("lv") rs.MoveNext i = i + 1Loop'周(每日统计)Set rs = New ADODB.Recordset sql = "SELECT DATE_....." rs.Open sql, conn rs.MoveFirst Set sht = ThisWorkook.Worksheets("周(每日统计)") sht.Rang("A2:E100").ClearContents i = 2Do While Not rs.EOF sht.Cells(i, 1) = rs("date") sht.Cells(i, 2) = rs("register") sht.Cells(i, 3) = rs("bind") sht.Cells(i, 4) = rs("activat") sht.Cells(i, 5) = rs("lv") rs.MoveNext i = i + 1Loop MsgBox "报表生成完成!" conn.Close Set conn = NothingEnd Sub
得到的测试结果如下:
重新跑后结果
0 0
- vba 编写自动报表
- vba 自动导入excel报表遇到的问题及解决方法
- VBA编写xml
- vba开发动态报表心得
- 用VBA完成报表制作
- [VBA]VBA编写的时光倒流软件
- 【VBA研究】VBA中编写延时函数
- VBA自动画图
- VBA 自动 生成Sql
- VBA自动发送邮件
- VBA Macro 自动画图
- Excel VBA程序的编写
- Excel VBA程序的编写
- VBA源码(销售月度统计报表)
- JavaScript+XML+VBA导出报表初步构想
- 编写报表SQL语句
- VBA自动登陆163信箱
- VBA,VB 自动登录网站
- windows 内核对象理解
- 一张图搞定多变量微积分
- jquery的checkbox取值赋值选中
- linux常用命令总结
- Java数据库连接池的配置
- vba 编写自动报表
- 操作、压缩MDB文件;使用ADO读写Mysql数据库;建立数据库和表的VBS脚本代码(2013-08-26 11:39:34)
- java 打印对象的属性和值ToStringBuilder.reflectionToString
- Qt 读取某一文件下所有文件
- 分治法求最大最小元
- TopCoder SRM604 DIV1 250
- Android Studio你不知道的调试技巧
- 简单脱壳教程笔记(1) --- 常见语言的入口点
- 扣丁学堂笔记第02天UI布局