[發問] 如何利用VBA對另個檔案的資料庫進行篩選，然後將選出的值存入表格中

帖子: 8
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
性別: 男
註冊時間: 2016-4-27
最後登錄: 2019-2-24

2^#

發表於 2016-4-27 20:48 | 顯示全部帖子

回復 1# colinyang

應該是說ComboBox比較像是連動選單，因為沒有要針對原始資料進行篩選，只有下拉式選單要資料連動而已..
不好意思..

帖子: 8
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
性別: 男
註冊時間: 2016-4-27
最後登錄: 2019-2-24

3^#

發表於 2016-4-28 10:54 | 顯示全部帖子

回復 3# lpk187

實際測試，下拉選單與輸入皆無異常，這對我而言真的是一個經典的範例，真的十分的感謝
後續將會再進行分頁的增加再進行測試，好好解析一下程式碼了，若有任何問題會再與您請教
真的是太感謝了!!!

帖子: 8
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
性別: 男
註冊時間: 2016-4-27
最後登錄: 2019-2-24

4^#

發表於 2016-4-29 20:08 | 顯示全部帖子

回復 3# lpk187

Dear lpk187,

如果我的Data工作表再加入一個"學校名單2"

我在List在新增1個ComboBox4來進行切換作業
已在Form Initial的時候addItem進ComboBox4了

結果在SQL語法中利用"&"進行SQL字串與變數連接時，執行時卻造成以下異常，我該如何修正我的語法來達到變更的目的呢...

以下為程式碼，並附上檔案，還請您指教..謝謝

File2.rar (29.22 KB)

Option Explicit
Dim myCon As Object, myRs As Object, SQL$
Private Sub ComboBox1_Click()
ComboBox2.Clear
ComboBox3.Clear
'增加了ComboBox4.Value至 FROM的後面來切換工作表
SQL = "SELECT 公私立" & _
" FROM [& ComboBox4.Value &$]" & _
" Where 區域 Like '" & ComboBox1.Value & "'" & _
" GROUP BY 公私立;"
Set myRs = myCon.Execute(SQL)
ComboBox2.List = Application.Transpose(myRs.GetRows)
End Sub
Private Sub ComboBox2_Click()
ComboBox3.Clear
'增加了ComboBox4.Value至 FROM的後面來切換工作表
SQL = "SELECT 學校" & _
" FROM [& ComboBox4.Value &$]" & _
" GROUP BY 學校, [區域] & [公私立]" & _
" HAVING [區域] & [公私立] Like '" & ComboBox1.Value & ComboBox2.Value & "';"
Set myRs = myCon.Execute(SQL)
ComboBox3.List = Application.Transpose(myRs.GetRows)
End Sub
Private Sub CommandButton1_Click() '輸人資料
Dim ro
With Sheets("工作表1")
ro = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(ro, 2) = ComboBox1.Value
.Cells(ro, 3) = ComboBox2.Value
.Cells(ro, 4) = ComboBox3.Value
End With
ComboBox3.Clear
ComboBox2.Clear
ComboBox1.Value = ""
End Sub
Private Sub CommandButton2_Click() '離開
Unload Me
End Sub
Private Sub UserForm_Initialize()
Set myCon = CreateObject("ADODB.Connection")
Set myRs = CreateObject("ADODB.Recordset")
myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & "\data.xlsx;" & _
"Extended Properties=""Excel 12.0;HDR=Yes;"";"
'增加了ComboBox4.Value至 FROM的後面來切換工作表
SQL = "SELECT 區域" & _
" FROM [& ComboBox4.Value &$]" & _
" GROUP BY 區域;"
Set myRs = myCon.Execute(SQL)
ComboBox1.List = Application.Transpose(myRs.GetRows)
Set myRs = Nothing
' 加入ComboBox4的Vlaue
ComboBox4.AddItem "學校名單"
ComboBox4.AddItem "學校名單2"
' myCon.Close
' Set myCon = Nothing
End Sub

複製代碼

Best Regards,
Colin

帖子: 8
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
性別: 男
註冊時間: 2016-4-27
最後登錄: 2019-2-24

5^#

發表於 2016-4-29 21:59 | 顯示全部帖子

回復 6# lpk187
謝謝你，造成您的困擾了...抱歉

帖子: 8
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
性別: 男
註冊時間: 2016-4-27
最後登錄: 2019-2-24

6^#

發表於 2016-4-30 00:47 | 顯示全部帖子

回復 8# Hsieh

謝謝版主，看起來又是另外一種方式來進行選取呢!會好好吸收的!不過在Combobox4選取時會有畫面更新的動作
加入Application.ScreenUpdating = False，可以抑止更新狀況，但是同樣輸入的時候資料不會浮現..必須重新打開檔案才看的到
但是程式碼還是很值得學習，謝謝呢!!!

帖子: 8
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
性別: 男
註冊時間: 2016-4-27
最後登錄: 2019-2-24

7^#

發表於 2016-5-2 12:54 | 顯示全部帖子

各位好..有發現個問題想問了..是關於資料有Null的部分

在轉換時因為會有字串與NULL的問題，所以轉換資料會出現異常

有查詢到SQL可使用CASE進行IS NOT NULL判讀..可是接著在CASE IS NOT NULL "WHEN"的時候
ADODB認不出WHEN的方法..請問該如何將NULL移除呢..謝謝