SQL查詢同一工作簿中工作表內(nèi)容VBA實(shí)例教程.doc

1、SQL 查詢同一工作簿中工作表內(nèi)容VBA 實(shí)例教程除非注明， 文章均為戰(zhàn)戰(zhàn)如瘋原創(chuàng)，轉(zhuǎn)載請保留鏈接: ， VBA 交流群273624828。這節(jié)來看個 SQL 查詢的例子，這次要查詢的表和結(jié)果表都在同一個工作簿中，在查詢表中相應(yīng)單元格輸入內(nèi)容，要求從數(shù)據(jù)表中得到數(shù)據(jù)并將結(jié)果放入查詢表中。可以先從本文最后的網(wǎng)址中下載附件看一下。這個問題就是SQL 本地查詢了，看代碼Sub search2()Dim cnn As Object, sql$, rs As Object, i, nSet cnn = CreateObject(adodb.connection)建立連接對象Sheets(檔案盒目錄 ).

2、UsedRange.Offset(4, 1).ClearContentscnn.Open Provider=Microsoft.ACE.OLEDB.12.0;ExtendedProperties=excel 12.0;Data Source= &ThisWorkbook.FullName適合 2007 及以后版本n = Sheets(檔案數(shù)據(jù)表 ).Range(L1048576).End(xlUp).Rowsql = select文件名稱,內(nèi)容摘要,檔案載體, 原 /復(fù)印件,頁數(shù),份數(shù) ,簽訂日期,存檔日期,備注from 檔案數(shù)據(jù)表$A4:O & n & where檔案

3、盒名稱 = &Sheets(檔案盒目錄 ).Range(H3) & SQL規(guī)則Set rs = cnn.Execute(sql)執(zhí)行 SQL語句Sheets(檔案盒目錄 ).b5.CopyFromRecordset rs復(fù)制數(shù)據(jù)cnn.CloseSet rs = NothingSet cnn = NothingEnd Sub第一個知識點(diǎn)，打開Excel2007 及以后的工作表用的Open語句是“ Provider=Microsoft.ACE.OLEDB.12.0;ExtendedProperties=excel 12.0;Data Source=filepath ”，在調(diào)用這個

4、工作簿本身那路徑filepath 就是 thisworkbook.fullname 。第二個知識點(diǎn)在字段名當(dāng)中有空格的時候要加上中括號 ，否則會提示錯誤，不能識別為正確的字段名。第三個知識點(diǎn)表格范圍的選擇，在Excel 表中有時并不是整個表都是有效的數(shù)據(jù)，比如在表格的最后經(jīng)常會有一些合計(jì)、說明之類的，這些不能做為原數(shù)據(jù)來處理，那聲明表格名稱的時候就要用 表名 $A4:O50 這種形式，再后面就是常規(guī)的 SQL 操作了，不懂的看之前的課程。在這里強(qiáng)調(diào)一個小細(xì)節(jié)，我在第一次寫這個代碼的時候復(fù)制數(shù)據(jù)那一句寫的是Sheets(檔案盒目錄).Range(B5).CopyFromRecordset rs ，完全看不出有什么錯誤，但是在執(zhí)行代碼的時候就會發(fā)生一些異常，最后才發(fā)現(xiàn)如果把 Range(B5) 改成 b5 就好了，至于為什么我也不知道。 Excel 畢竟不是真正的數(shù)據(jù)庫，其在數(shù)據(jù)格式方面要求沒有數(shù)據(jù)庫來的嚴(yán)格，發(fā)生這樣的錯誤在所難免，在自己寫代碼的時候一定要注意。本節(jié)示例文件下載地址： 。0 您可能也喜歡：利用高級篩選做查詢VBA 批量核對工作表內(nèi)容SQL 基礎(chǔ) -查詢指定數(shù)量的記錄工作表基本操作區(qū)