Question

我正在尝试直接从剪贴板粘贴到excel文档中，并将其转换为

Dim DataObj As MSForms.DataObject
 Set DataObj = New MSForms.DataObject
 DataObj.GetFromClipboard

strPaste = DataObj.GetText(1)

strPaste.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

strPaste确实拥有正确的数据，但它会在.PasteSpecial所说的对象上发现错误

Answer 1

我认为您需要指定目标粘贴位置并在其上调用PasteSpecial method。在尝试时，你不能调用pasteSpecial字符串方法。（因为需要对象的那个错误）

看看这个

Sub testPaste()

    Dim DataObj As MSForms.DataObject
    Set DataObj = New MSForms.DataObject
    DataObj.GetFromClipboard

    strPaste = DataObj.GetText(1)

    Sheets("Sheet2").Rows(1).PasteSpecial Transpose:=True

End Sub

VBA Excel 2010 - 直接从剪贴板粘贴

1 个答案: