[英]Excel VBA Button Copy WorkSheet to New Word Doc
下面的代码复制了工作表中的表格,并将其粘贴到新的Microsoft Word文档中。 唯一的问题是,粘贴到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
您可以使用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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.