excel - 间歇性下标超出范围错误代码抛出

Question

当我运行 VBA 脚本时，我随机得到一个下标超出范围的错误。但是，当我重新启动机器时，有时脚本会成功运行，没有问题。我有以 Zip 文件传送到 Outlook 的 excel 导出（XLS）。我一共打开了三个文件。VBA 脚本位于我用来导入这些文件的工作簿中。当文件与包含脚本的工作簿一起完全打开时，有时我在运行要导入的宏时遇到下标错误。

下面的缩进行是引发错误的地方。我不确定如何解决下标错误。此外，我希望具有完全相同的工作簿副本的其他用户能够运行 VBA 脚本。请帮忙。

Sub Update()

Application.ScreenUpdating = False
Sheets("CCDR Source").Select
Selection.ClearContents
Sheets("Handle Times Source").Select
Selection.ClearContents
Sheets("Agent Detail Report-Source").Select
Selection.ClearContents
Sheets("CCDR Source").Select

Dim sourceColumn As Range, targetColumn As Range

Set sourceColumn = Workbooks("Daily Ops CCDR.xls").Worksheets(1).Columns("A:R")
Set targetColumn = Workbooks("Daily Ops Workbook v3.2.0.xlsm").Worksheets(6).Columns("A")

sourceColumn.Copy Destination:=targetColumn


    Set sourceColumn = Workbooks("Daily Ops Handle Times.xls").Worksheets(1).Columns("A:W")

Set targetColumn = Workbooks("Daily Ops Workbook v3.2.0.xlsm").Worksheets(7).Columns("A")

sourceColumn.Copy Destination:=targetColumn

Set sourceColumn = Workbooks("Daily Ops Active Agents.xls").Worksheets(1).Columns("A:O")
Set targetColumn = Workbooks("Daily Ops Workbook v3.2.0.xlsm").Worksheets(8).Columns("A")

sourceColumn.Copy Destination:=targetColumn*emphasized text*

Sheets("ACD Service Levels Pivot").Select
ActiveWorkbook.RefreshAll
Sheets("Daily Ops ACD Stats").Select

Application.ScreenUpdating = True
MsgBox "Update Complete", vbOKOnly'''

谢谢

标签： excelvba