ecel vba从ecel中导出表格数据和图表到新word文档.docxVIP

excel vba 从 excel 中导出表格数据和图表到 新 word 文档 office 应用程序是可以相互访问的，比如可以把 excel 的数据导出到 wordzhong step1： 首先要引用 word 工程对象，在 excelvba 中依次点击 工具——》引用——》microsoft word 11.0 library 如果是 2007 版本，应该选择 12。0 step2： 准备 excel 数据 step3： 添加模块，写入代码 Sub xxx() 定义 WORD 应用程序变量 Dim objWordApp As Word.Application 定义 word 文档变量 Dim objWord As Word.Document 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.Quit errExit: Set objSel = Nothing Set objWord = Nothing Set objWordApp = Nothing Exit Sub errHandle: MsgBox Err.Description Resume errExit End Sub 运行后见图：