简单的VBA：添加并命名词典中键的工作表

这段代码应该循环遍历字典，并为每个项目/键，创build一个新的工作表，并将其命名为项目/键。 项目和键是完全一样的，因为这个字典是从一系列重复项创build的唯一值的数组。 我在最后一行收到错误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