使用 Worksheets.Activate 语法时下标超出范围错误答案

【问题标题】：Subscript out of range error when using Worksheets.Activate syntax使用 Worksheets.Activate 语法时下标超出范围错误
【发布时间】：2019-12-06 16:39:24
【问题描述】：

我已经编写了以下代码，并且在调试时收到 Worksheets("Program Mapping Sheet") 行的错误“Subscript out of range”。激活


Application.DisplayAlerts = False 'Don't display alert
Worksheets("Program Mapping Sheet").Activate 'Set the active worksheet
Sheets("Program Mapping Sheet").Cells.Clear

Worksheets("Copied Raw Data").Activate 'Set the active worksheet
Worksheets("Copied Raw Data").UsedRange.Copy 'Copy the data

Worksheets("Program mapping sheet").Activate 'Set the active worksheet
Worksheets("Program mapping sheet").Range("A1").PasteSpecial xlPasteValues

ThisWorkbook.RefreshAll 'Refresh all the pivot tables


If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Application.DisplayAlerts = True 'Display Alerts
Worksheets("Hide").Activate 'Set the active worksheet
Worksheets("Hide").Range("A1").Select
End Sub

【问题讨论】：

尝试参考 thisworkbook.worksheets(... 并确保工作表名称正确。没有多余的空格...

标签： excel vba

【解决方案1】：

可以这样简化：

Dim progMapSheet As Worksheet
Dim copiedRawData As Worksheet

Set progMapSheet = ThisWorkbook.Worksheets("Program mapping sheet")
Set copiedRawData = ThisWorkbook.Worksheets("Copied Raw Data")

Application.DisplayAlerts = False 'Don't display alert

progMapSheet.Cells.Clear

progMapSheet.Range("A1").Resize(copiedRawData.UsedRange.Rows.Count, copiedRawData.UsedRange.Columns.Count).Value = copiedRawData.UsedRange.Value 'Copy the data

ThisWorkbook.RefreshAll 'Refresh all the pivot tables

If progMapSheet.FilterMode Then progMapSheet.ShowAllData

Application.DisplayAlerts = True 'Display Alerts
ThisWorkbook.Worksheets("Hide").Activate 'Set the active worksheet
ThisWorkbook.Worksheets("Hide").Range("A1").Select

【讨论】：

【解决方案2】：

我已尝试在新工作簿中复制您的问题并且执行的代码没有出现问题，如果您遇到此错误，我会检查您的工作表的名称并确保它们与您的代码保持一致。

顺便说一句，尝试将代码中的名称复制并粘贴到工作表名称中，反之亦然。

【讨论】：