vba - Excel シートでクエリを実行し、結果を ComboBox に入力する

Question

「会社」と「プロジェクト」という名前の2つの列があります

特定の会社のすべてのプロジェクトを選択し、結果の製品リストを ComboBox に入力したいと考えています。

これを実現するには ADODB が最適な方法だと思います。接続、コマンド オブジェクトなどの作成方法がわかりません。これを実現するための詳細なコードを提供してください。

Answer 1

私は次のコードを使用してそれを行いました!

Dim cn
Set cn = CreateObject("ADODB.Connection")
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.FullName & "; Extended Properties=Excel 8.0"
    .Open
End With

Dim ObjRes
Set ObjRes = cn.Execute("Select * from [SourceData$]")
Do Until ObjRes.EOF
    cmbCompany.AddItem ObjRes.Fields.Item("Company").Value
    cmbProject.AddItem ObjRes.Fields.Item("Project").Value

    ObjRes.MoveNext
Loop

Set ObjRes = Nothing