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

6xueren

于箱长 发表于 2023-7-6 19:35
这些数据是怎么搞出来的呢

分几步抓出来的

limonet

周与月报。

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 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

sdytsxd991122

参与一下

于箱长

limonet 发表于 2023-7-6 21:47
Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")

不会QSL的我，居然看懂了，像样！不管用不用得上，学到了个datepart函数

6xueren

limonet 发表于 2023-7-6 21:45
周与月报。

为什么放在这里边就无法运行呢

limonet

于箱长 发表于 2023-7-7 08:33
不会QSL的我，居然看懂了，像样！不管用不用得上，学到了个datepart函数

，荣幸一起进步。

6xueren

于箱长 发表于 2023-7-7 08:33
不会QSL的我，居然看懂了，像样！不管用不用得上，学到了个datepart函数

你们都是大佬，好羡慕会编程

sdytsxd991122

limonet 发表于 2023-7-6 21:47
Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")

月份重复应该怎么解决？

limonet

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

前面加个年，像周的处理，year()&month()