Question

VB用户定义类型未定义问题请教！

请教这段代码，为什么出错！

Private Sub UserForm_Initialize()Dim iDim ITM As listItem, listListview1.ColumnHeaders.Add 1, "G", "工号", Listview1.Width / 6 '第1列Listview1.ColumnHeaders.Add 2, "X", "姓名", Listview1.Width / 6, lvwColumnCenter '第2列Listview1.ColumnHeaders.Add 3, "B", "部门", Listview1.Width / 6, lvwColumnRight '第3列Listview1.ColumnHeaders.Add 4, "Z", "职位", Listview1.Width / 6 '第4列Listview1.ColumnHeaders.Add 5, "J", "家庭", Listview1.Width / 6 '第5列Listview1.ColumnHeaders.Add 6, "ZJ", "证件号", Listview1.Width / 6 '第6列Listview1.View = lvwReportListview1.Gridlines = TrueFor i = 4 To [A65536].End(xlUp).RowSet ITM = Listview1.ListItems.Add()ITM.Text = Cells(i, 2)ITM.SubItems(1) = Cells(i, 3)ITM.SubItems(2) = Cells(i, 4)ITM.SubItems(3) = Cells(i, 5)ITM.SubItems(4) = Cells(i, 6)ITM.SubItems(5) = Cells(i, 7)Next iEnd Sub

Answer 1

没定义就不要定义类型了，改成object吧。
如果在窗体上添加了listview控件，这个类型也应该有啊，是不是没添加listview控件？

追问

我正在学习 蓝色幻想的80集VBA教程，照视频里的代码一一输入的，改成object以后，果然可以了，，控件已经添加了，不知道2003的跟2007的是不是一样？教程是2003的，我用的是2007的！

追答

我这里有两个，上面这个里有该对象： Microsoft Windows Common Controls 6.0 (SP6)

把listview控件也可以改一下，估计6.0版较新吧。

Answer 2

不是listItem
而是listitems

追问

还是一样啊？在 输入as 和空格之后，找不到这个单词

追答

你这个从代码哪里找的的 没有这个类型的 肯定会说未定义的

追问

我正在学习 蓝色幻想的80集VBA教程，照视频里的代码一一输入的，

追答

他应该有定义模块之类的吧 你得从头到尾仔细看一下

追问

谢谢您