建立ADO組件和數據連接。
暗淡cnn作為新的ADODB。關系
Dim rs作為新ADODB。記錄集
定義查詢語句
Dim strsql作為字符串
打開數據庫連接，並將數據源設置為此工作簿。註意，這是2003年版。
cnn。open " provider = Microsoft . jet . oledb . 4.0；擴展屬性= ' excel 8.0hdr =否'；數據源= " & ampActiveWorkbook。全名
將數據源設置為數據表，選擇字段1~字段4。必須滿足條件:字段1的值為G2，字段2的值為H2，字段3的值為I2。
Strsql = "select f1，F2，F3，F4 from[數據表$]其中f 1 = " &；範圍(" G2 ")& amp；和f2 = " & amp範圍(" H2 ")& amp；”和f3 = " & amp範圍(" I2 ")& amp；""
以只讀方式打開ADO記錄集。
rs。打開strsql，cnn，adOpenKeyset，adLockReadOnly
清除A: E列中的數據。
範圍(" a5:e65536 ")。清楚的
在B5粘貼合格的記錄集。
範圍(" b5 ")。從記錄集rs復制將ADO或DAO記錄集。
A5輸入公式:=row()-4得到數字。
範圍(“A5”)。調整大小([B5]。結束(4)。Row - 4，1)。公式1C1 = "=ROW()-4 "
格式化列a。
帶範圍(“A4”)。調整大小([B5]。結束(4)。第3、5行)
邊框顏色
. Borders.ColorIndex = 5
邊框粗細(細線)
。邊框(11)。重量= xlThin
邊框樣式(連續細線)
。邊框(12)。LineStyle = xlContinuous
對於i = 7到10
將第七到第十個邊框設置為粗線。
。邊框(壹)。重量= xlMedium
接下來我
以…結尾
關閉記錄集
rs。關閉
清空記錄集以釋放內存。
設置rs =無
關閉數據連接
cnn。關閉
清除數據連接以釋放內存。
設置cnn =無
更新屏幕
申請。ScreenUpdating = True
結束語句
末端接頭