Excel生成Word文档

最新推荐文章于 2024-08-17 08:32:30 发布

Fish.lol

最新推荐文章于 2024-08-17 08:32:30 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏：学习Excel

本文链接：https://blog.csdn.net/weixin_44303384/article/details/99284471

本文介绍如何利用Excel生成包含表格和图表的Word文档，详细探讨了这一过程，并提供了相关资源供参考。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Excel 生成word报告

查了很多资料，看看能否使用。

Option Explicit

Sub CreateBasicwordreport()
	Dim wdApp as object
	dim saveName as string
	set wdapp=createobject("work.application")
	with wdapp
	.documents.add

	with .selection
		.ParagraphFormat.Alignment=1
		.boldrun
		.font.size=14
		.typetext "TESTT"
		.Boldrun
		.typeparagraph
		.font.size=10
		.paragraphformat.alignment=0
		.typeparagraph
	end with

range("C52",Range("C5").end(xldown).end(xltoright)).copy
		.selection.paste
		savename=environ("UserProfile")&"\Desktop\report"*_Format(Now,"ddmmyy hhmmss")&".docx"
		.activedocument.saveas2 savename
		.activedocument.close
		.quit
end with
set wdapp=nothing
end sub

添加表格和chart到word文档内

Option Explicit

Sub CreateBasicwordreport()
	Dim wdApp as word.application
	dim saveName as string
	set wdapp=createobject("work.application")
	with wdapp
	
	
	.documents.add "c\data collection\CrossPeriod_Template.docx" 
range("C5",Range("C5").end(xldo