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
uj5u.com熱心網友回復：
樓主啥問題？在excel中的vba利用資料庫來操作，與脫褲子放屁差不多。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/112464.html
標籤：VBA