vba excel to word

最新推荐文章于 2024-07-21 20:44:36 发布

a771948524

最新推荐文章于 2024-07-21 20:44:36 发布

阅读量1.5k

点赞数

分类专栏： vba

本文链接：https://blog.csdn.net/zxlstudio/article/details/8966678

版权

vba 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

将excel中的数据按表格形式保存到word中：（在“工具”菜单中选中"引用"项）

选择： MicroSoft Word 11.0 Object Libarary

代码：

Public Sub ExportWord()
    Dim WordApp As Word.Application
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    With WordApp
        Set newDoc = .Documents.Add
        With .Selection
            For Each C In Worksheets("Sheet1").Range("A1:B10")
                .InsertAfter Text:=C.Value
                Count = Count + 1
                If Count Mod 2 = 0 Then
                    .InsertAfter Text:=vbCr
                Else
                    .InsertAfter Text:=vbTab
                End If
            Next
            .Range.ConvertToTable Separator:=wdSeparateByTabs
            .Tables(1).AutoFormat Format:=wdTableFormatClassic1
        End With
    End With
    Set WordApp = Nothing
            
End Sub