VBA-取基础工作表数据到工作簿模板，另存为工作簿_henry_dx_新浪博客

最新推荐文章于 2023-12-05 09:00:00 发布
最新推荐文章于 2023-12-05 09:00:00 发布
阅读量1.2k 收藏 6
点赞数
CC 4.0 BY-SA版权
文章标签： excel 小程序 编程语言 poi python
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/henry_dx/article/details/88893220
这篇博客介绍了如何使用VBA自动化处理Excel数据，将基础工作表中的数据填充到工作簿模板中，并按顺序另存为新的Excel文件。通过循环遍历指定范围内的数据，将B、C、D、E、F、G列的值分别写入模板工作表的相应单元格，然后保存并关闭文件。此外，还提供了一个参考程序，用于从模板工作簿中提取数据。

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

自编程序：
Sub cc()

Dim ExApp As New Excel.Application      '声明一个新的 Excel程序

Dim Pat As String, PatName As String

Dim NBook As Workbook

Dim Hx As Integer, Xm As String

With ExApp

        .Visible = False                '程序不可视

        .AutomationSecurity = 2         '禁用 新Excel程序的 宏

        Pat = ThisWorkbook.Path & "\"   '设置路径

 
       
最低0.47元/天 解锁文章

200万优质内容无限畅学
henry_dx
关注
用VBA语言批量填写Excel表格
Stack_mz的博客
07-30 6546
Excel中的格式刷、自动填充等功能可以帮助我们完成大量的重复工作，但是也有一些重复工作又比较不规律，这是我们可以借助VBA语言进行批量处理。  比如在下面的表格中，站名一列是必须手动输入，但我们需要在EDFA一列中填写发XX，收XX，如果再用手动输入，那中国那么大，估计要手动打字一天了。像这种有强烈规律性但是又不完全重复的操作，我们就可以借助VBA语言进行批量处理。 在“查看代码”页输入...
VBA-批量分类建立worksheet，拷贝分类数据到worksheet并保存至单独workbook_henry_dx_新浪博客
henry_dx的专栏
03-29 809
序号 姓名 班级 分数 1 赵 一班 88 2 钱 二班 89 3 孙 一班 90 4 李 三班 91 5 周 四班 92 6 吴 五班 93 7 郑 四班 94 8 王 二班 95 9 张 三班 96 10 陈 五班 97 '按照C列数据批量建立不同名称的工作表 Sub sht_add() Dim i As Inte...
打开一个Excel模板文件填充数据另存为一个文件
威尔软件
03-22 209
stringstrFileName=Environment.CurrentDirectory+@"\template\template.tpl";stringstrSaveFileName=Environment.CurrentDirectory+@"\excel\"+System.DateTime.Now.ToString().Replace(":","").Replace("-",""
学以致用——使用VBA复制整理后的数据到新的工作表并另存为新文件(Save a worksheet as a workbook)
热门推荐
预见未来to50的专栏
06-18 2万+
需求：某个字段需要基于当前数据和十几个独立的源文件定期整理，整理后的文件会多出0到n条新数据。目前采用全量更新的方式导入这些新数据。即，需要提供包括这几条新数据在内的所有数据的完整文件。而这个完整文件，可通过以下代码自动生成。（很简单的一个VBA小段程序）Sub createNewDataFile() Dim sourceRows As Integer '整理后的数据行数（用...
实用VBA：9.使用Excel批量套模板，一键输出多个工作表
最新发布
周公笃行的博客
12-05 8519
工作中常遇到需要将大量数据填入表格模板，并保存为单独的Excel文件的情况。例如HR部门将掌握的人员基本信息批量输出为统一格式的信息表；学校将汇总的全部成绩数据为每名学生生成格式统一的成绩单；将汇总的工作记录信息生成格式统一的日志报表……诸如此类的情况。例如为下面表格中的人员批量生成个人信息表（套模板）。
20170727xlVBA根据数据表和模板工作簿生成个人明细表工作簿
weixin_30722589的博客
07-27 264
Sub CreateTables() Dim Wb As Workbook Dim OpenWb As Workbook Dim Sht As Worksheet Dim Rng As Range Dim Arr As Variant Dim i As Long Const HEAD_ROW As Long = 2 ...
EXCELVBA常用语句100句_henry_dx_新浪博客
henry_dx的专栏
07-26 547
EXCELVBA常用语句100句 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1 (2) On ...
将多个Excel文件批量导入某个Excel文件中去的VBA宏
07-11
压缩文件中包括一个包含宏代码的Excel文件Sheet Macros.xls以及其他四个测试文件工作表 1~4。 宏的功能为(1)选中Excel表格中的某些行或列，运行某个Macro，自动根据选中的cells创建新的worksheets，worksheets的名字就是选中的cells的名字。(2)创建新的worksheet的同时，要把某指定目录下与新的worksheet同名的Excel文件的内容copy到新的worksheet中去。
工作簿中另存指定工作表并以单元格数据命名
11-01
代码实现的是从一个工作簿中单独保存其中一个工作表，并以单元格数据命名新工作簿名称
【Excel VBA】逐个读取Excel文件并将内容复制到汇总表中——每月自动汇总考勤数据实例
碰碰虎的博客
06-14 3236
纲举目张说明关键技术点：Workbooks.Open代码code运行效果图使用说明 说明 上一讲【Excel VBA】利用数组、集合、循环等检查各单位报送情况——每月自动汇总考勤数据实例已经完成了检查各单位报送情况的功能，对已报送单位进行打标，未打标的表示是未报送，催促其报送考勤数据。经过不懈的催促终于将考勤数据报送齐全了，接下来就是逐个统计表进行打开，复制其考勤数据，粘贴到汇总表中。 关键技术点：Workbooks.Open 这个函数有许多的参数，但是大多数的应用都不会用到，如果有特殊情况用到的请查看Wo
批量读取同一文件夹下所有excel指定单元格内容并写入新单元格
09-11
批量读取同一文件夹下所有excel指定单元格内容并写入新单元格
用VBA做的根据自动模板批量生成新表格
12-16
用VBA制成的可根据模板工作表，批量生成新的工作表，并能自动编号及工作表命名。
vba 编写的Excel 批量另存为xls（2003）、xlsx、pdf、csv 工具
loubo_001的专栏
09-28 8593
vba编写的excel批量转换为 ，xls格式、xlsx格式 、csv格式、或pdf格式。 使用界面如下： 解压缩，用office的Excel打开《vba批量另存为工具.xlsm》文件，启用宏 选择转换文件，ctrl A 本目录下文件全选，注意去掉后缀后不要有名称相同的，不然会报不能打开相同名称工作薄错误。 点击执行，选择另存的目录，注意不要选择原来的目录，默认覆盖目录中已有文件。 下载地址：www.excelfb.com...
VBA：快速把另一个工作簿里的列值根据列名填充进来
Cyber的博客
11-28 2414
前言：之前在使用工作簿与工作簿之间的数据连接时，使用的是vlookup手动做链接，然后断开连接并另存为的方式，虽然做好一次后很方便，但是每次变动需求要修改的话都好累。比如我这里有36个，也就是相当于要做36次vlookup！ 所以干脆写了一段代码，把一个工作簿里的数据直接黏贴到另一个工作簿里，根据列名自动查找匹配 注：这里用的是字典，如果两个工作簿的列名一致的话，可以用数组来代替，更方便。 Sub...
oracle--分组后获取每组数据第一条数据
wangli1281的博客
06-28 1180
SELECT * FROM (SELECT ROW_NUMBER() OVER(PARTITION BY cc.queuename ORDER BY cc.enroldate DESC) rn, cc.* FROM (select * from (select a.patname,a.queuesign,a.queuename,a.status,a.checkroom,a.areapart,a..
Excel VBA将工作表另存为Excel文件并覆盖文件
后台圈的专栏
07-08 8185
Export Worksheet Option Explicit Sub exportSheet() Const FolderPath As String = "C:\Test\" Const FileName As String = "ART.xlsx" Const SheetName As String = "Master List" On Error Resume Next Workbooks(FileName).Close O
Excel·VBA模板生成文件
hhhhh_51的博客
04-24 2173
不同于《python实现Excel邮件合并》，字符串内容替换生成文件，仅复制整行数据插入模板中生成工作表，单独保存为工作簿，但如果存在同名工作簿文件，则将工作表附加在该工作簿中 Sub 模板生成工作薄() Application.Visible = False '后台运行，不显示界面 Application.DisplayAlerts = False '不显示警告信息 Dim arr, i, k, v, dict As Object, d As Object, fso As Ob
VBA在Excel中的工作簿与工作表事件处理
"VBA在Excel中的应用主要体现在工作簿和工作表的事件处理上，通过编程实现自动化操作，提高工作效率。" 在Excel中，VBA（Visual Basic for Applications）是一种强大的工具，允许用户自定义功能，自动化重复任务。...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值