怎么根据模板和数据源，批量生成单个工作簿。

lover826 · 发表于 2022-11-16 18:26

本帖最后由 lover826 于 2022-11-16 18:55 编辑

怎么根据模板和数据源，批量生成单个工作簿？如下图，我要按我的模板，依据日期生成100个或者1000个单独工作簿。生成的工作簿最好带有日期（或者以数据源内的再加一列作为名称都行），麻烦知道的大师教一下，谢谢！

请帮忙做的表.rar (19.77 KB, 下载次数: 8)

chengyunpan · 发表于 2022-11-16 19:11

除了是用于分发，批量生成意义不大，上百上千的更没有意义。我有批量打印的方法，可以看我主页。

skiss · 发表于 2022-11-17 13:54

你这种内容，可以到VBA板块去求助

lover826 · 发表于 2022-11-19 17:04

chengyunpan 发表于 2022-11-16 19:11
除了是用于分发，批量生成意义不大，上百上千的更没有意义。我有批量打印的方法，可以看我主页。

就是分发。单个文件。

lover826 · 发表于 2022-11-19 17:06

skiss 发表于 2022-11-17 13:54
你这种内容，可以到VBA板块去求助

VBA是可以，这里应该也可以

学电子表格 · 发表于 2022-11-20 23:56

Sub 测试()
Dim i%, j%
i = Cells(Rows.Count, "c").End(xlUp).Row
For j = 2 To i
Sheets("模板").Range("a5:e7").ClearContents
Sheets("模板").Cells(5, 1) = Format(Cells(j, 1), "yyyy/mm/dd")
Sheets("模板").Cells(5, 2) = Cells(j, 3)
Sheets("模板").Cells(5, 3) = Cells(j, 1) & Cells(j, 3) & "走访" & Cells(j, 2)
Sheets("模板").Cells(5, 4) = Cells(j, 5)
Workbooks.Add
ThisWorkbook.Sheets("模板").Cells.Copy ActiveWorkbook.Sheets(1).Range("a1")
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & "第" & j - 1 & "次走访.xls"
ActiveWorkbook.Close
Next j
End Sub

复制代码

数据源是放sheet1中，不晓得是不是这个意思。

学电子表格 · 发表于 2022-11-20 23:57

Sub 测试() Dim i%, j% i = Cells(Rows.Count, "c").End(xlUp).Row For j = 2 To i Sheets("模板").Range("a5:e7").ClearContents Sheets("模板").Cells(5, 1) = Format(Cells(j, 1), "yyyy/mm/dd") Sheets("模板").Cells(5, 2) = Cells(j, 3) Sheets("模板").Cells(5, 3) = Cells(j, 1) & Cells(j, 3) & "走访" & Cells(j, 2) Sheets("模板").Cells(5, 4) = Cells(j, 5) Workbooks.Add ThisWorkbook.Sheets("模板").Cells.Copy ActiveWorkbook.Sheets(1).Range("a1") ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "第" & j - 1 & "次走访.xls" ActiveWorkbook.Close Next j End Sub

Darren_novice · 发表于 2022-11-21 09:09

一般来讲，对表格进行操作是不能有合并单元格的。您可以下载一个kutools进行合并拆分工作簿的操作

lover826 · 发表于 2022-11-21 16:59

Darren_novice 发表于 2022-11-21 09:09
一般来讲，对表格进行操作是不能有合并单元格的。您可以下载一个kutools进行合并拆分工作簿的操作

可以取消合并的，这个没事。

lover826 · 发表于 2022-11-21 17:30

学电子表格发表于 2022-11-20 23:56
数据源是放sheet1中，不晓得是不是这个意思。

刚试了一下，生产的内容不对呀，去做了一个效果。麻烦你帮忙加工一下，感谢感谢！

示例2-效果.rar (51.25 KB, 下载次数: 5)

		自动登录	找回密码
密码			免费注册

[求助] 怎么根据模板和数据源，批量生成单个工作簿。