Excel 创建图纸名称集合

我正在尝试生成工作簿中所有工作表的集合

Sub-collMaker（）
Dim coll作为集合，ws作为工作表，x作为字符串
对于i=2到Application.Sheets.count
x=申请表（一）名称
集合添加项：=x，键：=x
接下来我
端接头

---

我在

coll.add

行中遇到运行时错误“91”。

创建集合时需要使用

New

，否则它将被定义为

Nothing

，并且您不能向Nothing添加内容

对所有变量进行

Dim

也是一个好主意

Sub collMaker()

Dim coll As New Collection, ws As Worksheet, x As String
Dim i As Integer

For i = 2 To Application.Sheets.Count
     x = Application.Sheets(i).Name
     coll.Add Item:=x, Key:=x
Next i

End Sub

---

您需要在创建收藏时使用

New

，否则它将被定义为

Nothing

，并且您不能在Nothing中添加内容

对所有变量进行

Dim

也是一个好主意

Sub collMaker()

Dim coll As New Collection, ws As Worksheet, x As String
Dim i As Integer

For i = 2 To Application.Sheets.Count
     x = Application.Sheets(i).Name
     coll.Add Item:=x, Key:=x
Next i

End Sub

---

谢谢！这很有帮助。@Alastair:我们在这里，当有人回答我们的问题（以非常有帮助的方式）时，勾选“代码左侧”复选框，以使其成为可接受的答案。如果其他人搜索类似的问题，他将知道答案解决了您的问题，并且代码（现在）起作用。@FaneDuru，对不起，当问题得到回答时，我尝试过这样做，但现在单击还为时过早。谢谢！这很有帮助。@Alastair:我们在这里，当有人回答我们的问题（以非常有帮助的方式）时，勾选“代码左侧”复选框，以使其成为可接受的答案。如果其他人搜索类似的问题，他将知道答案解决了您的问题，并且代码（现在）正常工作。@FaneDuru，对不起，当问题得到回答时，我尝试过这样做，但现在单击还为时过早。