VBA使用SQL查询表数据

最新推荐文章于 2024-08-17 10:12:39 发布

bolixi7800

最新推荐文章于 2024-08-17 10:12:39 发布

阅读量1.8k

点赞数

文章标签：人工智能

原文链接：http://blog.51cto.com/alun51cto/2425463

版权

本文介绍如何在VBA中利用SQL语句进行表数据查询和统计，特别是详细阐述了如何通过Left Join操作连接两个以上表格，实现更复杂的数据分析。

摘要由CSDN通过智能技术生成

一、VBA使用SQL查询表，统计数据

Sub 统计数据()

    Dim CNN  As Object
    Dim sql As String

     ThisWorkbook.Sheets("统计表").Activate
    With ThisWorkbook.Sheets("统计表")
        Cells.Clear
        Cells(1, 1) = "部门名称"
        Cells(1, 2) = "名单总人数"
    End With

    Set CNN = CreateObject("ADODB.Connection")
    With CNN
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
        .Open
    End With

    sql = "select 部门名称,count(工号) as 名单总人数 from [violate$A2:D65536]  where trim(工号)<>''  group by 部门名称"
    ThisWorkbook.Sheets("ViolateSum").Range("A2").CopyFromRecordset CNN.Execute(sql)

    CNN.Close
    Set CNN = Nothing

End Sub

二、用Left Join 连接两个以上的表