自己写了一个保存文件的宏,代码如下:
Sub SaveFiles()
日期 = Format$(Date, "yymmdd")
年度 = Format$(Date, "yyyy")
月份 = Format$(Date, "mm")
Range("B1:AI50").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"D:\员工组织图\" & 年度 & "年员工组织图\" & 月份 & "月\员工组织图" & 日期 & ".xls" _
, FileFormat:=xlExcel8, CreateBackup:=False
ActiveWindow.Close
End Sub
主要实现功能是:将文件另存在指定目录,目录结构是当前年度 =>月份,参考附图,并且文件以当前日期命名.
现在这个宏上述功能已经可以实现,只是出现一个问题,就是如何实现当目录文件夹不存在时自动创建目录,例如现在是10月份,文件应该是保存在[员工组织图]=>[2012年员工组织图]=>[10月].可现在10月这个文件夹没有,那么就需要宏来创建这个文件夹.
请教高手如何实现.
感谢!