Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2480 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼あきな さん：
>下記の処理を実行すると別名で保存されてしまいます。
>これを、上書き保存としファイル名は「（元々のファイル名）+日付」
>にしたいのですが、どこを修正すればよろしいでしょうか。
ファイル名の変更後、上書き保存ではいけないのでしょうか？
名前を変えて保存すれば、手動でも元ファイルは残りますので、
あくまで、現状を残したいならこうなります。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2480 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free