003 Excel SQL BETWEEN運算子用法--VBA方法

大家好，我是塗塗

今天塗塗給大家分享下Excel SQL 邏輯運算子BETWEEN的用法。

問題：

【資料來源】工作表中，匯出2020年2月份入職的人員資訊到【結果表】工作表中。

操作方法

透過SQL的BETWEEN運算，可以方便地查詢欄位值在某一範圍內的資料。

步驟1

◆點選【開發工具】選項卡，點選【Visual Basic】，開啟VBE編輯器

◆在VBE編輯器中，選中左側工程管理器中的結果表，右鍵插入模組

◆雙擊新建的模組，在右側的程式碼區域輸入下記程式碼，儲存，關閉VBE編輯器

程式碼示例

Sub SQL_BETWEEN用法（） Dim Conn As Object Dim Rst As Object Dim SQL， Ver As String Dim i As Long Set Conn = CreateObject（“ADODB。Connection”） Set Rst = CreateObject（“ADODB。Recordset”） Cells。ClearContents Ver = “provider=Microsoft。ACE。OLEDB。12。0；Extended Properties=Excel 12。0；Data source=” & ThisWorkbook。FullName ‘Excel2007以上版本 Conn。Open Ver ’ ********************************************************************************** SQL = “SELECT 工號，姓名，入職日期 FROM ［資料來源$］ WHERE 入職日期 BETWEEN #2020-2-1# AND #2020-2-29#” ‘ ********************************************************************************** Set Rst = Conn。Execute（SQL） For i = 0 To Rst。Fields。Count - 1 Cells（1， i + 1） = Rst。Fields（i）。Name Next i Range（“A2”）。CopyFromRecordset Rst Rst。Close Conn。Close End Sub

步驟2

◆選中結果表工作表，點選【開發工具】選項卡，點選【插入】下拉箭頭，點選【按鈕】命令

◆在表格空白處，拖動滑鼠畫一個矩形，然後指定宏即可