从SQL中抓数据到EXCEL，生成相关报表与图表

9971gh

各位朋友，好友没有回来了，今天下班的路上想到一问题，突然想到用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！

Kevin

可以试试导入外部数据功能。

9971gh

是呀，最好要有一个实例，或是截图教程，我心中大概有一个方向与思路，只是现在没有更多的时间去试，手上杂七杂八的事太多，我晕。。。改天有时间，来试一试了，毕竟EXCEL强大的图表功能是其他软件没有了。。。

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

buddha_2002

这是俺以前做项目时,给一个客户写的,也就是生成一张报表而已
连的是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

realstone

其实不必用VBA，自己写太复杂了，可以用Excel的Query功能 ，非常适合导出SQL数据。
Query有向导可以用。
导出数据后再做图表就比较简单了。
最后将Query刷新命令和图标（比如数据分析表）的命令录成宏，加个控件按钮，以后用就简单了。
整个过程都不用写VBA

9971gh

其实不必用VBA，自己写太复杂了，可以用Excel的Query功能 ，非常适合导出SQL数据。
Query有向导可以用。
导出数据后再做图表就比较简单了。
最后将Query刷新命令和图标（比如数据分析表）的命令录成宏，加个控件按钮，以后用就简单了。
整个过程都不用写VBA
------------这个比较感兴趣，有类似的看看吗。

tycp

我做过，从用友ERP数据库取两个帐套数据，然后通过算法运算汇总成一种特殊的报表写入EXCLE速度非常之快，6万条数据做成这样的报表只用1秒，EXCEL打死也达不到这样的速度！

yanjunyi

我正想要，谢谢

wobushiandy

不需要VBA，直接用导入外部数据。
数据库中脚本写好，每次更新。
excel做好数据透视表或者图表模板，
每次更新就是了

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

flying008

请问哪位有通过ODBC从SQL数据库中导出数据到EXCEL表的VBA宏代码?谢谢……