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

我试图直接从剪贴板粘贴到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