试图找到将控件 V 函数更改为粘贴为值的代码

Trying to find a code that changes the control V function to paste as values

当我使用以下代码时,我需要将控件 V 更改为始终粘贴为值;

Public Sub PasteValue()
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub

这有效,除非我尝试从网页使用它,它 returns 400 错误或 1004 错误。我已经能够弄清楚如何从网页或工作簿中粘贴为值,但​​不能同时粘贴。

如有任何帮助,我们将不胜感激。

谢谢' 肖恩

这实际上不是一个选项。

粘贴特殊值保留用于从 Excel 复制和粘贴到 Excel。它的重点是将单元格中公式的结果复制到它的 textual/numerical 表示到另一个或相同的单元格,以便删除公式上的引用。

如果您尝试直接在 Excel 中执行此操作,您将得到此结果...

复制 -> 选择性粘贴 -> 来自网页的值

这是您将看到的选项,无法粘贴特殊值,因为一切都是值。这只是您要从源数据应用什么格式的问题。

复制 -> 选择性粘贴 -> 范围内的值

这是您获得该选项的地方,因为要复制的来源是一系列单元格。

这将需要得到增强,以便您得到您想要的东西,但您应该能够通过类似这样的东西来满足这两种情况...

Public Sub PasteValue()
    On Error Resume Next
    
    Selection.PasteSpecial Paste:=xlPasteValues
    
    If Err.Description = "" Then Exit Sub
    
    Selection.PasteSpecial Paste:=xlPasteAll
End Sub