VB中,想建立一个combobox控件,其中的选项从一个已经存在的excel中的某列导入,要怎么弄呢?
3个回答
展开全部
'从菜单:工程->引用 里找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
'窗体上加一个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卸了,网上找找,你自己试试吧! !!! 有难度。
如果是这样,建议先网上查下VB怎么连接excel,我看过,不好连!
我VB卸了,网上找找,你自己试试吧! !!! 有难度。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不太会,挺难,你可以请教一下专业人士。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询