Excel批量转Word

平时的工作中,尤其是一些文职类工作中,常会遇到这样的问题:

我们有一个Excel文件,每一行都是一个人的信息,需要将每个人的信息填写到Word表格中;一个人,一张表,一个下午,真烦恼。

也是奇想突发,想着解放自己的双手,先是写了一个脚本,后来试图将其可视化成了软件,但是应该还存在非常多了不足,看完下文,一些基本的使用,对于特定问题解放双手,是不成问题的。

从这里打开窗口:

首先界面画风是这样的:

然后是每一项的说明:

模板文件路径,指的就是要生成的Word文件的模板路径(包括Word文件名),原文件以学生成绩为例,长这样:

Excel表格路径,指的是Excel模板文件的路径,原文件以学生成绩为例,如下图;

注意:无论你的各项是怎样的,第一列必须是序号

生成文件路径,指所批量生成的Word文件的路径,即为你要存储生成的Word文件的路径。

以上三项,每个都有对应的按钮去选择路径。例如Excel表格路径的选择窗口是这样的:

模板替换字符串,这个是整个操作的核心所在,就是将模板文件中的表格中对应单元格进行替换。其中,两项用::隔开,就是两个连续的英文冒号,要替换的项的顺序跟Excel表格中的列顺序是对应的。

生成文件名称,生成的Word的命名构成为“生成文件名称+序号”。

输入各参数后,单机生成文件等待即可。

生成结果如下:

如果你碰到了Excel表格批量生成Word表格的问题,那就一个人,几张表,一台电脑,就几秒。

还有,该软件的使用场景比较局限,测试的类型也有限,而且还有非常多东西需要完善,各位同仁如果有任何意见或建议,欢迎交流!

软件中,还有其他的一些小玩意……

微信公众号回复“杂货铺1.1”(压缩包,解压密码是pygis

扫码关注公众号

可以使用VBA宏来批量Excel文件为Word文件。具体步骤如下: 1. 在Excel中按下Alt+F11,打开VBA编辑器; 2. 在VBA编辑器中,单击菜单栏的“插入”选项,选择“模块”; 3. 在新建的VBA模块中输入以下VBA代码: Sub ExcelToWord() Dim objWord As Object Dim objExcel As Object Dim objWorkbook As Object Dim objDoc As Object Dim sExcelFile As String Dim sWordFile As String '设置Excel文件路径 sExcelFile = "C:\Excel文件夹\" '设置Word文件保存路径 sWordFile = "C:\Word文件夹\" '创建Word应用程序对象 Set objWord = CreateObject("Word.Application") '创建Excel应用程序对象 Set objExcel = CreateObject("Excel.Application") '禁用屏幕更新和警告信息 objWord.Visible = False objWord.DisplayAlerts = False objExcel.Visible = False objExcel.DisplayAlerts = False '循环遍历Excel文件夹中的所有文件 For Each objWorkbook In objExcel.Workbooks '打开Excel文件 objWorkbook.Open sExcelFile & objWorkbook.Name '将Excel文件内容复制到Word文档中 Set objDoc = objWord.Documents.Add objWorkbook.Sheets(1).Copy objDoc.Content.PasteExcelTable False, False, False objDoc.SaveAs sWordFile & Replace(objWorkbook.Name, ".xls", ".doc") objDoc.Close objWorkbook.Close False Next '释放对象 Set objDoc = Nothing Set objWorkbook = Nothing Set objExcel = Nothing Set objWord = Nothing End Sub 4. 将上述VBA代码复制到新建的VBA模块中; 5. 修改代码中的Excel文件和Word文件保存路径,并保存VBA模块; 6. 关闭VBA编辑器,并在Excel中按下Alt+F8,打开宏窗口; 7. 选择刚刚创建的ExcelToWord宏,并单击“运行”按钮,即可将Excel文件夹中的所有文件批量换为Word文件。
评论 7
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值