返回列表 上一主題 發帖

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

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2016-4-28 08:19 | 顯示全部帖子
回復 2# colinyang

把程式碼貼到UserForm1中試試
  1. Option Explicit
  2. Dim myCon As Object, myRs As Object, SQL$
  3. Private Sub ComboBox1_Click()
  4.     ComboBox2.Clear
  5.     ComboBox3.Clear
  6.     SQL = "SELECT 公私立" & _
  7.           " FROM [學校名單$]" & _
  8.           " Where 區域 Like '" & ComboBox1.Value & "'" & _
  9.           " GROUP BY 公私立;"
  10.     Set myRs = myCon.Execute(SQL)
  11.     ComboBox2.List = Application.Transpose(myRs.GetRows)
  12. End Sub

  14. Private Sub ComboBox2_Click()
  15.     ComboBox3.Clear
  16.     SQL = "SELECT 學校" & _
  17.           " FROM [學校名單$]" & _
  18.           " GROUP BY 學校, [區域] & [公私立]" & _
  19.           " HAVING [區域] & [公私立] Like '" & ComboBox1.Value & ComboBox2.Value & "';"
  20.     Set myRs = myCon.Execute(SQL)
  21.     ComboBox3.List = Application.Transpose(myRs.GetRows)
  22. End Sub

  24. Private Sub CommandButton1_Click() '輸人資料
  25.     Dim ro
  26.     With Sheets("工作表1")
  27.         ro = .Cells(Rows.Count, 2).End(xlUp).Row + 1
  28.         .Cells(ro, 2) = ComboBox1.Value
  29.         .Cells(ro, 3) = ComboBox2.Value
  30.         .Cells(ro, 4) = ComboBox3.Value
  31.     End With
  32.     ComboBox3.Clear
  33.     ComboBox2.Clear
  34.     ComboBox1.Value = ""
  35. End Sub

  37. Private Sub CommandButton2_Click() '離開
  38.     Unload Me
  39. End Sub

  41. Private Sub UserForm_Initialize()
  42.     Set myCon = CreateObject("ADODB.Connection")
  43.     Set myRs = CreateObject("ADODB.Recordset")
  44.     myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _
  45.                "Data Source=" & ThisWorkbook.Path & "\data.xlsx;" & _
  46.                "Extended Properties=""Excel 12.0;HDR=Yes;"";"
  47.     SQL = "SELECT 區域" & _
  48.           " FROM [學校名單$]" & _
  49.           " GROUP BY 區域;"
  50.     Set myRs = myCon.Execute(SQL)
  51.     ComboBox1.List = Application.Transpose(myRs.GetRows)
  52.     Set myRs = Nothing
  53. '    myCon.Close
  54. '    Set myCon = Nothing
  55. End Sub
複製代碼

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2016-4-29 21:33 | 顯示全部帖子
回復 5# colinyang

下面代碼摻雜著ADODB及SQL語言，若需求更多說明，請自行Google
  1. Option Explicit
  2. Dim myCon As Object, myRs As Object, SQL$
  3. Private Sub ComboBox1_Click()
  4.     ComboBox2.Clear
  5.     ComboBox3.Clear
  6.     '增加了ComboBox4.Value至 FROM的後面來切換工作表
  7.     SQL = "SELECT 公私立" & _
  8.           " FROM [" & ComboBox4.Value & "$]" & _
  9.           " Where 區域 Like '" & ComboBox1.Value & "'" & _
  10.           " GROUP BY 公私立;"
  11.     Set myRs = myCon.Execute(SQL)
  12.     ComboBox2.List = Application.Transpose(myRs.GetRows)
  13. End Sub

  15. Private Sub ComboBox2_Click()
  16.     ComboBox3.Clear
  17.     '增加了ComboBox4.Value至 FROM的後面來切換工作表
  18.     SQL = "SELECT 學校" & _
  19.           " FROM [" & ComboBox4.Value & "$]" & _
  20.           " GROUP BY 學校, [區域] & [公私立]" & _
  21.           " HAVING [區域] & [公私立] Like '" & ComboBox1.Value & ComboBox2.Value & "';"
  22.     Set myRs = myCon.Execute(SQL)
  23.     ComboBox3.List = Application.Transpose(myRs.GetRows)
  24. End Sub

  26. Private Sub ComboBox4_Change()
  27.     ComboBox3.Clear
  28.     ComboBox2.Clear
  29.     ComboBox1.Clear
  30.     SQL = "SELECT 區域" & _
  31.           " FROM [" & ComboBox4.Value & "$]" & _
  32.           " GROUP BY 區域;"
  33.     Set myRs = myCon.Execute(SQL)
  34.     ComboBox1.List = Application.Transpose(myRs.GetRows)
  35.     Set myRs = Nothing
  36. End Sub

  38. Private Sub CommandButton1_Click() '輸人資料
  39.     Dim ro
  40.     With Sheets("工作表1")
  41.         ro = .Cells(Rows.Count, 2).End(xlUp).Row + 1
  42.         .Cells(ro, 2) = ComboBox1.Value
  43.         .Cells(ro, 3) = ComboBox2.Value
  44.         .Cells(ro, 4) = ComboBox3.Value
  45.     End With
  46.     ComboBox3.Clear
  47.     ComboBox2.Clear
  48.     ComboBox1.Clear
  49.     ComboBox4.Value = ""
  50. End Sub

  52. Private Sub CommandButton2_Click() '離開
  53.    
  54.     Set myRs = Nothing
  55.     myCon.Close
  56.     Set myCon = Nothing
  57.     Unload Me
  58. End Sub

  60. Private Sub UserForm_Initialize()
  61.     Set myCon = CreateObject("ADODB.Connection")
  62.     Set myRs = CreateObject("ADODB.Recordset")
  63.     myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _
  64.                "Data Source=" & ThisWorkbook.Path & "\data.xlsx;" & _
  65.                "Extended Properties=""Excel 12.0;HDR=Yes;"";"
  66. '   加入ComboBox4的Vlaue
  67.     ComboBox4.AddItem "學校名單"
  68.     ComboBox4.AddItem "學校名單2"
  69. End Sub
複製代碼

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題