Excel VBA質問箱 IV

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

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


2469 / 13646 ツリー ←次へ | 前へ→

【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 発言[未読]

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

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

Dim wb As String

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

【67849】Re:日付を入れた上書き保存
発言  kanabun  - 11/1/13(木) 10:02 -

引用なし
パスワード
   ▼あきな さん:

>別名で保存されてしまいます。
名前をつけて保存しているから、当然の結果ですよね

>これを、上書き保存としファイル名は「(元々のファイル名)+日付」
>にしたいのですが、

当初のファイル名を覚えておいて、
新しい名前で保存したあとに、
当初のファイルをディスク上から削除したらどうですか?
Killとかで。

【67850】Re:日付を入れた上書き保存
発言  Jaka  - 11/1/13(木) 10:03 -

引用なし
パスワード
   ???
上書きは、
ActiveWorkbook.Save

>これを、上書き保存としファイル名は「(元々のファイル名)+日付」
>にしたいのですが、
これは、名前を変更しているので「別名で保存」です。

>別名で保存されてしまいます。
で、合っています。

【67857】Re:日付を入れた上書き保存
発言  sk63  - 11/1/13(木) 12:45 -

引用なし
パスワード
   ▼あきな さん:
>下記の処理を実行すると別名で保存されてしまいます。
>これを、上書き保存としファイル名は「(元々のファイル名)+日付」
>にしたいのですが、どこを修正すればよろしいでしょうか。
ファイル名の変更後、上書き保存ではいけないのでしょうか?
名前を変えて保存すれば、手動でも元ファイルは残りますので、
あくまで、現状を残したいならこうなります。

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