使用VBA把excel里所有sheets按顺序一次性copy到Word文档（选定特定列）

最新推荐文章于 2022-03-09 16:52:30 发布

Begie K

最新推荐文章于 2022-03-09 16:52:30 发布

阅读量1.1k

点赞数 2

分类专栏：笔记文章标签： vba excel word

本文链接：https://blog.csdn.net/begie_koo/article/details/78494144

版权

笔记专栏收录该内容

5 篇文章 0 订阅

订阅专栏

Private Sub Workbook_Open()
Dim str As String
Dim a As Worksheet

Set w = CreateObject("word.application")   ‘新建word文档
    w.Visible = True
    w.Documents.Add
    For Each s In Worksheets     ’循环遍历所有工作表

s.[A:D].Copy ‘选定部分列copy

's.[A1].CurrentRegion.Copy 'copy所有列

        w.Selection.TypeParagraph     ‘空行
        w.Selection.TypeText ("sheet名： " & s.Name)        '填上sheet名
        w.Selection.Paste      ’粘贴到word
    Next

End Sub