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

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

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

2、rdAsWord.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.Applica

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

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

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