Excel VBA質問箱 IV

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

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


14386 / 76738 ←次へ | 前へ→

【67848】日付を入れた上書き保存
質問  あきな  - 11/1/13(木) 9:47 -

引用なし
パスワード
   下記の処理を実行すると別名で保存されてしまいます。
これを、上書き保存としファイル名は「(元々のファイル名)+日付」
にしたいのですが、どこを修正すればよろしいでしょうか。
ご教授お願い致します。

Dim wb As String

wb = Replace(ActiveWorkbook.Name, ".xls", "")
   ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & wb & Format(Now  (), "yyyymmdd") & ".xls"
2 hits

【67848】日付を入れた上書き保存 あきな 11/1/13(木) 9:47 質問
【67849】Re:日付を入れた上書き保存 kanabun 11/1/13(木) 10:02 発言
【67850】Re:日付を入れた上書き保存 Jaka 11/1/13(木) 10:03 発言
【67857】Re:日付を入れた上書き保存 sk63 11/1/13(木) 12:45 発言

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