關(guān)于三個條數(shù)據(jù)引用（求救）

gaowehu

將出庫表中滿足料號，批號，部門三個條件的出庫數(shù)量引用到總表內(nèi)各個部門下面，請大蝦們看有木有好的辦法

fxl447098457

1. Sub MyQuery()
   
2.   Dim cnn As Object
   
3.   Set cnn = CreateObject("ADODB.Connection")
   
4.   Dim rs As Object
   
5.    Set rs = CreateObject("ADODB.Recordset")
   
6.   Dim sql As String
   
7.   Dim mybook As String
   
8.   mybook = ThisWorkbook.FullName
   
9.   With cnn
   
10.     If Application.Version = "11.0" Then
    
11.       .Provider = "microsoft.jet.oledb.4.0"
    
12.       .ConnectionString = "extended properties=""excel 8.0;HDR=YES;"";data source=" & mybook
    
13.     Else
    
14.       .Provider = "microsoft.ACE.oledb.12.0"
    
15.       .ConnectionString = "extended properties=""excel 12.0;HDR=YES;"";data source=" & mybook
    
16.     End If
    
17.     .Open
    
18.   End With
    
19.   sql = "transform sum(數(shù)量) select  料號,批號 from [" & ThisWorkbook.Path & "" & "出庫表.xls].[Sheet1$] group by 料號,批號 pivot 部門"
    
20.   rs.Open sql, cnn, 1, 3
    
21.   With Worksheets("Sheet1")
    
22.     .Cells.ClearContents
    
23.     For j = 0 To rs.Fields.Count - 1
    
24.       .Cells(1, j + 1) = rs.Fields(j).Name
    
25.     Next
    
26.     .Range("a2").CopyFromRecordset rs
    
27.   End With
    
28. End Sub
    

復(fù)制代碼

roych

fxl447098457 發(fā)表于 2015-4-5 15:47

加個輔助列寫公式就好了（不加輔助列也可以，但數(shù)組公式運(yùn)行起來往往會慢一些）。

其實(shí)我不是特別贊成寫代碼的。