作者jumbotest (木栅鲁智深)
看板Office
标题[问题] VBA错误：用户端中断了已启动物件的连线
时间Fri May 21 18:49:27 2021
(若是和其他不同软体互动之问题 请记得一并填写)
软体: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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 211.21.7.223 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1621594169.A.186.html
※ 编辑: jumbotest (211.21.7.223 台湾), 05/21/2021 18:53:18
※ 编辑: jumbotest (211.21.7.223 台湾), 05/21/2021 19:02:25
1F：→ foolkids: 按下确定後，程式停在哪里呢？05/21 21:21
2F：→ foolkids: 你每次执行前，都会删除工作表3吗？05/21 21:21
会唷，
停在倒数第二行的Selection.PasteSpecial（下略），
然後excel就当了，
只能用工作管理员强制停止。
※ 编辑: jumbotest (1.169.22.241 台湾), 05/22/2021 00:45:03
※ 编辑: jumbotest (1.169.22.241 台湾), 05/22/2021 00:45:19
3F：推 a29976137: 怎麽不直接指定？ 05/22 08:19
4F：→ foolkids: 试着把xlPasteValues後面的都删掉试试看(含逗号) 05/22 08:30