[已解决]大家看下这个问题出在那里~~~

xdragon

1.         For j = 0 To UBound(arr, 2)
   
2.           If IsNull(arr(1, j)) Then arr(1, j) = ""
   
3.         Next

复制代码

不知有没有什么好方法

冠军欧洲2010

xdragon 发表于 2014-4-12 17:14
不知有没有什么好方法

我SQL改了下。。嘿嘿。
SQ = "SELECT * FROM [jiazhuang$] WHERE 单位='套' AND 出库数量<>NULL "

xdragon

1. Sub A()
   
2.     Cells.ClearContents
   
3.     Dim arr, arr1, crr
   
4.     Dim CON As New ADODB.Connection
   
5.     Dim RE As New ADODB.Recordset
   
6.     Dim K As Integer
   
7.     Dim i As Integer
   
8.     Dim SQ As String
   
9.     SQ = "SELECT 单位,iif(isnull(出库数量),'',出库数量) FROM [jiazhuang$] WHERE 单位='套' "
   
10.     With CON
    
11.         .CommandTimeout = 10
    
12.         .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\加装销售明细.xlsx"
    
13.         .Open
    
14.         RE.Open SQ, CON, adOpenKeyset, adLockOptimistic
    
15.         arr = Application.Transpose(RE.GetRows()) '错误的地方。给数组赋值的时候出现类型不匹配
    
16.     End With
    
17.     RE.Close
    
18.     CON.Close
    
19.     Set RE = Nothing
    
20.     Set CON = Nothing
    
21. End Sub
    

复制代码

冠军欧洲2010

xdragon 发表于 2014-4-12 17:23

谢谢龙哥。
用IIF。很好的解决问题。
三棵油。
{:031:}
我怎么就没想到用IIF捏。