粘贴剪贴板中的数据

Question

我正在尝试清理Sheet1并直接从剪贴板（而不是从Excel）粘贴到具有粘贴特殊值的Sheet1单元格A1中。需要以这种方式完成的原因是因为每天的行数不同。目前我有以下但我得到运行时错误'1004'：Range类的PasteSpecial方法失败。

Dim clipboard As MSForms.DataObject
Dim str1 As String

Set clipboard = New MSForms.DataObject

Range("A1:K80").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

clipboard.GetFromClipboard

str1 = clipboard.GetText

Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False