(若是和其他不同软件互动之问题 请记得一并填写)
软件:excel vba
版本:2016
需求：
1.新增工作表“工作表3”
2.复制“工作表1”D栏到W栏的资料
3.贴值到工作表3
4.因程式码所在活页簿与欲执行的活页簿不同，只好在workbook前面加入Active
程式码如下：
Sub Copy()
ActiveWorkbook.Worksheets.Add().Name = "工作表3"
ActiveWorkbook.Sheets("工作表1").Select
Columns("D:W").Select
Selection.Copy
ActiveWorkbook.Worksheets("工作表3").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub
结果：
出现如标题所述的错误讯息（下图），
而且时好时坏，
有时候又能成功执行，
请问是什么原因及如何修改呢？
https://i.imgur.com/hcH6VdE.jpg