Office 2013 Excel .PutInClipboard是不同的？

Question

我已经使用了一个例程多年来将一个纯文本字符串放入剪贴板,我可以将其粘贴到另一个程序中,例如:

targetData.SetText "This is a plain text string"
targetData.PutInClipboard

当我在Excel Office 2013中使用它时,数据不在剪贴板中,因此我无法粘贴它.这在以前的版本中从未发生过.

仔细观察后,我发现字符串确实转到了剪贴板但是作为"系统字符串"而不是"文本"或"Unicode文本".

但是......大约有10%的时间它应该工作,因为它应该将字符串作为"文本"放入剪贴板.

有任何想法吗？？

Answer 1

user2140261的评论是正确的解决方案:

如何:将信息发送到剪贴板

(以下内容仅从上面的链接中复制)

如果需要将表单或报表上的活动控件的内容复制到剪贴板,则只需要以下代码:

Private Sub cmdCopy_Click() 
   Me!txtNotes.SetFocus 
   DoCmd.RunCommand acCmdCopy 
End Sub

但是,这是您日常工作所需的替代品:

1.创建一个模块,将其命名为"WinAPI"或其他东西,将此代码放入其中:

Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Declare Function CloseClipboard Lib "User32" () As Long
Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long
Declare Function EmptyClipboard Lib "User32" () As Long
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
Declare Function SetClipboardData Lib "User32" (ByVal wFormat As Long, ByVal hMem As Long) As Long

Public Const GHND = &H42
Public Const CF_TEXT = 1
Public Const MAXSIZE = 4096

2.在定义旧例程的模块中,使用以下代码替换旧例程:

Function ClipBoard_SetData(MyString As String) 
   Dim hGlobalMemory As Long, lpGlobalMemory As Long 
   Dim hClipMemory As Long, X As Long 

   ' Allocate moveable global memory. 
   '------------------------------------------- 
   hGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1) 

   ' Lock the block to get a far pointer 
   ' to this memory. 
   lpGlobalMemory = GlobalLock(hGlobalMemory) 

   ' Copy the string to this global memory. 
   lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString) 

   ' Unlock the memory. 
   If GlobalUnlock(hGlobalMemory) <> 0 Then 
      MsgBox "Could not unlock memory location. Copy aborted." 
      GoTo OutOfHere2 
   End If 

   ' Open the Clipboard to copy data to. 
   If OpenClipboard(0&) = 0 Then 
      MsgBox "Could not open the Clipboard. Copy aborted." 
      Exit Function 
   End If 

   ' Clear the Clipboard. 
   X = EmptyClipboard() 

   ' Copy the data to the Clipboard. 
   hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory) 

OutOfHere2: 

   If CloseClipboard() = 0 Then 
      MsgBox "Could not close Clipboard." 
   End If 

End Function

然后,这样称呼它:

' doesn't work on Windows 8: targetData.SetText "This is a plain text string"
'doesn't work on Windows 8: targetData.PutInClipboard
ClipBoard_SetData ("This is a plain text string")

Answer 2

您应该将“Microsoft forms 2.0 对象库”添加到您的引用中，然后您就可以使用此功能。您可以通过转到 Excel/developer/Visual basic（或您的 VBE 模块）并在工具/参考中选择浏览，然后在您的 system32 文件夹中搜索“FM20.DLL”文件，然后在最后选择此文件来完成此操作参考文献列表中的“Microsoft forms 2.0 对象库”将会出现。激活那个。现在一切都和以前一样好;)