利用excel自动生成word报告(excel自动化生成word报告)

excel怎样自动生成word报告？

excel自动生成word报告的方法：

1、制作合同模板文件，把合同变量部分用特殊变量替换。图示如下：

2、在EXCEL里面添加合同主要内容数据，图示如下：

3、在EXCEL里面添加一个ActiveX按钮控件，根据自身需要修改其属性。

4、打开VBA编辑器，添加项目引用。

具体操作过程为：选择“工具”—“引用”，然后打开加载文件选择框，选择“MicrosoftWord16.0ObjectLibrary”这个项目，如下图：

在此，特别需要说明，Word项目这个必须引用起来，否则后期在执行变量替换时，VBA无法调用Word替换功能。

5、在按钮控件下写如下代码，并将该EXCEL文件另存为XLSM：

PrivateSubcmd_makedoc_Click)OnErrorGoToErr_cmdExportToWord_ClickDimobjAppAsObject'Word.ApplicationDimobjDocAsObject'Word.DocumentDimstrTemplatesAsString'模板文件路径名DimstrFileNameAsString'将数据导出到此文件DimiAsIntegerDimcontact_NOAsStringDimside_AAsStringDimside_BAsStringi=ActiveCell.Rowcontact_NO=Cells(i,)side_A=Cells(i,)side_B=Cells(i,)WithApplication.FileDialog(msoFileDialogFilePicke).Filters.Add"word文件","*.doc*",1.AllowMultiSelect=FalseIf.ShowThenstrTemplates=.SelectedItemsElseExitSubEndWith'通过文件对话框生成另存为文件名WithApplication.FileDialog(msoFileDialogSaveA)'.InitialFileName=CurrentProject.Path&""&contact_NO&".doc".InitialFileName=contact_NO&".doc"If.ShowThenstrFileName=.SelectedItemsElseExitSubEndWith'文件名必须包括“.doc”的文件扩展名，如没有则自动加上IfNotstrFileNameLike"*.doc"ThenstrFileName=strFileName&".doc"'如果文件已存在，则删除已有文件IfDir(strFileNam)<>"ThenKillstrFileName'打开模板文件SetobjApp=CreateObject("Word.Application)objApp.Visible=TrueSetobjDoc=objApp.Documents.Open(strTemplates,,Fals)'开始替换模板预置变量文本WithobjApp.Application.Selection.Find.ClearFormatting.Find.Replacement.ClearFormattingWith.Find.Text="{$合同编号}".Replacement.Text=contact_NOEndWith.Find.ExecuteReplace:=wdReplaceAllWith.Find.Text="{$甲方}".Replacement.Text=side_AEndWith.Find.ExecuteReplace:=wdReplaceAllWith.Find.Text="{$乙方}".Replacement.Text=side_BEndWith.Find.ExecuteReplace:=wdReplaceAllEndWith'将写入数据的模板另存为文档文件objDoc.SaveAsstrFileNameobjDoc.Saved=TrueMsgBox"合同文本生成完毕！",vbYes+vbExclamationExit_cmdExportToWord_Click:IfNotobjDocIsNothingThenobjApp.Visible=TrueSetobjApp=NothingSetobjDoc=NothingSetobjTable=NothingExitSubErr_cmdExportToWord_Click:MsgBoxErr.Description,vbCritical,"出错"ResumeExit_cmdExportToWord_ClickEndSub登录后复制

推荐教程：《excel》

以上就是excel怎样自动生成word报告？的详细内容，更多请关注东辰网其它相关文章！