Excel VBA質問箱 IV

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

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


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

36520 / 76732

←次へ　｜　前へ→


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

かみちゃん - 06/12/21(木) 21:18 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>月が替わったら保存時自動でフォルダを作成し（ファルダ名は当月が付くように）
>そこへシートを保存するようなコードを作成することは可能でしょうか。

以下のような感じでできると思います。
月が変わったらというより、フォルダが作られていなければという考え方です。

　Dim dir_1 As String
　　
　dir_1 = "O:\" & Format(Date, "mm") & "月分"
　If Dir(dir_1, vbDirectory) = "" Then
　　MkDir dir_1
　End If
　Sheets("○○○").Select
　
　'～省略～

　ActiveWorkbook.SaveAs Filename:=strPath & "\" & Format(Date - 1, "mm月dd日") & ".xls"

0 hits

▼

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