简单VBA：为词典

Question

此代码应循环遍历字典，并为每个项/键创建一个新工作表并将其命名为项/键。项目和键完全相同，因为此字典是从一系列重复项创建的唯一值数组。我收到错误424最后一行所需的对象：

Set objDictionary = CreateObject("Scripting.Dictionary")
Dim ws As Worksheet
For Each i In objDictionary.Items
    Set ws = Worksheets.Add(Worksheets(Worksheets.Count))
    ws.Name = objDictionary.Item(i).Value '<--- 424 OBJECT REQUIRED HAPPENS HERE
Next

Answer 1

摆脱.Value并确保声明字典对象并填充它

Dim ws As Worksheet, objDictionary As Object
Set objDictionary = CreateObject("Scripting.Dictionary")

For Each i In objDictionary.Items
    Set ws = Worksheets.Add(Worksheets(Worksheets.Count))
    ws.Name = objDictionary.Item(i)
Next