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

Question

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

我正在使用excel/word 2013

Answer 1

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

在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