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

你可以举一个你正在复制的数据的例子吗？另外，哪一半被切断？你失去了桌子的底部，还是第二列跑到页面的右侧？ – 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

方法或数据成员没有发现错误的.Tables一个照片（1）.AutoFitBehavior 2“wdAutoFitWindow –

糟糕。表是属于“文档”对象的集合 - 已编辑。 – Dave

完美，谢谢！ –

Excel中VBA按钮复制工作表到新Word文档

相关推荐