excel - 无法将剪贴板中的数据范围粘贴到其他工作簿的选定单元格

Question

在某些宏执行结束时如何处理剪贴板中的粘贴数据范围。

工作流程

将表单 workbook1复制到剪贴板 >> workbook2_activate宏运行 >> workbook2_subroutine 到粘贴范围从剪贴板到 workbook2 的工作表

代码

Sub PasteFromClipboard()

    Set clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    ' Or
    'Dim clipboard As MSForms.DataObject
    'Set clipboard = New MSForms.DataObject

    clipboard.GetFromClipboard

    ' error induced on all following codes
    ActiveSheet.Range("B" & 1).PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial
    ActiveSheet.Paste

End Sub

工作簿 1：快照

工作簿 2：宏错误

标签： excelvba