VB中读取combobox中的数值并且赋值到excel中去
Private Sub Command1_Click()Dim ExApp As Object, Exb As Object, Exsh As Object
Dim I1 As Excel.Range
Set ExApp = CreateObject("Excel.Application")
Set Exb = ExApp.Workbooks.Open("f:\gzdmx.xls")
Set Exsh = Exb.Sheets(1)
ExApp.Visible = True
I1 = Combo_czmd.SelectedItem
Exsh.Cells(2, 3) = I1
ExApp.Workbooks.Close
ExApp.Quit
Set ExApp = Nothing
For Each Exb In ExApp.Workbooks
Workbooks.Close True
Next
End Sub
目的实现功能：获取combo_camd中的值并且赋值到excel表格易做图定单元格中。
已经有很多人帮忙修改，但是个人水平有限还是不能运行，请详细将错误指出
--------------------编程问答-------------------- 什么错误？ --------------------编程问答-------------------- 推荐前期绑定（先引用类型库）：
http://www.crazycoder.cn/VisualBasic/Article15845.html --------------------编程问答-------------------- Sheet 对象Exsh 不明？？不能这么用！ --------------------编程问答-------------------- I1 = Combo_czmd.SelectedItem
应该会出现‘类型不匹配’的错误！
试试这个：
Exsh.Cells(2, 3).Formula = Combo_czmd.Text
--------------------编程问答-------------------- http://download.csdn.net/source/1627060 --------------------编程问答-------------------- combobox，我这里没有text的这个方法……怎么回事呢。 --------------------编程问答-------------------- combobox 的 style属性如何设置？ --------------------编程问答-------------------- 0-dropdowncombo --------------------编程问答-------------------- 。怎么没有text属性?
I1 = Combo_czmd.SelectedItem 相反我的没有这个selecteditem属性.你仔细看看是不是控件不对应哦 --------------------编程问答--------------------
不是 VB 6.0 吗？
或者不是 VB6 的 标准控件/MS Forms 2.0对象库 ？
说清楚你的 编程环境 和 是否用的第三方控件 吧！
--------------------编程问答-------------------- 解决了，我自己的问题，复制控件的时候弄成组件了
补充：VB , 基础类
