>今度は「**年度」というフォルダに自動的に保存され、
>もし「**年度」というフォルダがなければ作るようにしたいのです。
年度というのは『例えば』2008年4月1日から2009年3月31日までは『08年度』という意味の『年度』ですか?
そうだと仮定すると
Sub try()
Dim nend As String
Application.DisplayAlerts = False
With ThisWorkbook
'ここの 4 が起算月
If Month(Date) < 4 Then
nend = .Path & "\" & Right$(Year(Date) - 1, 2) & "年度\"
Else
nend = .Path & "\" & Format$(Date, "yy") & "年度\"
End If
End With
If Len(Dir(nend, vbDirectory)) = 0 Then
MkDir Path:=nend
Else
Dir Application.Path
End If
ActiveWorkbook.SaveAs Filename:=nend & Format$(Date, "yymmdd") & ".xls"
Application.DisplayAlerts = True
End Sub
こんな感じですか。
お礼
なるほどこういう風に書けばいいんですね! ありがとうございます。