怎样按月找出新客户？

风中的我脸

参考附件。。。。

small_small

tte3 发表于 2022-12-14 15:33
是的，筛选本月金额合计大于1000的，没有筛选。

1. 
   

复制代码

limonet

代码在审核

limonet

Sub Limonet2()
    Dim Cn As Object, StrSQL$, Arr As Variant, Cri$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    Arr = Cn.Execute("select distinct 购货方名称 from  [发票数据$A:N] where 开票日期<=#2021-12-31#").getrows
    Cri = "'" & Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(Arr)), "','") & "'"
    StrSQL = "select month(开票日期) as 分类,购货方名称,购货方社会统一信用代码 from [发票数据$A:N] where 购货方名称 not in(" & Cri & ") group by month(开票日期),购货方名称,购货方社会统一信用代码 having sum(发票金额)>=1000" '搁置
    StrSQL = "select first(分类)&'月新客户',购货方名称,购货方社会统一信用代码 from (" & StrSQL & ")  group by 购货方名称,购货方社会统一信用代码"
    Range("A7").CopyFromRecordset Cn.Execute(StrSQL)
    Cn.Close
    Set Cn = Nothing
End Sub

tte3

风中的我脸 发表于 2022-12-14 15:53
参考附件。。。。

收到，非常感谢

tte3

limonet 发表于 2022-12-14 17:26
代码在审核

谢谢！
感谢大家的帮助！

tte3

为什么我上面的几个附件，宏不能运行？我其他文件的宏都可以运行。
我的OFFICE 2021专业增强版

笨鸟飞不高

新客户.zip (22.73 KB, 下载次数: 3)

2022-12-15 15:41 上传

点击文件名下载附件

tte3

笨鸟飞不高 发表于 2022-12-15 15:41

谢谢老铁

tte3

tte3 发表于 2022-12-15 10:44
为什么我上面的几个附件，宏不能运行？我其他文件的宏都可以运行。
我的OFFICE 2021专业增强版

关于下载附件后不能运行宏的解决方法

如果从Ehome论坛中下载了一些附件，却出现如不能运行宏的弹窗，可以打开下载的文件，并另存为另一文件名，则可以打开新另存的文件。