Excel VBA質問箱 IV

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

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


36526 / 76738 ←次へ | 前へ→

【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 質問
【45391】Re:フォルダの自動作成について かみちゃん 06/12/21(木) 21:18 発言
【45393】Re:フォルダの自動作成について vang 06/12/21(木) 21:58 お礼
【45394】Re:フォルダの自動作成について かみちゃん 06/12/21(木) 22:24 発言
【45418】Re:フォルダの自動作成について T 06/12/22(金) 19:21 発言
【45420】Re:フォルダの自動作成について vang 06/12/22(金) 23:12 お礼

36526 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free