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

《excel vba从excel中导出表格数据和图表到新word文档》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、excel vba从excel中导出表格数据和图表到新word文档office应用程序是可以相互访问的，比如可以把excel的数据导出到wordzhongstep1：首先要引用word工程对象，在excelvba中依次点击工具——》引用——》microsoftword11.0library如果是2007版本，应该选择12。0step2：准备excel数据step3：添加模块，写入代码Subxxx()'定义WORD应用程序变量  DimobjWordAppAsWord.Application  '定义word文档变量   DimobjWord

2、AsWord.Document   DimobjSelAsWord.Selection   DimstrTitleAsString   OnErrorGoToerrHandle       '错误处理   Sheet1.Select   strTitle=Sheet1.Cells(1,1)  '标题   '选择表格区域   Sheet1.Range(Cells(2,1),Cells(28,7)).Select   Selection.Copy  '复制   SetobjWordApp=NewWord.Application   Setobj

3、Word=objWordApp.Documents.Add   objWord.Application.Visible=True   SetobjSel=objWord.Application.Selection   WithobjSel       .InsertAfterText:=strTitle&vbCrLf       .ParagraphFormat.Alignment=wdAlignParagraphCenter       .Font.Size=16       .InsertAfterText:=vbCrLf       

4、.EndKeyUnit:=wdStory       .PasteExcelTableFalse,False,False       Application.CutCopyMode=False       ThisWorkbook.Activate       Sheet1.Select       '复制图表并粘贴       Sheet1.ChartObjects(1).CopyPicture       .Paste   EndWith   '设置word保存路径   objWord.SaveAsFilename:="C:test

5、wordtest.docx",_       FileFormat:=wdFormatDocument   objWord.Close   objWordApp.QuiterrExit:   SetobjSel=Nothing   SetobjWord=Nothing   SetobjWordApp=Nothing   ExitSuberrHandle:   MsgBoxErr.Description   ResumeerrExitEndSub运行后见图：