按日期汇总数据

魂断蓝桥

czl103 发表于 2018-8-6 14:40
只有结果工作簿，数据源工作簿太大了，上传不了。

出错的时候，点调试可以看到f的变量名，也就是工作簿的名称，把那个出错的csv文件传一下。

czl103

魂断蓝桥 发表于 2018-8-6 14:43
出错的时候，点调试可以看到f的变量名，也就是工作簿的名称，把那个出错的csv文件传一下。

咋是空的啊？

czl103

魂断蓝桥 发表于 2018-8-6 14:43
出错的时候，点调试可以看到f的变量名，也就是工作簿的名称，把那个出错的csv文件传一下。

我试了下 应该是这个文件的问题 是不是文件名太长了？

魂断蓝桥

czl103 发表于 2018-8-6 17:11
我试了下 应该是这个文件的问题 是不是文件名太长了？

如果文件名长需要用[文件名含扩展名]

Sub a()
Dim cnn As Object, SQL$, s$, p$, f$
Set cnn = CreateObject("ADODB.Connection")
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.CSV")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;FMT=Delimited(,);hdr=YES';Data Source=" & p
Do While f <> ""
   SQL = SQL & " SELECT INT(交易日期) AS T,还款本金,还款利息,还款总金额,交易手续费 FROM [" & f & "] UNION ALL "
    f = Dir()
Loop
SQL = Left(SQL, Len(SQL) - 11)
SQL = "SELECT T,SUM(还款本金),SUM(还款利息),SUM(还款总金额),SUM(交易手续费) FROM (" & SQL & ") GROUP BY T"
[A2:E999] = ""
[a2].CopyFromRecordset cnn.Execute(SQL)
cnn.Close
Set cnn = Nothing
Dim R%
R = [A999].End(3).Row
[a1].Offset(R, 0) = "合计"
[b1].Offset(R, 0).Resize(1, 4) = "=sum(b2:b" & R & ")"
End Sub

czl103

魂断蓝桥 发表于 2018-8-7 14:50
如果文件名长需要用[文件名含扩展名]

Sub a()

十分感谢 现在有两个问题：
1，本来没办法抓取数据，我修改工作簿中的工作表名称之后就可以了（不明白原因），之前的工作表名称都是跟工作簿名称保持一致的，据说这是CSV文件的特性，不知道有没有办法解决；
2，还款本金、还款利息、还款总金额字段计算无误，只是交易手续费会跟实际汇总金额有一些差异，可能是因为金额太小？不知道有没有办法解决。