当复选框从一个文件复制到另一个文件时,Excel 2016崩溃

时间:2018-03-24 11:57:54

标签: excel vba

Excel exgra 2013(Windows 7)更新excel 2016(Windows 10)后复选框从一个文件复制到另一个文件时崩溃。相同的宏在excel 2013中运行良好。

在粘贴后,Selection的属性应该是Object / OLEObjects,但它显示为Object / Range。

如果我在" two.xlsm"中选择设计模式并运行此代码它工作正常,但我们无法通过代码启用设计模式并进一步运行代码,因为启用设计模式将停止宏。

还尝试删除temp / Excel和temp / VBE文件夹中的MSForms * exd文件。不工作。

Sub copy()

Dim Obj As Object
Dim toSheet As Worksheet

Set toSheet = Workbooks("two.xlsm").Worksheets("Sheet1")

For Each Obj In ThisWorkbook.ActiveSheet.OLEObjects
    Workbooks("one.xlsm").Worksheets("Sheet1").Activate
    Workbooks("one.xlsm").Worksheets("Sheet1").Shapes.Range(Array(Obj.Name)).Select
    Selection.copy
    toSheet.Activate
    toSheet.Paste

     Selection.ShapeRange.Name = Obj.Name

Next Obj
End Sub

0 个答案:

没有答案