加载中…
个人资料
恩格软件
恩格软件
  • 博客等级:
  • 博客积分:0
  • 博客访问:11,814
  • 关注人气:2
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

ADO在EXCEL中的应用

(2021-06-05 12:59:19)
标签:

财务软件

会计软件

免费财务软件

免费会计软件

分类: ExcelVBA
Sub SQL查询_存货()
 
    '定义ADODB对象需要引用:Microcsoft ActiveX Data Objects 6.1 Library
    
    Dim cnn As ADODB.Connection, rs As ADODB.Recordset
    
    Dim strConn As String, strSQL As String

    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES"";"
    
    Set cnn = New ADODB.Connection
    
    cnn.Open strConn

    strSQL = "select 存货编码 as 存货编码,存货 as 存货,规格 as 规格型号,计量单位 as 单位,sum(应收数量) as 数量,sum(无税金额) as 销售收入,sum(成本金额) as 销售成本,sum(无税金额)-sum(成本金额) as 毛利,(sum(无税金额)-sum(成本金额))/sum(无税金额) as 毛利率 from [U8原始毛利表$] group by 存货编码,存货,规格,计量单位 having sum(应收数量)<>0 order by 存货编码 asc" '设置SQL查询语句
    
    Set rs = cnn.Execute(strSQL) '执行查询

    ActiveWorkbook.Worksheets("存货毛利分析").Cells.ClearContents

    Dim i As Integer

    For i = 1 To rs.Fields.Count

        ActiveWorkbook.Worksheets("存货毛利分析").Cells(1, i) = rs.Fields(i - 1).Name '填写标题到表

    Next

    ActiveWorkbook.Worksheets("存货毛利分析").Range("a2").CopyFromRecordset rs '复制记录集到表

    rs.Close

    Set rs = Nothing

    cnn.Close

    Set cnn = Nothing
    
End Sub

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 电话:4000520066 提示音后按1键(按当地市话标准计费) 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有