跨薄汇总

zss427607

如何 通过工作簿1中的按键，将工作簿3中的数据汇总到工作簿2中

做了一下午老是提示少以参数(sql查询),请问还有其他办法吗？

快过年了

提前祝各位新年快乐

hbdyyx

跨薄汇总??
期待学习

zhaogang1960

1. Private Sub CommandButton1_Click()
   
2.     Dim cnn As Object, SQL$
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Set cnn = CreateObject("ADODB.Connection")
   
6.     cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\3.xlsx"
   
7.     SQL = "select 班别,产量 from [Sheet1$] where  日期 between #" & [a2] & "# and #" & [b2] & "#"
   
8.     With Workbooks.Open(ThisWorkbook.Path & "\2.xlsx")
   
9.         With .Sheets(1)
   
10.             .[a1].CurrentRegion.Offset(1).ClearContents
    
11.             .[a2].CopyFromRecordset cnn.Execute(SQL)
    
12.         End With
    
13.         .Close True
    
14.     End With
    
15.     cnn.Close
    
16.     Set cnn = Nothing
    
17.     Application.ScreenUpdating = True
    
18.     MsgBox "ok"
    
19. End Sub
    

复制代码

zhaogang1960

只是查询，没有汇总，请看附件


新建文件夹.rar (32.24 KB, 下载次数: 25)

2012-1-21 00:11 上传

点击文件名下载附件

zss427607

SQL = "select 班别,产量 from [Sheet1$] where日期 between #" &[a2] &"# and #" &[b2] &"# GROUP BY 班别”

zss427607

谢谢了  已完成  祝大家新春快乐

LMY123

SQL = "select 班别,产量 from [Sheet1$] where  日期 between #" & [a2] & "# and #" & [b2] & "#"