如何用vba做如下判断:
1,判断F盘下是否存在以当前日期为名的文件夹
2,如没有该文件夹,则自动创建
3,将当前工作薄另存为刚刚创建的文件夹里
Option Explicit
Function 创建文件夹()
If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) <> "" Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在!,系统将创建一个名为" & Format(Date, "YYYY-M-D") & "的文件夹"
MkDir "F:\" & Format(Date, "YYYY-M-D")
End If
End Function
Sub test()
Call 创建文件夹
ActiveWorkbook.SaveAs Filename:="F:\" & Format(Date, "YYYY-M-D") & "\a.xls"
MsgBox "执行完了~"
End Sub追问
Function 创建文件夹()
If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) <> "" Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在!,系统将创建一个名为" & Format(Date, "YYYY-M-D") & "的文件夹"
MkDir "F:\" & Format(Date, "YYYY-M-D")
End If
End Function
Sub test()
Call 创建文件夹
ActiveWorkbook.SaveAs Filename:="F:\" & Format(Date, "YYYY-M-D") & "\a.xls"
MsgBox "执行完了~"
End Sub追问
谢谢,请问如何将文件名也改成当天日期的格式呢?
追答同理 ,新建文件的时候 文件名改为 Format(Date,YYYY-M_D) & ".xls"
温馨提示:答案为网友推荐,仅供参考
第1个回答 2013-07-18
If Dir("F:\" & Format(Now, "YYYY/MM/DD"), vbDirectory) = "" Then
'创建文件夹
MkDir "F:\" & Format(Now, "YYYY/MM/DD")
Else
'文件夹存在,直接保存
ActiveWorkbook.SaveAs Filename:="F:\" & Format(Now, "YYYY/MM/DD") & "\" & ActiveWorkbook.Name
End If本回答被网友采纳
'创建文件夹
MkDir "F:\" & Format(Now, "YYYY/MM/DD")
Else
'文件夹存在,直接保存
ActiveWorkbook.SaveAs Filename:="F:\" & Format(Now, "YYYY/MM/DD") & "\" & ActiveWorkbook.Name
End If本回答被网友采纳