[已解决]老师帮忙解决一下vba运行时错误1004

qingzhen322 · 发表于 2014-1-7 06:22

各位老师好，请帮忙看一下运行时错误1004，方法‘range’作用于对象’_Global’时失败是什么原因，如何解决
我学习时，按书中的例题创建了一个用户窗体，里边插入了一个TreeView控件，在窗体初始化中的代码如下：
Private Sub UserForm_Initialize()
Dim nodX As Node
Dim rng As Range
Const X = "分类"
With TreeView1.Nodes
.Add Key:=X, Text:=X
For Each rng In Range("分类")
.Add relative:=X, relationship:=tvwChild, Key:=X & rng, Text:=rng
Next rng
End With
Set nodX = TreeView1.Nodes.Add(2, tvwChild, "L", "交通")
Set nodX = TreeView1.Nodes.Add("L", tvwChild, , "飞机")
Set nodX = TreeView1.Nodes.Add("L", tvwChild, , "火车")
Set nodX = TreeView1.Nodes.Add(3, tvwChild, "R", "中国文化")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, , "建筑")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "F", "服饰")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, , "街道")
Set nodX = TreeView1.Nodes.Add("F", tvwChild, , "汉族服饰")
Set nodX = TreeView1.Nodes.Add("F", tvwChild, , "少数民族服饰")
nodX.EnsureVisible
Set nodX = Nothing
End Sub
在运行到红线标示的语句是出错，提示运行时错误1004
先谢谢老师了！

Book1.rar (12.33 KB, 下载次数: 9)

苗凱 · 发表于 2014-1-7 07:59

你寫錯位置了，應該寫在模塊里

苗凱 · 发表于 2014-1-7 08:01

工作簿打開時應該激活窗體，你的什麽都沒寫

hwc2ycy · 发表于 2014-1-7 08:44

For Each rng In Range("分类")
这里错了，没有一个叫分类的名称。

hwc2ycy · 发表于 2014-1-7 08:47

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

Private Sub UserForm_Initialize()
Dim nodX As Node
Dim rng As Range
Const X = "分类" '声明X=字符串分类
With TreeView1.Nodes
.Add Key:=X, Text:=X
' For Each rng In Range("分类")
' .Add relative:=X, relationship:=tvwChild, Key:=X & rng, Text:=rng
' Next rng
' End With
Set nodX = TreeView1.Nodes.Add(1, tvwChild, "L", "交通")
Set nodX = TreeView1.Nodes.Add("L", tvwChild, , "飞机")
Set nodX = TreeView1.Nodes.Add("L", tvwChild, , "火车")
Set nodX = TreeView1.Nodes.Add(3, tvwChild, "R", "中国文化")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, , "建筑")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "F", "服饰")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, , "街道")
Set nodX = TreeView1.Nodes.Add("F", tvwChild, , "汉族服饰")
Set nodX = TreeView1.Nodes.Add("F", tvwChild, , "少数民族服饰")
nodX.EnsureVisible '使节点可见
Set nodX = Nothing '展开各级节点
End With
End Sub

复制代码

这样可以用下。

qingzhen322 · 发表于 2014-1-7 11:31

hwc2ycy 发表于 2014-1-7 08:47
这样可以用下。

谢谢老师帮忙
我按老师说的做了，可还是出错，运行时错误35600 索引超出边界

hwc2ycy · 发表于 2014-1-7 11:35

qingzhen322 发表于 2014-1-7 11:31
谢谢老师帮忙
我按老师说的做了，可还是出错，运行时错误35600 索引超出边界

你用的我贴的代码还出错了？
我这是测试过的，你用的什么版本的？

qingzhen322 · 发表于 2014-1-7 16:16

hwc2ycy 发表于 2014-1-7 11:35
你用的我贴的代码还出错了？
我这是测试过的，你用的什么版本的？

我用的07版啊

qingzhen322 · 发表于 2014-1-7 16:19

hwc2ycy 发表于 2014-1-7 11:35
你用的我贴的代码还出错了？
我这是测试过的，你用的什么版本的？

我觉得注释掉了那几行后，是不是就没有顶级节点了

hwc2ycy · 发表于 2014-1-7 17:34

qingzhen322 发表于 2014-1-7 16:19
我觉得注释掉了那几行后，是不是就没有顶级节点了

从运行的结果去推证。
我这里注释的那几行是因为你的工作表并没有指定的名称。

		自动登录	找回密码
密码			注册