Excel vba从excel中导出表格数据和图表到新word文档

office应用程序是可以相互访问的，比如可以把excel的数据导出到word中

step1：

首先要引用word工程对象，在excelvba中依次点击 工具——》引用——》microsoft word 11.0 library

如果是2007版本，应该选择12.0；2010版本，选择14.0

step2：

准备excel数据

step3：

添加模块，写入代码

Sub xxx()   Dim objWordApp As Word.Application    '定义WORD应用程序变量    Dim objWord As Word.Document    '定义word文档变量    Dim objSel As Word.Selection    Dim strTitle As String    On Error GoTo errHandle        '错误处理    Sheet1.Select    strTitle = Sheet1.Cells(1, 1)   '标题    '选择表格区域    Sheet1.Range(Cells(2, 1), Cells(28, 7)).Select    Selection.Copy   '复制    Set objWordApp = New Word.Application    Set objWord = objWordApp.Documents.Add      '新建一个文档    objWord.Application.Visible = True                      '设置为不可见    Set objSel = objWord.Application.Selection    With objSel        .InsertAfter Text:=strTitle & vbCrLf        .ParagraphFormat.Alignment = wdAlignParagraphCenter  '居中设置        .Font.Size = 16        .InsertAfter Text:=vbCrLf        .EndKey Unit:=wdStory        .PasteExcelTable False, False, False        Application.CutCopyMode = False        ThisWorkbook.Activate        Sheet1.Select        '复制图表并粘贴        Sheet1.ChartObjects(1).CopyPicture        .Paste    End With    '设置word保存路径    objWord.SaveAs Filename:="C:\test\wordtest.docx", _        FileFormat:=wdFormatDocument    objWord.Close    objWordApp.QuiterrExit:    Set objSel = Nothing    Set objWord = Nothing    Set objWordApp = Nothing    Exit SuberrHandle:    MsgBox Err.Description    Resume errExitEnd Sub

运行后见图：