vb备份代码

最新推荐文章于 2025-05-12 15:46:43 发布

原创最新推荐文章于 2025-05-12 15:46:43 发布 · 821 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#vb #数据备份 #date

本文介绍了一个使用VBA实现的数据备份与还原的功能模块。该模块通过简单的代码实现了数据文件的备份与从指定位置还原的功能，并包含了错误处理机制。文章提供了具体的VBA代码示例，包括备份文件到特定目录及从对话框选择文件还原。

Private Sub munSJBF_Click() 
On Error GoTo ERR_line 
newname = App.Path & "/data/data.cc" 
datapath = App.Path & "/backup/" & Date & " 备份卡.bak" 
FileCopy newname, datapath 
MsgBox "数据已备份到 " & datapath, 64, "提示" 
Exit Sub 
ERR_line: 
MsgBox "不能完成数据备份！", 48, "运行错误" 
End Sub 

Private Sub munSJHY_Click() 
On Error GoTo ERR_line 
Me.CommonDialog1.ShowSave 
snewname = Me.CommonDialog1.FileName 
sdatapath = App.Path & "/data/data.cc" 
If snewname <> "" Then 
If MsgBox("还原后将覆盖原有数据，确定还原吗?", vbInformation + vbYesNo, "提示") = vbYes Then 
FileCopy sdatapath, snewname ’

MsgBox "数据已经成功还原！请重新登陆 ", 48, "提示" 
Unload Me 
frmLogin.Show 
Else 
Exit Sub 
End If 
End If 
Exit Sub 
ERR_line: 
MsgBox "不能完成数据还原，请进入系统后未做任何操作时进行！", 48, "运行错误" 
End Sub

data  backup 确保这个文件夹存在
先用 if dir("文件夹路径",vbDirectory)<> then 判断下