全文预览已结束
下载本文档
版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
excelvba从excel中导出表格数据和图表到新word文档office应用程序是可以相互访问的，比如可以把excel的数据导出到wordzhongstep1：首先要引用word工程对象，在excelvba中依次点击 工具引用microsoft word 11.0 library如果是2007版本，应该选择12。0step2：准备excel数据step3：添加模块，写入代码Sub xxx()定义WORD应用程序变量Dim objWordApp As Word.Application定义word文档变量Dim objWord As Word.DocumentDim objSel As Word.SelectionDim strTitle As StringOn Error GoTo errHandle错误处理Sheet1.SelectstrTitle = Sheet1.Cells(1, 1)标题选择表格区域Sheet1.Range(Cells(2, 1), Cells(28, 7).SelectSelection.Copy复制Set objWordApp = New Word.ApplicationSet objWord = objWordApp.Documents.AddobjWord.Application.Visible = TrueSet objSel = objWord.Application.SelectionWith objSel.InsertAfter Text:=strTitle & vbCrLf.ParagraphFormat.Alignment = wdAlignParagraphCenter.Font.Size = 16.InsertAfter Text:=vbCrLf.EndKey Unit:=wdStory.PasteExcelTable False, False, FalseApplication.CutCopyMode = FalseThisWorkbook.ActivateSheet1.Select复制图表并粘贴Sheet1.ChartObjects(1).CopyPicture.PasteEnd With设置word保存路径objWord.SaveAs Filename:=C:testwordtest.docx, _FileFormat:=wdFormatDocumentobjWord.CloseobjWordApp.QuiterrExit:Set objSel = NothingSet objWord = NothingSet objWordApp = NothingExit Sub
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论