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

Question

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

工作流程

  

复制从工作簿1剪切到剪贴板>> 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：宏错误