下标超出范围，单元格值包含图纸参考

Question

我通过以下代码块收到此消息。 我知道我没有正确定义我的范围，但我有点迷茫。 谢谢！

 Sub clean_data()


Dim Preliminary_MTM As Worksheet
Dim Sheetlink As String

Sheetlink = Worksheets("Input for model").Range("E17").Value

Set Preliminary_MTM = Sheets(Sheetlink)

Preliminary_MTM.Activate

Answer 1

根据您的评论，单元格“ E17”的内容正好是Worksheets("Preliminary MTM Q1")那么您将必须有一个名为“ Worksheets（” Preliminary MTM Q1“）”的工作表（即您将在Excel文件中的“工作表”标签），我想您还没有一个使用该名称的工作表标签。 实际上，您不能使用该名称的工作表，因为它太长了：

在E17中您想要的只是简单的Preliminary MTM Q1因此在此代码中引用它时：

Set Preliminary_MTM = Worksheets(Worksheets("Input for model").Range("E17").Value2)

它访问该单元格的内容并查找在那里命名的工作表。

注意：我已将.Value更改为.Value2 。 .Value2在单元格中为您提供完全未格式化的文本，而.Value将返回格式信息-这可能会导致问题。

注意：我已经将代码缩减为一行，因为这是必需的。 如果您实际上在其他地方使用了变量sheetlink ，则需要将其包括在内。