Excel VBA質問箱 IV

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

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


36527 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   お世話になります。
イメージがわかずに困っています。
助言お願いいたします。

Private Sub CommandButton2_Click()
dir_1 = "O:\11月分\" ' ※保存フォルダの設定(当月フォルダ)
  Sheets("○○○").Select
  Sheets("○○○").Copy ’※指定したシートをコピー
   With Application.ActiveSheet.Cells
   .Copy
   .PasteSpecial Paste:=xlPasteValues '値貼り付け
  End With
  Application.CutCopyMode = False
  Range("A1").Select
  ActiveWorkbook.SaveAs Filename:=dir_1 & Format(Date - 1, "mm月dd日") & ".xls"
  MsgBox "保存しました。"
  ActiveWorkbook.Close
  
End Sub

このようなコードで現在指定したファルダにファイルの指定シートだけを
保存していますが、これだと当月が終わり月が替わったときには新たにフォルダを作り
コードも書き換えなくてはなりません。
月が替わったら保存時自動でフォルダを作成し(ファルダ名は当月が付くように)
そこへシートを保存するようなコードを作成することは可能でしょうか。
ご指導よろしくお願いします。

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 お礼

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