发布网友 发布时间:2024-09-29 02:32
共1个回答
热心网友 时间:9分钟前
可能的原因:
1. 你在一些地方错误的调用了acop过程,如Worksheet_Activate等,导致acop被循环调用。
2. Workbooks("1006(潘).xls").Sheets("StartUp").Copy before:=Worksheets(1),看起来你期望复制出来的工作表名为StartUp,但不幸的是Excel不允许同一工作簿中出现重名的工作表。所以复制的结果是产生了许多类似Startup (2),Startup (3)的工作表,而这些在ActiveWorkbook.Sheets(1).Name <> "StartUp" 中会返回TRUE。
修改的建议如下:
1. 把
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
改为
If InStr(ActiveWorkbook.Sheets(1).Name, "StartUp") = 0 Then
2. 在End If前加上
Application.ScreenUpdating = True