如何通过excel批量生成word文件?大家应该都有批量生成word文件的工作经历。
相信有很多小伙伴都遇到过,一个excel表格里有一批明细数据,然后需要一次性把这些明细数据生成对应的word文件,这项工作如果手动做,一个一个的创建word文件,那工作效率会非常的低。有没有高效快捷的办法批量生成呢?答案是有的。
Excel魔方插件可以一键搞定。
我们提前制作好1个word模版,需要替换的内容部分加上【】即可。
然后打开excel魔方,找到excel明细生成word按钮
选择对应关系,即可一键生成
支持多文档,单文档。支持打印pdf。
参考代码:
Sub word2excel() On Error Resume Next pth = Application.GetOpenFilename("文件(*.*),*.*", , "请选择文件", , 0) Set docapp = GetObject(, "word.Application") If Err Then Err.Clear Set docapp = CreateObject("word.Application") '新建word对象,打开具体文件 Else For Each doc In docapp.documents If doc.FullName = pth Then '利用已打开的word对象,获取数据 ThisWorkbook.ActiveSheet.Cells(1, 1) = doc.tables(1).Range.Cells(10) Else End If Next End If docapp.Quit End Sub
标签:文件,WORD,excel,EXCEL,生成,docapp,文档,word From: https://www.cnblogs.com/vbashuo/p/17336610.html