vba - 在 Excel 工作表上触发查询并将结果填充到组合框中

Question

我有一个名为“公司”和“项目”的两列

我想为特定公司选择所有项目并将生成的产品列表填充到 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