Excel·VBA模板生成文件

不同于《python实现Excel邮件合并》，字符串内容替换生成文件，仅复制整行数据插入模板中生成工作表，单独保存为工作簿，但如果存在同名工作簿文件，则将工作表附加在该工作簿中

Sub 模板生成工作薄()Application.Visible = False  '后台运行，不显示界面Application.DisplayAlerts = False  '不显示警告信息Dim arr, i, k, v, dict As Object, d As Object, fso As ObjectSet dict = CreateObject("scripting.dictionary")Set d = CreateObject("scripting.dictionary")Set fso = CreateObject("Scripting.FileSystemObject")  '文件访问对象arr = [a1].CurrentRegionFor i = 2 To UBound(arr)Set temp = Range(Cells(i, 1), Cells(i, UBound(arr, 2)))  '数据区域rangeIf Not dict.Exists(arr(i, 2)) Then  '新键-值Set dict(arr(i, 2)) = tempElse  '已有键-值，更新Set dict(arr(i, 2)) = Union(dict(arr(i, 2)), temp)  'Union,range对象End Ifd(arr(i, 2)) = d(arr(i, 2)) + 1  '行数Nextk = dict.keysv = dict.ItemsSet mb = Sheets("模板")save_path = ThisWorkbook.Path  '文件保存路径For i = 0 To dict.Count - 1:   '遍历字典，创建、写入wbmb.Copy After:=Sheets(Sheets.Count)  '复制模板工作表Set ws = Application.ActiveSheetws.Name = "9月"ws.Rows(4).Resize(d(k(i))).Insertv(i).Copy ws.Range("a4")Range("x" & d(k(i)) + 4) = "=sum(x4:x" & d(k(i)) + 3 & ")"Range("z" & d(k(i)) + 4) = "=sum(z4:z" & d(k(i)) + 3 & ")"Range("aa" & d(k(i)) + 4) = "=sum(aa4:aa" & d(k(i)) + 3 & ")"save_file = save_path + "\" + k(i) + ".xlsx"  '保存文件路径全名If fso.FileExists(save_file) Then  '文件是否存在Set wb = Application.Workbooks.Open(save_file)  '打开文件ws.Copy After:=Sheets(wb.Sheets.Count)Elsews.CopySet wb = ActiveWorkbook  '创建新工作簿End Ifws.Deletewb.SaveAs Filename:=save_filewb.Close (False)NextApplication.Visible = TrueApplication.DisplayAlerts = TrueEnd Sub

附件
《Excel·VBA模板生成文件（附件）》

Excel·VBA模板生成文件相关推荐

NCC 后台获取模板生成文件
参考下面 Ncc 怎么获取wps设置的模板生成文件 RtfDownloadFactory 这个类里找到下面那一串方法downLoad bytes=createContFile(pk_conmodel ...
如何用excel表格批量生成文件夹，并命名？
如何用excel表格批量生成文件夹,并命名?假设一个excel表格里面整理了500个名称,现在需要利用这些名称生成对应名称的文件夹,你会如何处理呢?我想很多人会挨个复制名称然后再新建文件名,再对文件夹 ...
excel怎么批量生成文件夹？
excel怎么批量生成文件夹?如果你的领导交给你一个工作任务,让你根据准备好的大量名称新建对应的文件夹,你会如何操作呢?如果你是一个职场新手,肯定会挨个复制名称然后新建文件夹吧,这个方法比较简单,人人 ...
java web根据excel word模板生成前台页面，自动求和
</pre>项目要求根据excel制作前台,并得出结果,开始的时候想用table套嵌input接收数据,后台运算,或者jqurey计算,数了一下excel表,如果那样的话80多个字段,而且 ...
Excel·VBA自动生成日记账的对方科目
如图:根据日记账/序时账的日期.凭证号为一组,按借贷方向生成相反的科目,并写入H列.可能存在一对一.一对多.多对多等情况的账目目录数组法遍历.判断.写入测试结果多对多问题处理测试结果数组法 ...
Java读取模板文件您好,RtfTemplate 读取word模板生成文件
try { response.reset(); response.setContentType("txt/rtf; charset=GBK"); String fileName = ...
Excel VBA: 自动生成巡检报表并通过邮件定时发送
目录环境说明逻辑结构效果说明及截图 ①. 安装SecureCRT ②. 自动巡检脚本 ③. 数据检索并FTP传送 ④. 安装Excel 2013 ⑤. 安装Serv-U ⑥. 自动生成图表并邮件 ...
Excel VBA 批量转换文件夹下的xlsx文件为pdf（多文件多sheet）
可以在excel工作表中通过宏将一个文件夹中的所有xlsx或类似的表格文件批量转换为pdf文件,遍历每个工作表的每个sheet并逐一转换. Sub TO_PDF()On Error Resume Ne ...
springBoot+poi+aspose实现根据word模板生成文件并转换pdf
Maven依赖 <dependency><groupId>org.apache.poi</groupId><artifactId>poi</art ...

Excel·VBA模板生成文件

Excel·VBA模板生成文件相关推荐

最新文章

热门文章