用VBA从同个文件夹下面的多个工作簿，透视各个维度汇总自动生成以上模板的汇总表

glenstyle

求大神用VBA协助做出下图效果，每个工作簿格式都是一样的，感谢。

glenstyle

希望账期和类型、品类、渠道、地区可以自动带出来

fzxba

Sub test1()
  ActiveSheet.UsedRange.Offset(1).ClearContents
  
  Application.ScreenUpdating = False
  
  Dim Conn As Object
  Dim strConn As String, SQL As String, s As String, p As String, f As String
  
  Set Conn = CreateObject("ADODB.Connection")
  s = "Excel 12.0;HDR=YES;Database="
  strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
  Conn.Open strConn & ThisWorkbook.FullName
  
  p = ThisWorkbook.Path & "\"
  f = Dir(p & "*.xls*")
  While f <> ""
    If ThisWorkbook.FullName <> p & f Then
      SQL = "SELECT 账期,类型,SUM(暂估数),SUM(实际数),SUM(金额) FROM [" & s & p & f & "].[Sheet1$] GROUP BY 账期,类型"
      Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset Conn.Execute(SQL)
      SQL = "SELECT 账期,品类,SUM(暂估数),SUM(实际数),SUM(金额) FROM [" & s & p & f & "].[Sheet1$] GROUP BY 账期,品类"
      Range("G" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset Conn.Execute(SQL)
      SQL = "SELECT 账期,渠道,SUM(暂估数),SUM(实际数),SUM(金额) FROM [" & s & p & f & "].[Sheet1$] GROUP BY 账期,渠道"
      Range("M" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset Conn.Execute(SQL)
      SQL = "SELECT 账期,地区,SUM(暂估数),SUM(实际数),SUM(金额) FROM [" & s & p & f & "].[Sheet1$] GROUP BY 账期,地区"
      Range("S" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset Conn.Execute(SQL)
    End If
    f = Dir
  Wend
  
  Conn.Close
  Set Conn = Nothing
  
  Application.ScreenUpdating = True
  Beep
End Sub

shiruiqiang

sql代码简单啊，vba有点麻烦

fzxba

glenstyle 发表于 2024-3-22 18:26
希望账期和类型、品类、渠道、地区可以自动带出来

糟了，你是WPS，直接无视我的回复。

shiruiqiang

自动生成，时间需要稍多点吧

shiruiqiang

fzxba 发表于 2024-3-22 20:01
糟了，你是WPS，直接无视我的回复。

老师的代码让我学一下，谢谢

fzxba

shiruiqiang 发表于 2024-3-22 20:08
老师的代码让我学一下，谢谢

可能达不到楼主要求 ，又是灌水，惭愧……

shiruiqiang

fzxba 发表于 2024-3-22 20:18
可能达不到楼主要求 ，又是灌水，惭愧……

结合老师的代码，及网上的学习视频，受益良多

xsy我可以很好

数据透视表