电脑教程子分类查看: 1614|回复: 7
请问用VBA如何实现，一键点击自动备份数据
阅读权限20
在线时间 小时
请问用VBA如何实现，一键点击自动备份数据
要求如下：
& & 1、检测文件夹内有无“备份”文件夹，没有就新建“备份”文件夹
& & 2、在“备份”文件夹内新建XLS工作薄文件，其名称为此工作表的B1&B2
& & 3、将此工作薄内的A1---------A12工作表的A1：Y5000区域内数据备份到新建XLS工作薄的对应工作表中[tr] [/tr]
[tr] [/tr]
[tr] [/tr]
[tr] [/tr]
(29 KB, 下载次数: 28)
20:48 上传
点击文件名下载附件
备份多个工作表数据
阅读权限20
在线时间 小时
前辈们在忙什么呢？？？？？&&帮帮我呀！！！& & 谢谢谢谢了
阅读权限30
在线时间 小时
Sub aa()
& & Dim myfile As Object, mypath$, myname$, wb As Workbook, sht As Worksheet
& & On Error Resume Next
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & mypath = ThisWorkbook.Path
& & Set myfile = CreateObject(&scripting.filesystemobject&)
& & myfile.createfolder (mypath & &\备份&)
& & With ThisWorkbook
& && &&&Set wb = Workbooks.Add
& && &&&For Each sht In ThisWorkbook.Sheets
& && && && &If sht.Name && &请教& Then
& && && && && & sht.Copy , wb.Sheets(Sheets.Count)
& && && && &End If
& && && && &wb.Sheets(&Sheet1&).Delete
& && &&&Next sht
& && &&&wb.SaveAs mypath & &\备份\& & .Sheets(&请教&).Range(&b1&).Text & .Sheets(&请教&).Range(&b2&).Text & &.xlsx&
& && &&&wb.Close True
& & End With
& & Set myfile = Nothing
& & Application.DisplayAlerts = True
& & Application.ScreenUpdating = True
End Sub复制代码
20:35 上传
点击文件名下载附件
34.26 KB, 下载次数: 82
阅读权限20
在线时间 小时
zhong1218 发表于
老师您好！
首先感谢您的帮忙！
您的代码测试结果如下，有新问题，能否改进？？？
& & 1，代码好像是将除“请教”工作表以外的所有表格都备份了（只需备份A1---------A12工作表的A1：Y5000区域内数据）
& & 2、A1---------A12工作表中含有部分外部数据连接或者函数公式，能否只备份数据内容和格式，函数公式清除，免得每次打开备份后的文件都会提示更新[tr] [/tr]
[tr] [/tr]
[tr] [/tr]
[tr] [/tr]
关键是第2个问题得解决了，不然备份文件会变得很大，还会提示更新
(37.26 KB, 下载次数: 16)
22:59 上传
点击文件名下载附件
阅读权限30
在线时间 小时
ZXD 发表于
关键是第2个问题得解决了，不然备份文件会变得很大，还会提示更新
。。。。。。
09:04 上传
点击文件名下载附件
36.56 KB, 下载次数: 83
阅读权限20
在线时间 小时
如果工作表名不是这么有规律，又该如何操作呢？
阅读权限20
在线时间 小时
zhong1218 发表于
。。。。。。
谢谢老师的鼎力相助，已经OK
阅读权限10
在线时间 小时
能将有表格的连表格一起备份出吗？
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel重要文件每天自动备份一份，再也不怕文件丢失损坏了
excel重要文件每天自动备份一份，再也不怕文件丢失损坏了
这几天连续有多位同学提问，excel误删除了怎么办？excel损坏了怎么办？...其实如果excel重要的文件如果每天能备份一份，再也不用担心文件丢失和损坏了。今天兰色就教大家如何实现这个功能。实现这样“高大尚”的功能现有的excel功能无法完成，还得VBA编程的方法。当然，作为不懂VBA代码的你，只需要按下面步骤复制粘贴即可。第1 步：打开要备份的excel文件，在工作表标签上右键单击，点击“查看代码”第2步 在打开一个visualbasic窗口，双击工程窗口中的thisworkbook，把下面的代码粘贴到右侧的窗口中。代码：Private Sub Workbook_BeforeClose(Cancel As Boolean)On Error Resume NextDim mypath As String, fname As Stringfname = Format(Date, 'yymmdd') & ThisWorkbook.Namemypath = ThisWorkbook.Path & '/备份/'ThisWorkbook.SaveCopyAs mypath & fnameEnd Sub第3步：在Visual basic窗口中点击保存命令，会弹出另存启用宏的提示，这时点击“否”按钮。在弹出的保存窗口中，选取保存类型为“Excel 启用宏的工作簿”第4步：在当前文件夹中，新建一个名为“备份”的文件夹。设置完成！当关闭当前文件后，在备份文件夹中会自动产生一个 日期 + 文件名的excel备份文件。当第2天再次关闭文件时，同样会再产生一个当天的备份文件注意：以后使用的文件应是xlsm格式的文件。当打开文件时，如果提示“启用内容”就点击启用。兰色说：excel由于支持强大的vba开发语言，使得只要我们能想到的功能，都可以用它来实现。如果你想成为Excel高手，建议学习VBA编程。书也买了一大堆，没心思看。教程也下载了好多，越看越迷糊。excel到底该怎么学？其实，通过视频学习才是最好的学习途径，点左下角'阅读原文' 查看兰色幻想+小妖录制的超全的290集excel视频教程。
发表评论：
TA的最新馆藏}