excel VBA 检查文件或文件名是否存在

'******部分代码******

'引用 Microsoft Scripting Runtime

'引用文件 C:\WINDOWS\SYSTEM32\Scrrun.dll

Sub 保存备份文件()

workbooks.add
Dim datafolder As String
Dim chfolder As Object
Dim checkfn As Object
Dim savename As String
Dim backupfilename As String
Set chfolder = CreateObject("scripting.filesystemobject")
Set checkfn = CreateObject("scripting.filesystemobject")
datafolder = ThisWorkbook.Path & "\数据库备份\&;
backupfilename = Format(Now(), "yyyymmdd") & "数据库备份" & ".xlsx"

文章内容来源于网络，由强国说-WPS之家(wps.qiangguoshuo.com)收集，希望能为您提供帮助。

'******检查备份文件夹是否存在，不存在的话就建立备份文件夹******
If Not chfolder.FolderExists(datafolder) Then
chfolder.CreateFolder (datafolder)
End If
Set chfoler = Nothing

'******检查文件名是否存在，存在的话就另存名字******
If checkfn.FileExists(savename) Then
backupfilename = Format(Now(), "yyyymmdd") & "数据库备份" & Format(Now(), "hhmmss") & ".xlsx"
savename = datafolder & backupfilename
End If
Set checkfn = Nothing
'******检查完毕，另存文件******
ActiveWorkbook.SaveAs Filename:=savename, Password:="openpsw", writerespassword:="writepsw"
MsgBox "数据已全部导出成功！" & Chr(10) & Chr(10) & "保存路径是：" & Chr(10) & Chr(10) & savename, 64, "系统提示"
End Sub

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/17595.html