请教VBA实现内容提取合并问题2

limonet

sdytsxd991122 发表于 2023-7-7 10:07
月份重复应该怎么解决？

select year(日期)&'-'&month(日期) as 月,year(日期)&'-'&datepart('ww',日期) as 周

limonet

6xueren 发表于 2023-7-7 08:35
为什么放在这里边就无法运行呢

不了解这个工作簿的结构。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    StrSQL = "select last(日期),first(开盘价),max(最高价),min(最低价),last(收盘价),sum(成交量) from (select year(日期)&'-'&month(日期) as 月,year(日期)&'-'&datepart('ww',日期) as 周,* from [Sheet1$A:F] where 日期>0) group by "
    Range("H2").CopyFromRecordset Cn.Execute(StrSQL & "周")
    Range("O2").CopyFromRecordset Cn.Execute(StrSQL & "月")
End Sub