excel - 我想将 ActiveX 控件从一张表复制到另一张表。我的方法不可靠。你能想到一些可靠的东西吗？

Question

下面的代码有时会产生错误“无法使用粘贴方法”。有时会，有时不会——即使我在完全相同的文件上运行宏。

您能找出原因或提出更稳定的方法吗？

Set x = srcWbk.Sheets("C").OLEObjects("MCFB")
Set y = x.Duplicate
xName = x.Name
y.Cut
trgtWbk.Sheets("C").Activate
trgtWbk.Sheets("C").Range("O1").Select
With trgtWbk.Sheets("C")
    .Paste
    .OLEObjects(.OLEObjects.Count).Name = xName
    .Activate
End With

Answer 1

这是一个临时答案。当OP看到代码时它将被删除

将按钮复制了大约一百次，没有错误。确保您trgtWbk已正确关闭并且参考是免费的。我看不到整个代码以及您如何操作工作簿对象，因此很难说出您收到错误的原因。

尝试重新安排您的代码以最适合以下架构

Sub Main()

    Dim wb1 As Workbook, wb2 As Workbook
    Set wb1 = ThisWorkbook
    Set wb2 = Workbooks.Open("C:\Users\...\Desktop\Book2.xlsm")

    CopyActiveX "cmd1", wb1, wb2

    CopyActiveX "cmd2", wb1, wb2

    wb2.Save
    wb2.Saved = True
    wb2.Close

    Set wb2 = Nothing
End Sub


Sub CopyActiveX(cName As String, ByRef srcWbk As Workbook, ByRef trgtWbk As Workbook)

    Dim x As OLEObject
    Dim y As OLEObject
    Dim xName As String

    Set x = srcWbk.Sheets("C").OLEObjects(cName)
    Set y = x.Duplicate
    xName = x.Name
    y.Cut
    trgtWbk.Sheets("C").Activate
    trgtWbk.Sheets("C").Range("O1").Select
    With trgtWbk.Sheets("C")
        .Paste
        .OLEObjects(.OLEObjects.Count).Name = xName
        .Activate
    End With

End Sub