| |
こんにちは。かみちゃん です。
>1日だったら（月が替わっていたら）、
>そのファイルを報告書（○月分）.xlsという名前で、
>C:\報告関連\2010\3月度\
>（2010フォルダは前月の年・無ければ作成。
> 3月度フォルダは前月の月、無ければ作成）
ファイル名の生成部分だけであれば、以下のような感じでできると思います。
少し発想を変えて、ファイルが作成していなければという条件をきっかけとしています。
Sub Sample()
Dim dt As Date
Dim strPath As String
Dim ss As String
strPath = "C:\報告関連"
dt = DateAdd("m", -1, Date)
ss = strPath & "\" & Format(dt, "yyyy")
If Dir(ss, vbDirectory) = "" Then
MkDir ss
End If
ss = strPath & "\" & Format(dt, "yyyy\\m月度")
If Dir(ss, vbDirectory) = "" Then
MkDir ss
End If
ss = strPath & "\" & Format(dt, "yyyy\\m月度") & "\報告書（" & Format(DateAdd("m", 1, dt), "m月分") & "）.xls"
MsgBox ss
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 10/3/27(土) 23:34 -
