Excel中VBA按鈕複製工作表到新Word文檔

下面複製的代碼表我有一個新的Microsoft Word文檔的工作表，並將其粘貼。唯一的問題是，當粘貼在word文檔中時，它會切斷一半的表格。有什麼建議麼？謝謝。Excel中VBA按鈕複製工作表到新Word文檔

Sub btnExport() 
Dim objWord As Word.Application 
Range("C2:D60").Copy 

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

Sheet I'm using

來源

2017-03-15 Cole Gwozdecki

你可以舉一個你正在複製的數據的例子嗎？另外，哪一半被切斷？你失去了桌子的底部，還是第二列跑到頁面的右側？ – Dave

第二列在頁面的右側運行。 –

你有沒有考慮過使用橫向模式而不是縱向在Word中？或者即使表格太大了？你只有兩列 - 每列中的數據有多大？你能提供一個正在使用的數據的例子嗎？ – Dave

您可以使用Word AutoFit命令使表貼合到文檔中。我已經添加了代碼來將方向交換爲橫向，但這可能不是必需的。

Sub btnExport() 
    Dim objWord As Word.Application 
    Range("C2:D60").Copy ' you should name the worksheet as well here really 

    Set objWord = CreateObject("Word.Application.14") 
    With objWord 
     .Documents.Add 
     .ActiveDocument.PageSetup.Orientation = 1 'wdOrientLandscape 
     .Visible = True 
     .Selection.Paste 
     .ActiveDocument.Tables(1).AutoFitBehavior 2 'wdAutoFitWindow 
    End With 
End Sub

來源

2017-03-15 19:31:17 Dave

方法或數據成員沒有發現錯誤的.Tables一個照片（1）.AutoFitBehavior 2「wdAutoFitWindow –

糟糕。表是屬於「文檔」對象的集合 - 已編輯。 – Dave

完美，謝謝！ –

Excel中VBA按鈕複製工作表到新Word文檔

回答

相關問題