excelvba从excel中导出表格数据和图表到新word文档
office应用程序是可以相互访问的，比如可以把excel的数据导出到wordzho
gstep1：首先要引用word工程对象，在excelvba中依次点击工具》引用》microsoftword110library如果是2007版本，应该选择12。0
step2：准备excel数据
fstep3：添加模块，写入代码Subxxx定义WORD应用程序变量
DimobjWordAppAsWordApplicatio
定义word文档变量DimobjWordAsWordDocume
tDimobjSelAsWordSelectio
DimstrTitleAsStri
gO
ErrorGoToerrHa
dle错误处理Sheet1SelectstrTitleSheet1Cells11标题选择表格区域Sheet1Ra
geCells21Cells287SelectSelectio
Copy复制SetobjWordAppNewWordApplicatio
SetobjWordobjWordAppDocume
tsAddobjWordApplicatio
VisibleTrueSetobjSelobjWordApplicatio
Selectio
WithobjSel
I
sertAfterTextstrTitlevbCrLfParagraphFormatAlig
me
twdAlig
ParagraphCe
terFo
tSize16I
sertAfterTextvbCrLfE
dKeyU
itwdStoryPasteExcelTableFalseFalseFalseApplicatio
CutCopyModeFalseThisWorkbookActivateSheet1Select
f复制图表并粘贴Sheet1ChartObjects1CopyPicturePasteE
dWith设置word保存路径objWordSaveAsFile
ame