求助，vba access数据导入excel时存在空行

vip-hai

vba access数据导入excel时存在空行，

代码如下



Sub 插入汇总()
    '建立数据库连接
    Dim cnn As ADODB.Connection
    Set cnn = New ADODB.Connection
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    With cnn
        .Provider = "microsoft.ace.oledb.12.0"
        .Open ThisWorkbook.Path & "\datebase.accdb"
    End With
    Dim mytable As String
    mytable = "cheribao"       '指定数据表名
    Dim row As Integer, n As Integer, i As Integer, j As Integer, SQL As String, arr As Variant
    arr = Array("施工数量", "前挡升级数量", "前挡升级金额", "侧挡升级数量", "侧挡升级金额", "车衣装贴数量", "车衣装贴金额", "其他金额")
   '月汇总数据
    For j = 0 To UBound(arr)
         SQL = "select sum(长安), sum(大众), sum(红旗),sum(哈弗),sum(东风),sum(本田),sum(日产), sum(江铃)," _
                      & "sum(五十铃),sum(吉利),sum(北现),sum(标致),sum(丰田),sum(传奇),sum(福田),sum(其他1)," _
                      & "sum(其他2),sum(其他3),sum(散客) from " & mytable _
                      & " where year(日期)= " & Year(Date) & " And Month(日期) = " & Month(Date) & " And 项目 ='" & arr(j) & "'"
'         MsgBox arr(j)
         rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
         Range("d" & j * 2 + 12).CopyFromRecordset rst
          rst.Close
     Next j
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
End Sub

vip-hai

哪位大神帮看一下，感谢

ZHLK

没看明白，你这循环导入，一个项目是怎么生成日和月两项数据来的？上传数据看看

洋务德雷

上传附件，才能看问题。看你的代码，首先觉得SQL代码写的不对。既然用到聚合函数，from 后面少了group by

vip-hai

洋务德雷 发表于 2023-6-15 10:07
上传附件，才能看问题。看你的代码，首先觉得SQL代码写的不对。既然用到聚合函数，from 后面少了group by

没有分组，所以没有group by

vip-hai

ZHLK 发表于 2023-6-15 10:04
没看明白，你这循环导入，一个项目是怎么生成日和月两项数据来的？上传数据看看

我这个是从Access数据库中导入excel

micch

没有分组也可以用group，因为前面有sum

vip-hai

附件上传，感谢各位

vip-hai

micch 发表于 2023-6-15 11:49
没有分组也可以用group，因为前面有sum

感谢，加上还存在这个问题

micch

vip-hai 发表于 2023-6-15 11:57
感谢，加上还存在这个问题

字段名称对不上，所以没数据吧？