|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 统计()
Dim cnn As Object, SQL$
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
[A2:D50000].ClearContents
r = Range("f1:h" & Cells(Rows.Count, "f").End(3).Row)
For i = 2 To UBound(r)
SQL = SQL & "Select 往来单位银行户名,产地,'" & r(i, 3) & "' as 赠送规则 From [销售明细表$] where 往来单位银行户名='" & r(i, 1) & "' and 产地='" & r(i, 2) & "' union all "
Next
Range("a2").CopyFromRecordset cnn.Execute(Left(SQL, Len(SQL) - 10))
cnn.Close
Set cnn = Nothing
End Sub
|
|