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

【问题标题】：Copy and Paste active Word document to active Excel document using VBA使用 VBA 将活动 Word 文档复制并粘贴到活动 Excel 文档
【发布时间】：2017-09-13 18:10:57
【问题描述】：

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

我正在使用 excel/word 2013

【问题讨论】：

看看这个问题（从Excel复制到word）stackoverflow.com/questions/6310258/…
谢谢，我需要从 Word 转到 Excel
您可以通读该帖子，看看您是否能够根据需要更改提供的代码

标签： excel vba

【解决方案1】：

您好，我找到了自己问题的解决方案。

在 Excel 工作簿中，您必须设置以下内容

'工具 -> 参考 -> Microsoft Forms 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

【讨论】：