VBA将表格数据填入combobox中

Question

excel数据如下:
省份 编号
湖北 S01
云南 S01
湖南 S01
湖北 S02
北京 S03
上海 S04
江苏 S04
湖北 S04利用下列代码,可以将省份信息填入combobox1中
Sub fillcombox()    Dim cnn As New Connection
    Dim rs As New Recordset
    Dim mybook As String, Sql As String
    mybook = ThisWorkbook.FullName                  '定打工作簿名称
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .ConnectionString = "Extended properties=""excel 8.0;HDR=YES;"";data source=" & mybook
        .Open
    End With
    Sql = "select Distinct 省份 from [Sheet1$A1:B9]"
    rs.Open Sql, cnn, adOpenStatic
    With Sheet1.ComboBox1
      .Clear
      Do
      .AddItem rs!省份
      rs.MoveNext
      Loop Until rs.EOF
    End With
End Sub

Answer 1

楼主啥问题？在excel中的vba利用数据库来操作，与脱裤子放屁差不多。