創建一個按鈕，將整個電子表格複製到一個新的word文檔中

您好，我正在尋找一個excel 2010文檔中的按鈕，該按鈕將複製整個工作表並自動打開並粘貼到word文檔中。創建一個按鈕，將整個電子表格複製到一個新的word文檔中

我一直在尋找幫助頁面，並有一些類似的功能，但他們太具體，我不能讓代碼工作。

這裏是我正在使用的代碼我要說的例子是陳述一個範圍，我可以這樣做，或者只是將整個工作表（稱爲「outputCMCR」）複製到一個新的word文檔中。當我運行這段代碼時，我收到一個編譯錯誤，用戶定義的類型沒有定義。

Sub button2_click() 

    Dim objWord As New Word.Application 
    'Copy the range Which you want to paste in a New Word Document 
    Range("A1:B10").Copy 

    With objWord 
     .Documents.Add 
     .Selection.Paste 
     .Visible = True 
    End With 

End Sub

感謝任何幫助表示讚賞。

來源

2014-02-06 Shawn Lasich

好吧，我認爲有2個問題在這裏

1 - 你有沒有引用Microsoft Word 14.0 Object Library？爲此，請單擊Tools -> References（在您的VBA編輯器中）。向下滾動列表，直到看到Microsoft Word 12.0 Object Library或Microsoft Word 14.0 Object Library（取決於您的計算機上安裝了哪個Office版本）並將其選中。 Read this爲早期和晚期綁定

2 - 你需要像代碼創建下面

Private Sub CommandButton1_Click() 
    Dim objWord As Word.Application 
    Range("A1:B10").Copy 

    Set objWord = CreateObject("Word.Application.14") 
    With objWord 
     .Documents.Add 
     .Visible = True 
     .Selection.Paste 
    End With 
End Sub

來源

2014-02-06 16:31:49

我想你除了代碼對象，但仍得到相同的錯誤。你的第一個問題是什麼意思，我引用了第14個對象庫。我確定我沒有，因爲我不確定你的意思。 –

@ShawnLasich - 我已經更新了答案。希望這可以解決這個錯誤。 –

您修改後的答案解決了我遇到的問題，非常感謝您的幫助！ –

創建一個按鈕，將整個電子表格複製到一個新的word文檔中

回答

相關問題