'从菜单:工程->引用 里找Microsoft Excel .........
'窗体上加一个combobox,默认名字是comb1
Private Sub Form_Load()
Set XlApp = CreateObject("Excel.Application")
XlApp.Workbooks.Open App.Path & "\123.xls" '文件位置
For i = 1 To XlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count ' 从第一行到尾行
Comb1.AddItem XlApp.Workbooks(1).Worksheets(1).Cells(i, 3).Text
Next
XlApp.Quit
End Sub
你意思是VB读excel文件吗?
如果是这样,建议先网上查下VB怎么连接excel,我看过,不好连!
我VB卸了,网上找找,你自己试试吧! !!! 有难度。
不太会,挺难,你可以请教一下专业人士。