尝试复制按钮时下标超出范围错误

Question

当工作表被命名为“Sheet1”时，我的代码正在运行。

我将名称更改为“自定义”。

我明白了

下标超出范围

用这条线：

Set xButton = Sheets("Custom").OLEObjects(ButtonName) 

它正在与：

Set xButton = Sheets("Sheet1").OLEObjects(ButtonName)

Answer 1

我怀疑您使用(name)属性重命名了工作表，该属性指的是工作表的代码名称。

例如：

Sheets("Custom").OLEObjects(ButtonName)指的是工作表名称属性已更改为“自定义”的工作表。

Custom.OLEObjects(ButtonName)是指代号属性已更改为“自定义”的工作表

您可以在以下文档中阅读有关这两个属性的更多信息：

1. 代号属性
2. 名称属性

其他需要考虑的事项：

通常最好明确声明您的工作簿。 如果您不这样做，VBA 默认使用ActiveWorkbook ，这意味着如果您的代码正在运行并且您关注的是不同的工作簿，您可能会收到Subscript out of range错误。

你可以这样做：

ThisWorkbook.Sheets("Custom")或，

假设您有 2 个工作簿， WorkbookA和WorkbookB ：
WorkbookA.Sheets("Custom")或WorkbookB.Sheets("Custom")等。