Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36495 / 76732

←次へ　｜　前へ→


	【45418】Re:フォルダの自動作成について

T - 06/12/22(金) 19:21 -


	引用なし

	パスワード

▼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

2 hits

▼

【45390】フォルダの自動作成について vang 06/12/21(木) 20:52