Excel 合并工具 将文件复制到目标工作表中与操作日志记录
指定文件夹中读取符合条件的 Excel 文件，将其中的数据按照一定规则复制到目标工作表中，并进行相关的日志记录和工作簿保存操作。
先看下 excel 的结构
合并的结果
log 记录
vba 代码
Sub DeltaCheck()
' 作者和创建时间的注释' 定义工作表变量Dim ws As Worksheet' 以下几行暂时禁用了一些 Excel 的默认功能，以提高运行效率和避免干扰
' Application.ScreenUpdating = 0
' Application.Calculation = xlCalculationManual
' Application.DisplayAlerts = False' 设置相关工作表Set shtIND = ThisWorkbook.Worksheets("设置")'<<<<<< 设置参数' 定义各种工作簿、工作表、文件夹路径、行列范围等参数Set wbComin = ThisWorkbookfilFr1 = shtIND.Range("B3")shtFr1 = shtIND.Range("B4")fldFr1 = shtIND.Range("B5") & "\"shtTo1 = shtIND.Range("B8")vT1 = shtIND.Range("B9")vTr = vT1 + 1 ' 标题的下一行vCF = shtIND.Range("E4") ' 复制的列起始vCT = shtIND.Range("F4") ' 复制的列结束vCFn = shtIND.Range("E5") ' 复制的列起始编号vCTN = shtIND.Range("F5") ' 复制的列结束编号vPF = shtIND.Range("E8") ' 粘贴的列起始vPT = shtIND.Range("F8") ' 粘贴的列结束vPFn = shtIND.Range("E9") ' 粘贴的列起始编号vPTn = shtIND.Range("F9") ' 粘贴的列结束编号vPFile = shtIND.Range("G8")sheetName = shtTo1'<<<<< 日志相关' 处理"LOG"工作表，如果不存在则创建，存在则删除后重新创建On Error Resume NextSet ws = Worksheets("LOG")If Err Then ' 如果"LOG"工作表不存在shtIND.SelectActiveWorkbook.Sheets.Add After:=shtINDActiveSheet.Name = "LOG"On Error GoTo 0Else' 如果"LOG"工作表存在Sheets("LOG").SelectApplication.DisplayAlerts = FalseSheets("LOG").DeleteshtIND.SelectActiveWorkbook.Sheets.Add After:=shtINDActiveSheet.Name = "LOG"End IfSet shtLog = ThisWorkbook.Worksheets("LOG")' 设置"LOG"工作表的表头shtLog.Range("A1").Value = "File Name"shtLog.Range("B1").Value = "Copy From Area"shtLog.Range("C1").Value = "Copy To Area"shtLog.Range("D1").Value = "Row Count"shtLog.Range("E1").Value = "Log Time"LogRow = 2'<<<< 设置"复制到"的工作表' 类似"LOG"工作表的处理，对指定的目标工作表进行处理On Error Resume NextSet ws = Worksheets(sheetName)If Err Then ' 如果目标工作表不存在shtIND.SelectActiveWorkbook.Sheets.Add After:=shtINDActiveSheet.Name = sheetNameOn Error GoTo 0Else' 如果目标工作表存在Sheets(sheetName).SelectApplication.DisplayAlerts = FalseSheets(sheetName).DeleteshtIND.SelectActiveWorkbook.Sheets.Add After:=shtINDActiveSheet.Name = sheetNameEnd IfSet shtA = ThisWorkbook.Worksheets(shtTo1)shtA.SelectshtA.Range(Cells(1, vPTn + 1), Cells(1, vPTn + 1)).Value = "FileName"' 开始复制 Excel 数据MyFile = Dir(fldFr1)Do While MyFile <> " "If MyFile = "" Then Exit DoIf MyFile Like filFr1 ThenAEndRow = shtA.Range("A90000").End(xlUp).Row' 复制新数据Set wbOpen1 = Workbooks.Open(fldFr1 & "\" & MyFile)Set shtOpen1 = wbOpen1.Worksheets(shtFr1)shtOpen1.SelectOEndRow = shtOpen1.Range("A90000").End(xlUp).Row' 根据不同情况进行复制和粘贴操作，并记录日志If OEndRow < vTr Then' <<<< logshtLog.Range("A" & LogRow).Value = MyFileshtLog.Range("B" & LogRow).Value = ""shtLog.Range("C" & LogRow).Value = ""shtLog.Range("D" & LogRow).Value = OEndRow - vT1shtLog.Range("E" & LogRow).Value = Now()ElseIf AEndRow <= vTr ThenshtOpen1.Range(vCF & "1:" & vCT & OEndRow).Copy Destination:=shtA.Range("A1:" & vPT & OEndRow)shtA.Range(vPFile & "2:" & vPFile & (OEndRow)).Value = MyFileElseshtOpen1.Range(vCF & vTr & ":" & vCT & OEndRow).Copy Destination:=shtA.Range("A" & AEndRow + 1 & ":" & vPT & AEndRow + OEndRow - vT1)shtA.Range(vPFile & AEndRow + 1 & ":" & vPFile & (AEndRow + OEndRow - vT1)).Value = MyFileEnd If' <<<< logshtLog.Range("A" & LogRow).Value = MyFileshtLog.Range("B" & LogRow).Value = vCF & vTr & ":" & vCT & OEndRowshtLog.Range("C" & LogRow).Value = "A" & AEndRow + 1 & ":" & vPT & AEndRow + OEndRow - vT1shtLog.Range("D" & LogRow).Value = OEndRow - vT1shtLog.Range("E" & LogRow).Value = Now()End IfLogRow = LogRow + 1wbOpen1.Close savechanges:=FalseEnd If' 处理下一个文件MyFile = DirLoopshtIND.Select' 根据工作簿名称进行处理并保存thisFileName = ThisWorkbook.NameIf IsNumeric(Left(thisFileName, 8)) ThenthisFileName = Right(thisFileName, Len(thisFileName) - 8)End IfSaveToFileName = ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & thisFileNamewbComin.SaveAs Filename:=SaveToFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False' 再次保存工作簿SaveToFileName = ThisWorkbook.Path & "\" & shtIND.Range("AA1")wbComin.SaveAs Filename:=SaveToFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=FalseshtIND.Select' 恢复 Excel 的默认设置
' Application.Calculation = xlCalculationAutomatic
' Application.ScreenUpdating = True
' Application.DisplayAlerts = True
End Sub相关文章：
Excel 合并工具 将文件复制到目标工作表中与操作日志记录
指定文件夹中读取符合条件的 Excel 文件，将其中的数据按照一定规则复制到目标工作表中，并进行相关的日志记录和工作簿保存操作。 先看下 excel 的结构 合并的结果 log 记录 vba 代码 Sub DeltaCheck()作者和创建时间的注释 定义工作表变量Dim ws As Wor…...
Linux 内核源码
Linux 内核的源代码可以在以下位置获取： • 官方网站：https://www.kernel.org/是Linux内核源代码的官方获取渠道，该网站提供了各种版本的内核源代码压缩包，用户可按需选择版本下载. • Git 仓库：使用Git工具可克隆Li…...
Windows中MySQL8.3.4 MSI版本——详细安装教程
一、下载MySQL安装文件。 下载地址：MySQL官网 进入后点击下面的MySQL社区版下载 点击MySQL Comunity Server。 我这里选择的是版本8.4.3LTS版本，在线对应的msi文件。 点击No thanks,直接下载。 二、安装MySQL 2.1、双击刚刚下载好的msi文件，…...
STM32F103单片机使用STM32CubeMX新建IAR工程步骤
打开STM32CubeMX软件，选择File 选择新建工程 在打开的窗口输入单片机型号 在右下角选择单片机型号，然后点右上角 start project，开始新建工程。 接下来设置调试接口，在左边System Core中选择 SYS，然后在右右边debu…...
使用 WebRtcStreamer 实现实时视频流播放
WebRtcStreamer 是一个基于 WebRTC 协议的轻量级开源工具，可以在浏览器中直接播放 RTSP 视频流。它利用 WebRTC 的强大功能，提供低延迟的视频流播放体验，非常适合实时监控和其他视频流应用场景。 本文将介绍如何在Vue.js项目中使用 WebRtcSt…...
Java中内存存储与Redis存储的动态同步示例
在web应用程序中，缓存的使用越来越普遍。Redis，作为一种高性能的键值数据库，常被用作数据缓存。本文将说明如何在 Java 应用中使用 Redis 存储，并确保在内存中的值发生变化时，Redis 中的值也能动态更新。 Redis&#…...
Vue3的表单提交控制：条件启用和禁用按钮
目录 前言1. 需求分析2. Demo 前言 主要总结基本的知识点、需求归类以及模版的总结 新增的时候只有点击某个按钮，后续才能触发保存 但是为了规避 编辑的时候同一个表单，需要加入一个type，避开update而不是create 以下Demo主要作为分析使…...
)
FastAPI解决跨域报错net::ERR_FAILED 200 (OK)
目录 一、跨域问题的本质 二、FastAPI中的CORS处理 1. 安装FastAPI和CORS中间件 2. 配置CORS中间件 3. 运行FastAPI应用 三、解决跨域报错的步骤 四、案例：解决Vue.js与FastAPI的跨域问题 1. Vue.js前端应用 2. FastAPI后端API 3. 配置CORS中间件 4. 运行和测试 五…...
使用SQLark分析达梦慢SQL执行计划的一次实践
最近刚参加完达梦的 DCP 培训与考试，正好业务系统有个 sql 查询较慢，就想着练练手。 在深入了解达梦的过程中，发现达梦新出了一款叫 SQLark 百灵连接的工具。 我首先去官网大致浏览了下。虽然 SQLark 在功能深度上不如 DM Manager 和 PL/SQ…...
12-从TypeScript到ArkTS的适配规则（2）
12-从TypeScript到ArkTS的适配规则（2） 不支持this类型 **规则：**arkts-no-typing-with-this 级别：错误 ArkTS不支持this类型，改用显式具体类型。 TypeScript interface ListItem { getHead(): this} class C { …...
Flink WebUI解析（待更新）
写在前面 2024-05-23：对于flink webUI的查看，首先还是根据先整体观看一下Task的划分，然后根据Exception去寻找对应的TaskManager相关信息，然后双向确定是什么原因造成的；作为metrics，虽然看起来花里胡哨&a…...
C语言（十五）---- 编译和链接
编译和链接 编译和链接翻译环境和运行环境翻译环境 编译预处理（预编译）编译词法分析语法分析语义分析 汇编 链接运行环境 翻译环境和运行环境 在实现C语言代码文件的过程中存在两个不同的环境，分别有着不同的作用。 翻译环境：在…...
Java已死，大模型才是未来？
一、引言 在数字技术的浪潮中，编程语言始终扮演着至关重要的角色。Java，自1995年诞生以来，便以其跨平台的特性和丰富的生态系统，成为了全球范围内开发者们最为青睐的编程语言之一 然而，随着技术的不断进步和新兴语言的…...
Vue3页面内跳转锚点-scrollIntoView（）
scrollIntoView（） scrollIntoView()方法将调用它的元素滚动到浏览器窗口的可见区域。 element.scrollIntoView（）; // 等同于element.scrollIntoView(true) element.scrollIntoView（alignToTop）; //布尔参…...
UE4_环境_体积云_通过蓝图来控制云彩的形状及位置。
一、体积云使用之前需要做两件事： 1、开启插件Volumetrics，重启虚幻编辑器。 2、确定视图选项中“显示引擎内容”被勾选。 二、开始使用体积云 1、找到体积云，并拖拽到场景中 2、我们可以调节参数来设置体积云。 3、我们找到Volumetrics内容…...
【优选算法-滑动窗口】长度最小的子数组、无重复字符的最长子串、最大连续1的个数、将x减为0的最小操作数、水果成篮
一、长度最小的子数组 题目链接： 209. 长度最小的子数组 - 力扣（LeetCode） 题目介绍： 给定一个含有 n 个正整数的数组和一个正整数 target 。 找出该数组中满足其总和大于等于 target 的长度最小的 子数组 [numsl, numsl1, .…...
在Spring Boot项目中整合Redis：高效数据存储与缓存的最佳实践
目录 1. 引入依赖 2. 创建序列化配置类 2.1 序列化的选择 3. 配置YAML文件 3.1 连接池的配置 4. 使用Redis 4.1 复杂数据类型的存储 4.2 列表、集合和哈希的使用 4.2.1 列表示例 4.2.2 集合示例 4.2.3 哈希示例 5. 处理事务和管道 5.1 事务示例 5.2 管道示例 6…...
什么是自动化办公
自动化办公是指使用技术工具或软件，通过预设流程或脚本，自动执行日常办公任务，从而提升效率、减少错误、节约时间的办公模式。它适用于需要重复性、规则明确的工作流程，让员工将精力集中在更具创造性和战略性的工作上。 自动化办公…...
搜索引擎是如何理解你的查询并提供精准结果的？
目录 一、搜索引擎简单介绍 二、搜索引擎整体架构和工作过程 （一）整体分析 （二）爬虫系统 三个基本点 爬虫系统的工作流程 关键考虑因素和挑战 （三）索引系统 网页处理阶段 预处理阶段 反作弊分析…...
国内外网络安全政策动态（2024年11月）
▶︎ 1.13项网络安全国家标准自11月1日起实施 11月1日起，《网络安全技术 信息技术安全评估准则》等13项网络安全国家标准开始实施，其中，《网络安全技术 信息技术安全评估准则 第1-5部分》《网络安全技术 信息技术安全评估方法》等6项推荐性国…...
服务器---centos上前端从0到1配置项目部署
在进行前端开发时，我们经常会面临将项目部署到服务器上的需求。为了更好地管理和保护我们的前端应用，我们通常会使用反向代理来实现对后端服务的访问。而对于使用CentOS系统的开发者来说，Nginx就是一个非常强大且可靠的工具。 在本文中，我们将探讨如何在CentOS系统上配置Ng…...
【前端】深入解析 JavaScript 中的 instanceof 运算符与 number 数据类型 和 Number 对象 区别辨析
博客主页： [小ᶻ☡꙳ᵃⁱᵍᶜ꙳] 本文专栏: 前端 文章目录 💯前言💯理论基础：instanceof 运算符的设计初衷与核心功能基础定义与应用示例解析代码分解 💯typeof 与 instanceof：两种类型检测方法的语义与…...
为什么类 UNIX 操作系统通常内置编译器？为什么 Windows 更倾向于直接使用二进制文件？
操作系统是否内置编译器，取决于该系统的设计目标、用户群体以及常见的使用场景。以下是内置编译器和直接使用二进制的设计理念和原因的分析： 为什么类 UNIX 操作系统通常内置编译器？ 面向开发者的需求： 类 UNIX 系统（如…...
Ubuntu安装grafana
需求背景：管理服务器，并在线预警，通知 需求目的： 及时获取服务器状态 技能要求： 1、ubuntu 2、grafana 3、prometheus 4、node 步骤： 一、grafana安装 1、准备系统环境，配置号网络 2、…...
Java阶段三06
第3章-第6节 一、知识点 理解MVC三层模型、理解什么是SpringMVC、理解SpringMVC的工作流程、了解springMVC和Struts2的区别、学会使用SpringMVC封装不同请求、接收参数 二、目标 理解MVC三层模型 理解什么是SpringMVC 理解SpringMVC的工作流程 学会使用SpringMVC封装请求…...
C# .NET CORE 开发问题汇总
1. error MSB4803: .NET Core 版本的 MSBuild 不支持“ResolveComReference”。请使用 .NET Framework 版本的 MSBuild。 引用了一个COM组件, 使用donet 命令时,提示不支持, 可以先将项目设置为x86以构建, 将COM引用添加到核心项目中，构建它，在obj\x86\…...
短视频矩阵搭建/源码部署揭秘
短视频矩阵源码开发部署涉及使用开源技术构建和配置短视频平台。这一过程涵盖了从前端界面设计到后端逻辑处理，再到视频内容的存储管理的多个方面。以下是对关键技术的详细分析： 前端技术：为了提供流畅且互动性强的用户界面，短视…...
SpringBoot配置文件
文章目录 基本语法数据类型写法举例行内写法级联写法 配置提示用法举例逗号分隔默认值单个值集合值 映射到类 注意事项引用 基本语法 key: value形式，kv之间有空格大小写敏感使用缩进表示层级关系，缩进不允许使用tab，只允许空格。缩进的空格…...
[漏洞挖掘与防护] 05.CVE-2018-12613：phpMyAdmin 4.8.1后台文件包含缺陷复现及防御措施
这是作者新开的一个专栏——“漏洞挖掘与防护”，前期会复现各种经典和最新漏洞，并总结防护技巧；后期尝试从零学习漏洞挖掘技术，包括Web漏洞和二进制及IOT相关漏洞，以及Fuzzing技术。新的征程，新的开启，漫漫长征路，偏向虎山行。享受过程，感谢您的陪伴，一起加油~ 欢迎关…...
第四十七篇 Vision Transformer（VIT）模型解析
ViT（Vision Transformer）模型是一种基于Transformer架构的视觉模型，它成功地将Transformer从自然语言处理（NLP）领域引入到计算机视觉（CV）领域，专门用于处理图像数据。以下是对ViT模型…...
Redis篇-4--原理篇3--Redis发布/订阅（Pub/Sub）
1、概述 Redis 发布/订阅（Publish/Subscribe，简称 Pub/Sub）是一种消息传递模式，允许客户端订阅一个或多个通道（channel），并接收其他客户端发布到这些通道的消息。 2、Redis 发布/订阅的主要概…...
Spring Boot 3 中Bean的配置和实例化详解
一、引言 在Java企业级开发领域，Spring Boot凭借其简洁、快速、高效的特点，迅速成为了众多开发者的首选框架。Spring Boot通过自动配置、起步依赖等特性，极大地简化了Spring应用的搭建和开发过程。而在Spring Boot的众多核心特性中ÿ…...
一文理解 “Bootstrap“ 在统计学背景下的含义
🍉 CSDN 叶庭云：https://yetingyun.blog.csdn.net/ 一文理解 “Bootstrap“ 在统计学背景下的含义 类比：重新抽样 假设我参加了班级的考试，每位同学都获得了一个成绩。现在，我想了解整个班级的平均成绩，但…...
多媒体文件解复用（Demuxing）过程
多媒体文件的解复用（Demuxing）过程指的是从一个多媒体容器文件（如 MP4、MKV、AVI 等）中提取不同类型的多媒体数据流（例如视频流、音频流、字幕流等）的过程。 容器文件本身并不包含实际的视频或音频数据&…...
ARINC 标准全解析：航空电子领域多系列标准的核心内容、应用与重要意义
ARINC标准概述 ARINC标准是航空电子领域一系列重要的标准规范，由航空电子工程委员会（AEEC）编制，众多航空公司等参与支持。这些标准涵盖了从飞机设备安装、数据传输到航空电子设备功能等众多方面，确保航空电子系统的兼…...
开源架构安全深度解析：挑战、措施与未来
开源架构安全深度解析：挑战、措施与未来 一、引言二、开源架构面临的安全挑战（一）代码漏洞 —— 隐藏的定时炸弹（二）依赖项安全 —— 牵一发而动全身（三）社区安全 —— 开放中的潜在危机 三、开…...
Python装饰器设计模式：为函数增添风味
Python装饰器设计模式：为函数增添风味 什么是装饰器？为什么需要装饰器？如何使用装饰器？示例1：简单的装饰器示例2：带参数的装饰器 装饰器的使用场景总结 大家好，今天我们要学习一个非常有趣的Pyt…...
Vue.js的生命周期
Vue.js 是一个构建用户界面的渐进式框架，它提供了一个响应式和组件化的方式来构建前端应用。了解 Vue 的生命周期对于开发者来说至关重要，因为它可以帮助我们更好地控制组件的状态和行为。本文将详细介绍 Vue 的生命周期，并提供相应的代码示例…...
【数据库】关系代数和SQL语句
一 对于教学数据库的三个基本表 学生S(S#,SNAME,AGE,SEX) 学习SC(S#,C#,GRADE) 课程(C#,CNAME,TEACHER) （1）试用关系代数表达式和SQL语句表示：检索WANG同学不学的课程号 select C# from C where C# not in(select C# from SCwhere S# in…...
Pytest测试用例使用小结
基础使用 Pytest 测试用例实现代码 import pytest from server.service import Servicepytest.fixture def service():return Service(logger)class TestService:classmethoddef setup_class(cls):"""初始化设置一次:return:"""logger.info(&q…...
KV Shifting Attention Enhances Language Modeling
基本信息 📝 原文链接: https://arxiv.org/abs/2411.19574👥 作者: Mingyu Xu, Wei Cheng, Bingning Wang, Weipeng Chen🏷️ 关键词: KV shifting attention, induction heads, language modeling📚 分类: 机器学习, 自然语言处…...
从 Zuul 迁移到 Spring Cloud Gateway：一步步实现服务网关的升级
从 Zuul 迁移到 Spring Cloud Gateway：一步步实现服务网关的升级 迁移前的准备工作迁移步骤详解第一步：查看源码第二步：启动类迁移第三步：引入 Gateway 依赖第四步 编写bootstrap.yaml第五步：替换路由配置第六步&#…...
推荐几款国外AI音频工具
【加拿大】Resemble AI - 提供AI驱动的语音合成 【加拿大】Resemble AI - 提供AI驱动的语音合成和克隆工具 Resemble,AI提供AI驱动的语音合成和克隆工具,帮助用户高效生成和处理语音内容,其语音合成功能可以自动生成自然流畅的语音,提升音频项目的表现力,Resemble,AI的语音克…...
导入excel动态生成海报
需求：给出一份excel表格（1000条数据）,要将表格中的字段数据渲染到一张背景图片上，然后再下载图片，貌似浏览器做了限制，当连续下载10张图片后就不在下载了，然后用异步操作解决了这个问题。 // e…...
Unity 使用LineRenderer制作模拟2d绳子
效果展示： 实现如下： 首先，直接上代码： using System.Collections; using System.Collections.Generic; using UnityEngine;public class LineFourRender : MonoBehaviour {public Transform StartNode;public Transform MidNod…...
Android启动优化指南
文章目录 前言一、启动分类与优化目标1、冷启动1.1 优化思路1.2 延迟初始化与按需加载1.3 并行加载与异步执行1.4 资源优化与懒加载1.5 内存优化与垃圾回收控制 2. 温启动2.1 优化应用的生命周期管理2.2 数据缓存与懒加载2.3 延迟渲染与视图优化 3. 热启动3.1 保持应用的状态3.…...
每日一练 | 华为 eSight 创建的缺省角色
01 真题题目 下列选项中，不属于华为 eSight 创建的缺省角色的是： A. Administrator B. Monitor C. Operator D. End-User 02 真题答案 D 03 答案解析 华为 eSight 是一款综合性的网络管理平台，提供了多种管理和监控功能。 为了确保不同用…...
ubuntu 手动更换库文件解决nvcc -V和nvidia-smi不一致
NVML 库版本与驱动不匹配 问题现象问题排查限制解决禁止自动更新降低库版本 问题现象 笔主在训练之前想查看gpu占用情况，使用watch -n 1 nvidia-smi发现： 且在推理、训练时无法使用到显卡。 问题排查 cat /proc/driver/nvidia/version查看当前显卡驱…...
DataSophon集成CMAK KafkaManager
本次集成基于DDP1.2.1 集成CMAK-3.0.0.6 设计的json和tar包我放网盘了. 通过网盘分享的文件：DDP集成CMAK 链接: https://pan.baidu.com/s/1BR70Ajj9FxvjBlsOX4Ivhw?pwdcpmc 提取码: cpmc CMAK github上提供了zip压缩包.将压缩包解压之后 在根目录下加入启动脚本…...
2024-2025关于华为ICT大赛考试平台常见问题
一、考生考试流程 第一步：收到正式考试链接后点击考试链接并登录； 第二步：请仔细阅读诚信考试公约，阅读完成后勾选“我已阅读”，并点击确定； 第三步：上传身份证人像面进行考前校验࿰…...