Excel VBA質問箱 IV

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

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


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

36521 / 76732

←次へ　｜　前へ→


	【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

≪