每当我尝试粘贴时，Excel vba 粘贴特殊方法都会失败

Question

大家好，我是 vba 的新手，我正在尝试捕获工作表上的所有 ctrl+v 事件，并将剪贴板上的所有内容粘贴到当前选定的单元格中。大多数情况下，我要复制的是来自 firefox 或记事本 E.I 客户端名称或电话号码的文本，这些信息位于我们的网站上，但代码仅在我尝试粘贴到 de cell 本身时才有效（在单元格编辑模式下）

    Private Sub CopyPaste()

'PasteSpecial Values Only
  ActiveCell.PasteSpecial Paste:=xlPasteValues, skipblanks:=True

这会返回运行时错误 1004 范围类的 pastespecial 方法失败 我也试过这个，但它也返回一个错误

activecell.PasteSpecial Format:="Text", skipblanks:=True, link:=False, DisplayAsIcon:=False

请注意，仅粘贴文本和仅粘贴值的主要原因是因为我的 excel 具有非常特定的单元格布局，其中包含颜色和其他内容，而正常的粘贴会搞砸一切。

如果有人可以帮助我，我会很高兴的

Answer 1

Range.PasteSpecial 方法将Range 粘贴到指定的Range 中。所以这仅适用于范围：

ActiveCell.PasteSpecial Paste:=xlPasteValues, skipblanks:=True

剪贴板需要直接访问。 如何使用剪贴板，例如here.

Option Explicit

Sub Init()
    Application.OnKey "^{v}", "CopyPaste"
End Sub

Public Sub CopyPaste()       
    ' MSForms.DataObject can be used when MSForms lib. is referenced
    Dim clipboard As Variant 

    Dim strContents As String

    ' http://excelmatters.com/2013/10/04/late-bound-msforms-dataobject/
    ' When no MSForms is referenced yet.
    Set clipboard = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 
    clipboard.GetFromClipboard
    strContents = clipboard.GetText
    ' Parse or format strContent if needed
    ActiveCell.Value = strContents
End Sub