Question

vba自动创建文件夹并另存为

如何用vba做如下判断：
1，判断F盘下是否存在以当前日期为名的文件夹
2，如没有该文件夹，则自动创建
3，将当前工作薄另存为刚刚创建的文件夹里

Answer 1

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

追问

谢谢，请问如何将文件名也改成当天日期的格式呢？

追答

同理 ，新建文件的时候 文件名改为 Format(Date,YYYY-M_D) & ".xls"

Answer 2

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