Sheets.Add 返回对象'Sheets'失败的 1004 方法'Add'

Question

我在Microsoft Docs网站上使用了如下示例，并收到了消息Sheets.Add returns a 1004 Method 'Add' of object 'Sheets' failed。

Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))

请告知解决方案。

Answer 1

1. 我不会使用'sheet'作为变量名
2. After:=需要图纸对象，而不是数字

可能是

Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets(1)))

抱歉，如果代码有错误，写在我的手机上。

Answer 2

Sheet是保留关键字。所以，使用下面的sub-尝试另一个名称

Sub addsh()
Dim wb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
Set sh = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))

Set sh = Nothing
Set wb = Nothing
End Sub

要添加具有名称的表格，请使用sub-

Sub addsh()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)).Name = "MyNewSheet"
End Sub

查看来自@Siddharth 的答案