VB中,想建立一个combobox控件,其中的选项从一个已经存在的excel中的某列导入,要怎么弄呢?

求高人,请详细解答,本人新手,20先上,采纳追加

'从菜单:工程->引用 里找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
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-09-09
你意思是VB读excel文件吗?
如果是这样,建议先网上查下VB怎么连接excel,我看过,不好连!

我VB卸了,网上找找,你自己试试吧! !!! 有难度。本回答被网友采纳
第2个回答  2012-09-09
不太会,挺难,你可以请教一下专业人士。

Vb想建立一个combobox控件,里面的选项从一个外来的 excel表导入,怎么弄...
先读取Excel中数据,保存到数组,然后设置ComboBox的候选值 示例代码:ComboBox2.List() = WorksheetFunction.Transpose(Sheets(1).Range("A1:A16")) ComboBox2.List() = Array("值1", "值2", "值3", "值4")当然,之前你有可能需要先打开文件,再读取Excel内容 Workbooks.Open Filename:=""

如何使VB的combobox控件自动从列表中选择项目
最好把所有项都输入到数据库中,在数据库中建立一个查询,查询当前combo1的值,查询代码:"select * from Tabel where Filde like '%" & combo1.text & "%'",然后将combo1绑定到这个查询上,或者用代码来添加也行,比如行业软件就是用的模糊查询来取出商品名字,包括拼单简写或汉字。不要赋值...

VB中的VScroll控件怎么用?
UpdateControls方法可以从数据控件的记录集中再取回原先的记录内容,即恢复原先值。当在与数据控件链接的控件中修改了记录内容,可以用UpdateControls方法使这些控件显示恢复原来的值。3.Data控件常用的事件 (1)Reposition事件 Reposition事件是当某一个记录成为当前记录之后触发。通常利用该事件对当前记录的数据...

vba做一个excel的下拉菜单,以提供选择输入
插入组合框ComboBox 添加代码 ComboBox1.AddItem "星期一"ComboBox1.AddItem "星期二"ComboBox1.AddItem "星期三"ComboBox1.AddItem "星期四"ComboBox1.AddItem "星期五"ComboBox1.AddItem "星期六"ComboBox1.AddItem "星期日"

...的组合框(combobox)内容,插入指定EXCEL文件中的指定标签内容?_百度...
创建一个新的工作簿在 Excel 中。 在 Sheet1 中,键入以下内容:A1: One B1: RedA2: Two B2: GreenA3: Three B3: YellowA4: Four B4: Blue 请按 ALT + F11 启动 Microsoft Excel Visual 基本编辑器。上该插入单击菜单,用户窗体 创建一个组合框控件和列表框控件上的用户窗体。如果看不到...

excel表VBA中用代码如何建立多级combobox下拉菜单
ExcelVBA字典实现窗体二级下拉菜单:问题提出:选择确定ComboBox1中的数值后,ComboBox2的下拉列表自动引用ComboBox1中数值对应的列的内容。如何能做到,现在想在加一重判断:就是判断ComboBox2中的数值,如果是原来ComboBox1对应列中已有的值,就直接向下进行,如果原来ComboBox1对应列中没有该值,自动添...

Excel中,写VBA,如何动态改变ComboBox控件的一系列属性
假设你有一个ComboBox1,确保退出编辑模式。右键点该工作表的名字(在工作簿的左下方呢),查看代码,粘贴如下代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)ComboBox1.Text = Target.Value End Sub 回到Excel,任意点某单元格,赋值到ComboBox。

请教,窗体中有一组合框控件。如何使用Excel VBA将那些在下拉菜单中已...
ComboBox对象没有多选属性,因此也无法标注已选项目 但应该可以变通处理:每次选择以后,直接修改对应的List(i)值,在字串末尾添加一个文本记号(比如:"【√】")

...vba 的combobox 控件中快速批量赋值(EXCEL的行或列内容)?
有个快的方法,用数据源属性 Private Sub UserForm_Initialize()ComboBox1.RowSource = "sheet1!A1:A10"End Sub 将sheet1!A1:A10的内容放到ComboBox1的列表中

VBA中,我插了一个combobox1控件,怎么样才能在它的下拉列表中显示Excel...
将单元格A1中的内容添加到下拉矿的选项中 combobox1.additem cells(1,1)

相似回答
大家正在搜