求大师们写一段数据比对和多条件求和的VBA代码

ptnjust007

因本人还不会用字典+数组，或者 SQL 进行多条件求和，特来求代码学习 undefined
1. “订单总表”-“订单表”与每天新增的订单表进行对比汇总，新增的订单表为txt格式，其内容格式与“订单总表”-“订单表”格式完全相同，放在同一个文件夹内
如果新订单表A列与“订单总表”-“订单表”A列有数据重复，则保留新订单表那一行的数据
如果不重复，则将新订单表的数据添加到“订单总表”-“订单表”中

2. 汇总完成后自动生成报表到 “订单总表”-“报表”
        求和条件为  
        1. order-status 不等于 Cancelled
        2. “订单总表”-“订单表”中B列的时间数据减去7小时之后取整 为日期， 得出近七天的销量，即quantity 数据求和

多谢多谢

ptnjust007

朱荣兴 发表于 2018-9-17 21:32
你的   订单总表   订单表   在哪里呢？
还有，你得提供你的新增订单的文件才行呀

不好意思，重新传了一下

ptnjust007

不好意思，重新传了一下

ptnjust007

这是我自己写的，但是一运行就出错，“运行时错误  自动化。。。。”
另外 针对重复的A列ID   也没有替换一整行
Sub 汇总订单表()

Dim Wb As Workbook
Dim i, j, k, n, iRow, tt
Dim d, arr

Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
   
    Set Wb = GetObject(ThisWorkbook.Path & "\*.txt")
   
    iRow = Wb.Sheets(1).Range("A65536").End(xlUp).Row

    j = Sheets("订单表").Range("A65536").End(xlUp).Row
   
    For i = 2 To iRow
        Set tt = Sheets("订单表").Columns("A:A").Find(Wb.Sheets(1).Cells(i, "A"), Lookat:=xlPart)       '判断订单号是否存在
        
        If tt Is Nothing Then     ' 判断是否存在
            Wb.Sheets(1).Range("A" & i & ":X" & i).Copy Sheets("订单表").Range("A" & (j + 1))   '复制评价内容
            Sheets("订单表").Range("X" & (j + 1)) = Format(Format(Replace(Sheets("订单表").Range("C" & (j + 1)), "T", " "), "yyyy/mm/dd hh:mm:ss") - 7 / 24, "yyyy/mm/dd")             '添加当天日期
               
            j = j + 1
        End If
      
    Next i
   
   
    Wb.Close False


'以下SQL求和
Dim m As Byte, brr, cnn As Object, rst As Object, sql$, p As Byte
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data Source =" & ThisWorkbook.FullName
brr = Array("销量", "销售额")
For m = 0 To 1
    For n = 3 To 10
        With Sheets(brr(m))
            .UsedRange.Clear
            sql = "transform sum(" & brr(m) & ") select sku from [订单表$A:X] where 购买日期=.cells(1,n) and order-status<>'Cancelled' "
            Set rst = cnn.Execute(sql)
            .[A2].CopyFromRecordset rst
            For p = 1 To rst.Fields.Count
                .Cells(1, p) = rst.Fields(p - 1).Name
            Next p
            .UsedRange.Borders.LineStyle = xlContinuous
            rst.Close
        End With
    Next n
Next m

cnn.Close
Set rst = Nothing
Set cnn = Nothing

MsgBox "已更新数据"

Application.ScreenUpdating = True                 '冻结屏幕,此类语句一般成对使用
End Sub