Question

我拥有我认为的基本代码块，但不断获得Object Required错误。我有一个包含多个工作表的工作簿，并希望迭代重命名它们。我已经尝试了四种不同的方法，在注释掉的块中看到，实现了这一点，但都遇到了同样的错误。

Sub ModifyWS()

Dim wb As Workbook
Dim a As String
Dim i As Integer
Dim nm As String

Set wb = ActiveWorkbook

For i = 2 To Application.Sheets.Count
    a = "BOE" & CStr(i - 1)

    'Attempt 1
    Sheets(i).Name = a

    'Attempt 2
    'Application.Sheets(i).Name = a

    'Attempt 3
    'Set nm = Sheets(i).Name
    'nm = a

    'Attempt 4
    'wb.Worksheets(i).Name = a
Next

End Sub

我们非常感谢您的帮助。

谢谢你，乔

Answer 1

代码确实在新电子表格中有效。看来我用另一个模块以某种方式损坏了我的工作簿，但是在创建一个新版本时它开始工作了。

重命名表格时对象所需的错误

1 个答案: