sql查询求助

cui26896

1. Sub test()
   
2. Dim cnn As Object, rst As Object, rst2 As Object, sql$, p$, f$, s$, i&, arr
   
3. Set cnn = CreateObject("ADODB.Connection")
   
4. Application.ScreenUpdating = False
   
5. Sheets(2).UsedRange.NumberFormatLocal = "@"
   
6. cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=yes;imex=0';Data Source=" & ThisWorkbook.FullName
   
7. sql = "select 借据余额,贷款投向,iif([贷款投向名称1] is null,' ',贷款投向名称1) as 贷款投向名称1 from [台账$]"
   
8. Set rst = cnn.Execute(sql)
   
9.     With ThisWorkbook.Sheets(1)
   
10.     .Activate
    
11.     .Cells.ClearContents
    
12.     For i = 0 To rst.Fields.Count - 1
    
13.     .Cells(1, i + 1) = rst.Fields(i).Name
    
14.     Next
    
15.     .Range("a2").CopyFromRecordset rst
    
16.     End With
    
17.     cnn.Close
    
18. End Sub

复制代码

klbaob

cui26896 发表于 2020-2-27 16:02
这是VBA ADO的一个先天的不足，文本数值混合时，不管用imex=0还是imex=1，都无法两种类型的数据同时读取到 ...

貌似真的可以查询了，但是全部格式都变文本了。。真是非常感谢啊纠结了我一天了！
用你的方法改了单元格格式，再用Microsoft. JET. OLED. 4.0就都正常了！
改格式的改成了：Sheets（2）. Range（“AA：AA”）. Number FormatLocal =“0”

cui26896

这个也让大家知道，要使用VBA ADO一定要规范表的格式，数据的格式。否则，会遇到很多麻烦。