ExcelVBA中ADO记录集使用技巧.pdfVIP

Excel VBA 中ADO 记录集使用技巧 技巧1：使用唯一值填充组合框 主题 使用Recordset(记录集)用表中的唯一值来填充组合框。 问题 想创建一个组合框，基于表中 （见下图1）的内容创建省份的唯一值列表。 图1：示例工作表 解决方法 使用简单的记录集快速提取不同的省份名并将其装载到组合框。 Sub FillCombox() Dim Myconnection As Connection Dim Myrecordset As Recordset Dim MyWorkbook As String Set Myconnection = New Connection Set Myrecordset = New Recordset 识别引用的工作簿 MyWorkbook = Application.ThisWorkbook.FullName 打开对工作簿的连接 Myconnection.Open Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source= MyWorkbook ; _ Extended