VB中读取combobox中的数值并且赋值到excel中去

Question

Private Sub Command1_Click()
Dim ExApp  As Object, Exb As Object, Exsh As Object
Dim I1 As Excel.RangeSet ExApp = CreateObject("Excel.Application")
Set Exb = ExApp.Workbooks.Open("f:\gzdmx.xls")
Set Exsh = Exb.Sheets(1)
ExApp.Visible = TrueI1 = Combo_czmd.SelectedItem
Exsh.Cells(2, 3) = I1ExApp.Workbooks.Close
ExApp.Quit
Set ExApp = NothingFor Each Exb In ExApp.Workbooks
Workbooks.Close True
NextEnd Sub目的实现功能：获取combo_camd中的值并且赋值到excel表格中特定单元格中。
已经有很多人帮忙修改，但是个人水平有限还是不能运行，请详细将错误指出

Answer 1

推荐前期绑定（先引用类型库）：
http://www.crazycoder.cn/VisualBasic/Article15845.html

Answer 2

Sheet 对象Exsh 不明？？不能这么用！

Answer 3

I1 = Combo_czmd.SelectedItem 
应该会出现‘类型不匹配’的错误！试试这个：
Exsh.Cells(2, 3).Formula = Combo_czmd.Text

Answer 4

http://download.csdn.net/source/1627060

Answer 5

combobox，我这里没有text的这个方法……怎么回事呢。

Answer 6

combobox 的 style属性如何设置？

Answer 7

。怎么没有text属性?I1 = Combo_czmd.SelectedItem 相反我的没有这个selecteditem属性.你仔细看看是不是控件不对应哦

Answer 8

不是 VB 6.0 吗？
或者不是 VB6 的 标准控件/MS Forms 2.0对象库 ？说清楚你的 编程环境 和 是否用的第三方控件 吧！