在Windows 10中，如果文件资源管理器打开，则putincliboard不起作用。
https://www.mrexcel.com/board/threads/copy-cell-address-to-clipboard-issue-putinclipboard-not-working.983442/

对我有效的一个方法是

• 关闭Excel和文件资源管理器。
• 重新打开Excel测试放入剪贴板/粘贴的功能
• 打开Windows 10文件资源管理器
• 再测一次

• 我为自己工作为什么？我不知道，但似乎excel必须在文件资源管理器之前打开。

我尝试了另一种方法...
我发现，如果我把剪贴板粘贴到记事本++，然后把同样的文本复制回剪贴板，然后继续使用宏，vba然后继续罚款。
因此，考虑到上述操作，我只是在vba代码中做了同样的事情。
创建第二个数据对象创建文本对象从第一个对象的剪贴板复制文本，将该文本放入第二个对象，然后将第二个对象放入剪贴板。
如下所示（cb是第一个对象，cb2是新的空对象，cbtext是从第一个对象复制文本的字符串）

cb.PutInClipboard   ' this is the only code that was here, but inconsistently failed.
' added this code
' round about way of ensuring copied text pastes as text
    Dim cbtext As String
    cbtext = cb.GetText
    cb2.SetText (cbtext)
    cb2.PutInClipboard

效果似乎取决于版本，无论资源管理器窗口是在Excel之前还是之后打开。它还取决于资源管理器窗口中的内容-如果是“系统位置”，如“这台PC”，那么putincliboard仍然工作正常。
我已经尝试了很多年的各种选择，但最终找到了一个变通办法-就像手动复制一样。
在这种情况下，要复制到剪贴板的文本位于活动单元格中，但该方法可适用于其他情况：

Sub AACopyText() 'has to be called from Excel workbook (ie not from the VB window!)

SendKeys "{F2}^a^c{ESC}"

End Sub

F2激活单元格的内容，^a选择整个内容，^c将内容复制到剪贴板;则需要{ESC}，否则单元格内容将保持活动状态。
如果所需文本不是活动单元内容，例如在变量MyTextToCopy中，则可以临时覆盖活动单元：

AppActivate ActiveWorkbook.Name
    SendKeys "{F2}^a" & MyTextToCopy & "^a^c{ESC}"

这些行激活活动工作簿中的activecell（因此可以在从窗体调用的过程中使用，等等），选择内容，覆盖内容，复制新内容，然后返回原始内容。
或者，可以使用记事本;以下例程将在Excel以外的程序中工作：

Function clip(ClipText As String)
  On Error Resume Next
  Dim WasntOpen As Boolean
  AppActivate ("Notepad")
  If Err Then
    WasntOpen = True
    Err.Clear
    x = Shell("Notepad.exe", vbNormalFocus)
    AppActivate ("Notepad")
  End If
  SendKeys "^a" & ClipText & "^a^c^z"
  If WasntOpen Then SendKeys "%Fx"
End Function

其中'ClipText'是您要保存的文本，例如在例程中，行Clip（“1234”）将把“1234”放到剪贴板上