使用VBA将活动Word文档复制并粘贴到活动Excel文档

问题描述：

是否可以使用VBA将Word文档（已打开）的内容复制到活动Excel文档中？使用VBA将活动Word文档复制并粘贴到活动Excel文档

我正在使用excel/word 2013

看看这个问题https://stackoverflow.com/questions/6310258/pasting-from-excel-into-a-word-document（从Excel到Word中复制） – RealCheeseLord

感谢我需要去Word to Excel – John

您可以阅读该文章，看看您是否能够将所提供的代码更改为您的需要 – RealCheeseLord

答

嗨，我找到了解决我自己的问题。

在Excel工作簿中，你必须设置以下

“工具 - >引用 - > Microsoft窗体2.0对象库” ，或者你会得到一个“编译错误：用户定义类型没有定义”

 Sub ClipboardToExcel() 

     Dim MyData As DataObject 
     Dim strClip As String 


     Set MyData = New DataObject 
     MyData.GetFromClipboard 
     strClip = MyData.GetText 

     Sheets("sheet2").Select 
     Range("A1").Select 
     ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= 
     _ 
     False, NoHTMLFormatting:=True 

     End Sub

使用VBA将活动Word文档复制并粘贴到活动Excel文档

相关推荐