编程论坛 → VB6论坛

运行时，ListItems显示蓝色，提示找不到方法或数据成员。请高手帮我。谢谢！

于先生发布于 2016-10-31 10:56， 2846 次点击

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = False '设置EXCEL不可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\data.xls") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
    'xlsheet.Activate '激活工作表
    Dim litem
    For i = 2 To 7 '行/记录条数

        Set litem = ListView1.ListItems.Add()
        litem.Text = xlsheet.Cells(i, 1)
        litem.SubItems(1) = xlsheet.Cells(i, 2)
        litem.SubItems(2) = xlsheet.Cells(i, 3)
        litem.SubItems(3) = xlsheet.Cells(i, 4)
        'MsgBox xlsheet.Cells(i, j)

    Next
    xlBook.Close (True) '关闭EXCEL工作簿
    xlApp.Quit '关闭EXCEL
    Set xlApp = Nothing '释放EXCEL对象

End Sub

6 回复

#2

ZHRXJR2016-10-31 15:44

litem 是你定义的一个变体变量，变量本身就没有属性、方法与成员，看不到你的界面，只能瞎猜了。
从代码看不出你的意图，好像是就EXCEL工作表的记录放在某个控件中的意思吧？

#3

风吹过b2016-10-31 22:26

ListView1，你窗体上有这个控件吗？
这个是vb6的附加控件，需要添加才能使用的。

#4

于先生2016-11-01 14:00

谢谢各位！
我发现先进入VB,再打开工程文件，再运行代码，没有问题。但选中工程文件，双击打开，进入VB后，运行代码，就提示“ListItems显示蓝色，提示找不到方法或数据成员”。这是怎么回事？哪位能解释一下。谢谢！！

#5

风吹过b2016-11-01 14:51

估计你是把 form1.frm 当作工程文件了。

工程文件的后缀是 vbp，里面包含着外部控件的引用说明。

#6

xss_wl2016-11-01 15:39

我记得以前下载过类似这样功能的源代码，不过我是菜鸟看不懂。你如果需要留个QQ或者微信，我把源代码发给你参考。

#7

于先生2016-11-02 09:07

程序运后，如图。我想更改列标头“ID、姓名、年龄、性别”，怎么做？在EXCEL中更改了，但程序显示没有变。

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2016-11-2 09:08编辑过]

1