Excel - VBA - 加载项 - 工作表答案

【问题标题】：Excel - VBA - Add-In - WorksheetExcel - VBA - 加载项 - 工作表
【发布时间】：2018-12-07 22:18:03
【问题描述】：

我第一次创建了一个 Excel 宏“加载项”。所以现在我可以使用工作簿顶部的快速链接在多个工作簿中使用相同的宏。

我的问题是我的宏的第一个命令是添加工作表“Sheet1”。我的工作簿目前有 2 张纸。 “2017 年减员”和“2018 年减员”。

当我第一次在“Sheet1”中添加时，什么也没发生，因此我的工作簿的其余部分出错了。我第二次浏览它时说“Sheet1”已经存在。这是我打开的唯一工作簿。我尝试了许多工作表名称。它不断将工作表添加到未知位置，然后声明它们已经存在。我的其余代码适用于加载项。

我在工作表中添加的代码在不使用加载项功能时有效。这里是。

Dim ws As Worksheet
    With ThisWorkbook
        Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
        ws.Name = "Sheet1"
    End With

【问题讨论】：

【解决方案1】：

ThisWorkbook 是运行代码的工作簿 - 在本例中是您的加载项。

你可能需要ActiveWorkbook这里

【讨论】：