分类汇总问题（下标越界） 2010版表格，数据140000行

love熙熙

求各位老师指导！

ykcbf1100

至少发现三处错误，我还是新写一个比较快。

yanglinzi

定义的数组是drr,循环的是arr，y因为arr不存在。

limonet

关键字：group by+order by

limonet

Sub limont()
    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 品种,Sum(数量) From [Sheet1$E:F] Group By 品种 Order By 品种"
    Range("A2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

ykcbf1100

第一个错误：应该为[a2].resize(d.count,1)
第二个错误：数组不同，一个drr,另一个为arr
第三个错误：简单错误，resize(d.count,1)

baofa2

conn.open …… & thisworkbook.fullname 此为自连接
[表$A:B] 这样，有 65536 行限制。
超 65536 行数据 宜用整表模式 [表$]


补充，这是针对5F的说明，望有好学者知晓。

love熙熙

谢谢各位老师！

感谢！我也没想到这么多错……。

love熙熙

草爷！ 还是有点小问题，没执行完……。

（类型不匹配）

love熙熙

ykcbf1100 发表于 2024-4-14 17:49
至少发现三处错误，我还是新写一个比较快。

草爷！ 还是有点小问题，没执行完……。

（类型不匹配）