|
▼vang さん:
ご参考になるか分かりませんが・・・
私も、毎月新しいフォルダーを自動で作成して、毎日集計したデータをそのフォルダーに自動的に保存させています。
21日から20日が一ヶ月単位ですので、21日以降にエクセルを開くと翌月のフォルダーを自動作成するようにしています。
こんな感じのコードでしています。
確か、この掲示板で色々と教えていただいたと思い出している次第です。
一度見てください。
Sub auto_open()
Dim str As String
Dim dt As Date
PFol = Left(ThisWorkbook.Path, 3)
If Day(Date) > 20 Then
dt = DateAdd("m", 1, Date)
Else
dt = Date
End If
str = PFol & "AA明細表" & Format(dt, "e-m") & "月分"
If Dir(str, vbDirectory) = "" Then
MkDir str
MsgBox " 「こんにちは」 新しい月が始まりました !" & vbLf & _
" 当月のフォルダー" & vbLf & Replace(str, PFol, "") & "を作成しました !" _
, vbOKOnly + vbInformation
End If
End Sub
|
|