VBA之重要数据的自动备份

最新推荐文章于 2022-07-25 13:20:07 发布
最新推荐文章于 2022-07-25 13:20:07 发布
阅读量822 收藏 1
点赞数
分类专栏： VBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/amamiyayouko/article/details/105131095
版权

工作中有时候想自动保存工作簿,按照时间戳的方式存到一个固定的路径,并且不会影响原来的工作簿
在这里插入图片描述

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs “d:\data” & Format(Now(), “yyyynmddhhmmss”) & “.xls”
End Sub

点击该工作表,然后更改上方的通用为workbook,后面改为beforesave
这样每次点保存,都会自动的偷偷去d盘里备份一份工作簿

amaimiyayouko
关注
专栏目录
编写vba代码实现数据录入工作
**My Coding Family**
08-17 1048
🏆本文收录于《CSDN问答解答》专栏，主要记录项目实战过程中的Bug之前因后果及提供真实有效的解决方案，希望能够助你一臂之力，帮你早日登顶实现财富自由🚀；同时，欢迎大家关注&&收藏&&订阅！持续更新中，up！up！up！！
vba备份代码
07-09
Public Sub search() ThisWorkbook.Sheets(1).Activate Dim MaxRow1, MaxRow2 As Long MaxRow1 = Sheets(1).Cells(1048576, 3).End(xlUp).Row Dim i, j As Integer For i = 2 To MaxRow1 MaxRow2 = Sheets(2).Cells(1048576, 2).End(xlUp).Row ' If MaxRow2 = 1 Then ' Sheets(2).Cells(2, 1).Value = UCase(Sheets(1).Cells(i, 1).Value) ' Sheets(2).Cells(2, 2).Value = UCase(Sheets(1).Cells(i, 3).Value) ' Sheets(2).Cells(2, 20).Value = Sheets(1).Cells(i, 14).Value ' Else For j = 1 To MaxRow2 If Sheets(2).Cells(j, 2).Value = UCase(Sheets(1).Cells(i, 3).Value) Then Sheets(2).Cells(j, 20).Value = Sheets(2).Cells(j, 20).Value + Sheets(1).Cells(i, 14).Value ' NGName = Split(Sheets(1).Cells(i, 19).Value, ",") ' NGQty = Split(Sheets(1).Cells(i, 18).Value, ",") Exit For Else If j = MaxRow2 Then Sheets(2).Cells(j + 1, 1).Value = UCase(Sheets(1).Cells(i, 1).Value) Sheets(2).Cells(j + 1, 2).Value = UCase(Sheets(1).Cells(i, 3).Value) Sheets(2).Cells(j + 1, 20).Value = Sheets(1).Cells(i, 14).Value End If End If Next j ' End If Next i End Sub
杨老师课堂之Excel VBA 程序开发第七讲自动备份
杨校的博客
05-11 1415
   课件下载 ：                                    方式1：本节课件下载地址：链接: https://pan.baidu.com/s/1DhCDxiPRSQw2vjowgjWSRQ 密码: x6pe方式2：或点击此处下载效果图：代码示例：1. 在sheet1中选择通用下拉列表中的WorkSheet  右侧选择BeforeSave，写入下列代码:    注意：确...
Excel vba 写的一个宏，很久没用了，备份一下，备查
Dake
07-28 2102
Sub 水电费统计() AllTest Dim roomNum As String '宿舍号 Dim name As String '姓名 Dim waterUsed As String '水 实用 分表 Dim waterFree As String '水 保底 Dim eleUsed As String '电
vba另存为”对话框备份文件
05-27
vba另存为按钮，代码原件。可直接复制插入
Vbs脚本实现数据CUT备份及自动轮询删除备份数据
weixin_34389926的博客
09-06 101
Vbs脚本实现数据CUT备份及自动轮询删除备份数据我们上一篇文章中介绍了使用vbs脚本不同版本的office激活任务，其实说到vbs脚本相信大家都很了解了，有什么作用呢，其实说白了就是执行批处理任务的工具。Vbs在windows上应用相对比较多，其功能上我们就不多说了，今天呢还是介绍vbs脚本程序备份数据的计划任务。怎么想起来备份数据呢，近期呢，领导突然想到对公司的SAP备份...
VBA示例之 求人不如自已动手 自动建立多级目录
10-26
本示例是关于如何使用VBA来自动创建多级目录，这对于处理大量文件和数据组织至关重要。下面将详细阐述这个主题。 一、VBA基础 VBA是基于VB6.0（Visual Basic 6.0）的脚本语言，它允许用户通过编写代码来控制Office...
vba操作EXECL文件自动数据处理
02-25
在"VBA操作Excel文件自动数据处理"这个场景中，我们主要探讨如何利用VBA来自动化Excel中的数据处理任务，从而提高工作效率。 1. **VBA基础知识**： - VBA代码通常存储在工作簿的宏中，可以通过录制宏或手动编写...
VBA示例之 求人不如自已动手 移除Excel工作表中的外部数据连接
10-26
此外，确保在运行VBA宏之前备份你的工作，因为这可能会永久性地删除数据连接。 了解VBA并掌握如何移除外部数据连接，可以帮助你更有效地管理Excel文件，提高工作效率。通过不断的实践和学习，你可以利用VBA解决更多...
Excel-VBA宏编程实例源代码-工作簿的操作-保存工作簿时创建备份.zip
最新发布
12-14
在Excel中，VBA（Visual Basic for Applications）是一种强大的编程工具，它允许用户自定义工作流程，自动化重复任务，以及...因此，无论你是办公自动化的需求者还是开发者，熟练掌握VBA都是提升工作效率的重要途径。
vbs脚本定时备份文件
02-16
vbs脚本定时备份文件 可根据需要是否定时备份
局域网文件自动备份 VBS 脚本
软件开发大神
05-22 2028
=============== 局域网文件自动备份 VBS 脚本 ================= 条件:10.97.1.X 开用户xcopy/xcopy 属于adminstrator 共享BACKUP 文件所在目录,使xcopy 用户完全控制! 运行后在管理进程中有2个进程：wscript.exe,ping.exe 以日期为log文件名称，只保留7天的日志 =======
文件自动备份到百度网盘，墙裂推荐FileYee！
05-10 802
现在应该有很多朋友都在用百度网盘进行文件备份吧，我们在使用百度网盘备份的时候是不是下载客户端一遍一遍上传到百度网盘中去，而且百度网盘的下载速度非常的慢，如果是文件比较多的时候，操作起来非常的不方便。 有这样问题的朋友可以试一下FileYee文件备份软件，通过百度授权可以实现百度网盘和本地实时同步，FileYee针对网盘备份方面对比网盘客户端最大的优势就是可以自动执行用户文件备份的需求，始终保持文件夹都是最新版本的状态，非常的方便。 那具体使用FileYee文件备份软件进行文件自动实时备份到百度网盘是怎么操作
vba发送信息到局域网服务器,[求助]请问”龙三“兄，如何在局域网内传递数据...
weixin_39527078的博客
08-06 306
我自己有一些代码你看能用不Sub chuanshu()Dim fs As Objectaa = TimerApplication.DisplayAlerts = FalseSet fs = CreateObject("Scripting.FileSystemObject")ff = "C:\Documents and Settings\mathes\桌面\物流系统\备份文件夹\备份文件.xls"g...
vba连接文件服务器,vba连接云服务器数据库
weixin_39889487的博客
08-10 805
vba连接云服务器数据库 内容精选换一换本章节以Linux操作系统为例，指导您通过弹性云服务器内网方式连接GaussDB(for Influx)实例。目标实例必须与弹性云服务器在同一个虚拟私有云和子网内才能访问。该弹性云服务器必须处于目标实例所属安全组允许访问的范围内。如果目标实例所属安全组为默认安全组， 则无需设置安全组规则。如果目标实例所属安全组非默认安全组，请查看安全组规本章节以Linux操...
vba连接文件服务器,vba连接云服务器mysql
weixin_31926457的博客
08-10 684
vba连接云服务器mysql 内容精选换一换创建弹性云服务器，请参见《弹性云服务器用户指南》。该弹性云服务器用于连接GaussDB(for Mongo)的实例，需要与目标实例处于同一虚拟私有云和子网内。正确配置目标实例安全组，使得弹性云服务器处于目标实例所属安全组允许访问的范围内。该弹性云服务器用于连接GaussDB(for Mongo)的实例，需要与目标实例处于同一虚拟私有云和子本章节指导您使用...
Workbook.SaveAs方法
pgymeitianjinbu的博客
02-11 8760
Workbook.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local) excel vba 保存代码 Sub 保存工作簿() ThisWorkbook.Save '.save相当于按保存按钮；无参数 ...
如何将电脑文件自动备份到u盘？
07-25 2583
如何将电脑文件自动备份到u盘？实现自动备份后，只要备份目录中有新的文件增加或文件更新，都能自动备份到U盘中，那么如何实现呢？下面我就来为大家介绍电脑文件自动备份到u盘的方法。
vba上传文件到ftp服务器,excel - 从Excel连接到FTP以自动执行文件共享（VBA初学者） - 堆栈内存溢出...
weixin_33256096的博客
08-12 1512
我是Excel VBA的初学者和新手，但我试图通过连接到Excel并可能创建一个有用的宏来自动化FTP(WinSCP)中的一些文件共享。 在FTP中我去了Session> Generate Session URL / code> Script(脚本文件)，下面是代码：open ftp://myUsername:myPassword@theHostname/# Your command...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值