Excel

Question

我第一次创建了一个 excel 宏 "add-in"。所以现在我可以使用工作簿顶部的快速 link 在多个工作簿中使用相同的宏。

我的问题是我的宏的第一个命令是添加 sheet "Sheet1"。我的工作簿目前有 2 sheet。 "Attrition 2017" 和 "Attrition 2018"。

当我在 "Sheet1" 中添加时，第一次没有任何反应，我的工作簿的其余部分因此而出错。我第二次浏览时说 "Sheet1" 已经存在。这是我打开的唯一工作簿。我尝试了很多 sheet 个名字。它不断将 sheets 添加到未知位置，然后声明它们已经存在。我的其余代码与加载项一起使用。

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

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

Answer 1

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

你可能需要ActiveWorkbook这里

Excel - VBA - 加载项 - 工作表