ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 13600|回复: 17

[讨论] 从SQL中抓数据到EXCEL,生成相关报表与图表

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-2-17 23:37 | 显示全部楼层 |阅读模式
各位朋友,好友没有回来了,今天下班的路上想到一问题,突然想到用EXCEL应该能实现我要的功能:
1、有一ERP软件,后台是SQL,我自己管理数据库,对后台的TABLE有一定的了解与熟悉。
2、想从后台的SQL中的TABLE中抓取相关的数据到EXCEL表,如果SQL有一销售订单表为A,从表A中抓相关的销售订单到EXCEL中。
3、EXCEL中有SHEET1/SHEET2/SHEET3,SHEET1中就有一按钮,点击后可以自动去抓取对应SQL中的TABLE最新的数据,然后SHEET2是根据SHEET1做了图表,SHEET3是根据SHHT1做的数据透视表,SHEET1的数据更新后,SHEET2中的图表也自动更新,SHEET3也会自动更新。

请问各位朋友有没有类似的案例,或是好的建议。我想应该要用VBA来实现了!请各位朋友指点,TKS!

TA的精华主题

TA的得分主题

发表于 2009-2-19 09:28 | 显示全部楼层
可以试试导入外部数据功能。

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-2-19 11:48 | 显示全部楼层
是呀,最好要有一个实例,或是截图教程,我心中大概有一个方向与思路,只是现在没有更多的时间去试,手上杂七杂八的事太多,我晕。。。改天有时间,来试一试了,毕竟EXCEL强大的图表功能是其他软件没有了。。。

昨天小试牛刀,可以实现,就是样子要改,还有很多地方要改进,如果OK,我会上传样式给大家查看了。TKS

TA的精华主题

TA的得分主题

发表于 2009-2-20 11:04 | 显示全部楼层
这是俺以前做项目时,给一个客户写的,也就是生成一张报表而已
连的是oracle数据库,自己参考一下吧,
其实并不难,就是连接数据库,然后写数据

Sub f_createreport()
    Dim lole_conn As ADODB.Connection
    Dim lole_rs As ADODB.Recordset
    Dim ls_conn As String
    Dim ls_sql As String
    Dim j As Long
   
   
    Set lole_conn = New ADODB.Connection '初始化数据库连接对象
    Set lole_rs = New ADODB.Recordset '初始化数据集对象
   
    '========================================================================================================================================
    '连接数据库
    '========================================================================================================================================
    ls_conn = "Provider=MSDAORA.1;User ID=cml;Data Source=1;Password=1"
    lole_conn.Open ls_conn
   
    '========================================================================================================================================
    '查询自由职业者人数
    '========================================================================================================================================
    ls_sql = " select count(1) syrs from ys_grjbzl where dwsxh = 547 " 'sql语句
    lole_rs.Open ls_sql, lole_conn, adLockReadOnly, adLockReadOnly     '获取数据
        
    j = 1
    While Not lole_rs.EOF '如果有数据,则循环取值
   
        '在excel中显示值
        Worksheets("sheet1").Cells(j, 1).Value = lole_rs.Fields("syrs").Value
        
        j = j + 1
        lole_rs.MoveNext '移动到下一行
    Wend '结束循环
   
    lole_rs.Close '关闭数据集
   
    '========================================================================================================================================
    '查询在职女性人数
    '========================================================================================================================================
    ls_sql = " select count(1) rs from ys_grjbzl where zglb = '1' and xb = '2' " 'sql语句
    lole_rs.Open ls_sql, lole_conn, adLockReadOnly, adLockReadOnly     '获取数据
        
    j = 1
    While Not lole_rs.EOF '如果有数据,则循环取值
   
        '在excel中显示值
        Worksheets("sheet1").Cells(j, 2).Value = lole_rs.Fields("rs").Value
        
        j = j + 1
        lole_rs.MoveNext '移动到下一行
    Wend '结束循环
   
    lole_rs.Close '关闭数据集
   
    '========================================================================================================================================
    '处理数据库连接对象
    '========================================================================================================================================
    lole_conn.Close '关闭数据库连接
    Set lole_conn = Nothing '清空数据库连接对象
    Set lole_rs = Nothing ''清空数据集对象
         
   
End Sub

TA的精华主题

TA的得分主题

发表于 2009-2-21 18:39 | 显示全部楼层
其实不必用VBA,自己写太复杂了,可以用Excel的Query功能 ,非常适合导出SQL数据。
Query有向导可以用。
导出数据后再做图表就比较简单了。
最后将Query刷新命令和图标(比如数据分析表)的命令录成宏,加个控件按钮,以后用就简单了。
整个过程都不用写VBA

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-2-24 17:25 | 显示全部楼层
其实不必用VBA,自己写太复杂了,可以用Excel的Query功能 ,非常适合导出SQL数据。
Query有向导可以用。
导出数据后再做图表就比较简单了。
最后将Query刷新命令和图标(比如数据分析表)的命令录成宏,加个控件按钮,以后用就简单了。
整个过程都不用写VBA
------------这个比较感兴趣,有类似的看看吗。

TA的精华主题

TA的得分主题

发表于 2009-4-16 22:18 | 显示全部楼层
我做过,从用友ERP数据库取两个帐套数据,然后通过算法运算汇总成一种特殊的报表写入EXCLE速度非常之快,6万条数据做成这样的报表只用1秒,EXCEL打死也达不到这样的速度!

TA的精华主题

TA的得分主题

发表于 2009-7-22 17:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-12 17:32 | 显示全部楼层
不需要VBA,直接用导入外部数据。
数据库中脚本写好,每次更新。
excel做好数据透视表或者图表模板,
每次更新就是了

具体办法见附件,我也是今天找到这个东西。感谢!

EXCEL通过ODBC对ORACLE数据库进行数据查询操作办法.rar

247.99 KB, 下载次数: 853

TA的精华主题

TA的得分主题

发表于 2009-8-25 16:28 | 显示全部楼层
请问哪位有通过ODBC从SQL数据库中导出数据到EXCEL表的VBA宏代码?谢谢……
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-14 08:43 , Processed in 0.065884 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表