我已经使用了一个例程多年来将一个纯文本字符串放入剪贴板,我可以将其粘贴到另一个程序中,例如:
targetData.SetText "This is a plain text string"
targetData.PutInClipboard
Run Code Online (Sandbox Code Playgroud)
当我在Excel Office 2013中使用它时,数据不在剪贴板中,因此我无法粘贴它.这在以前的版本中从未发生过.
仔细观察后,我发现字符串确实转到了剪贴板但是作为"系统字符串"而不是"文本"或"Unicode文本".
但是......大约有10%的时间它应该工作,因为它应该将字符串作为"文本"放入剪贴板.
有任何想法吗??
如何将电子邮件复制到剪贴板,然后将其粘贴到excel中,表格完好无损?
我正在使用Outlook 2007,我想做相同的
Run Code Online (Sandbox Code Playgroud)"Click on email > Select All > Copy > Switch to Excel > Select Cell > Paste".
我已经很好地弄清楚了Excel对象模型,但除了以下代码之外没有 Outlook的经验.
Dim mapi As NameSpace
Dim msg As Outlook.MailItem
Set mapi = Outlook.Application.GetNamespace("MAPI")
Set msg = mapi.Folders.Item(1).Folders.Item("Posteingang").Folders.Item(1).Folders.Item(7).Items.Item(526)
Run Code Online (Sandbox Code Playgroud) clipboard ×3
vba ×3
access-vba ×1
excel ×1
excel-vba ×1
ms-access ×1
ms-office ×1
outlook-2007 ×1
outlook-vba ×1
windows ×1