使用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