
Excel2003を使用しています。
ファイルを保存する際に、ファイル名の後に日付を入れて保存したく、下記のようにコードを書きました。
それで、保存するときに、古いファイルは削除するようにしたいのですが、どのようにコードを追加すればいいでしょうか?
Killを使用するのかな~?とは思っているのですが。。。
よろしくお願いします。
--------------------------------------------------
Sub 保存()
ActiveWorkbook.SaveAs _
"C:\○○\××" & Format(Date, "yyyymmdd") & ".xls"
End Sub
No.3ベストアンサー
- 回答日時:
こんな感じでしょうか?
Sub test()
tbn = ThisWorkbook.FullName
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\○○○\××\" & Format(Date, "yyyymmdd") & ".xls"
Kill tbn
End Sub
回答ありがとうございます。
教えていただいたコードを参考にさせていただき、さらに条件(日付が同じ場合は削除しない)を
加えることで、希望通りのことができました。
ありがとうございました。
No.4
- 回答日時:
>古いファイルは削除するよ・・・
プログラムを組もうとする人が、「古い」というようなあいまいな言い方をしていてどうする。
上書き保存してはどうですか
1度だけ前のファイルは保存してある場合
何かの事情でXXyyyymmddの名前のファイルが溜まっていて
それらを一掃する
などごれですか。基本的には限定したフォルダなりの中のエクセルブックを全部調べて(注)、チェックし、条件に外れるものは削除なんでしょう。
(注)WEBでコード例アリ。
「フォルダ Dir」で照会
http://www.accessclub.jp/samplefile/samplefile_2 … 他多数
「VBSCRIPT フォルダ」で照会
http://www.atmarkit.co.jp/fwin2k/operation/wsh11 …
他多数
アドバイスありがとうございます。
“古い”という表現がわかりづらくしたようで、申し訳ありません。
ANo.1の方のお礼欄にも書かせていただきましたが、マクロを実行するとファイルが増えていくので、更新前のファイルは、その都度削除したかったのです。
おかげさまで、ANo.3の方からのご回答を参考にさせていただき、希望通りのことができました。
お手数をおかけしました。
No.2
- 回答日時:
消す前に、ActiveWorkbook.Nameで今のファイル名を取得しておいては
いかがでしょうか?
んで、今のファイルと新しく保存するファイルが違う場合(別の日付で更新した場合)のみ、過去のファイルを削除。
Sub 保存()
Dim myfile As String
Dim newname As String
Dim pass As String
myfile = ActiveWorkbook.Name
newname = Format(Date, "yyyymmdd") & ".xls"
pass = "C:\○○\××"
ActiveWorkbook.SaveAs _
pass & newname
If newname <> mayfile Then
Kill pass & myfile
End If
End Sub
回答ありがとうございます。
記載していただいたコードを参考にさせていただき、希望通りのことができました。
ありがとうございました。
No.1
- 回答日時:
回答ありがとうございます。
“古い”という表現がわかりづらかったようで、申し訳ありません。
ファイルを更新したら、更新前のファイルを削除したかったのです。
質問文に記載しているコードだけでは、マクロを実行する度に、ファイルが増えるので、“古い”ファイルは削除するようにと書いてしまいました…。
教えていただいたURL、参考になりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
-
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
-
4
VBAで文字列を数値に変換したい
Excel(エクセル)
-
5
複数の選択範囲の行番号を個別に取得する方法
Visual Basic(VBA)
-
6
開いているファイルを削除し、別名で保存する方法
Visual Basic(VBA)
-
7
【VBS】古い日付のフォルダを削除したい
Visual Basic(VBA)
-
8
エクセル マクロ 特定の日付"以降を削除"
セキュリティソフト
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PDFを1ページ目から表示させた...
-
Excelでファイル開いただけで更...
-
Illustratorでファイルを上書き...
-
Wordの容量が繰り返し保存する...
-
CSVファイルで誤って上書き保存...
-
間違えて上書き保存した場合、...
-
Word差し込み後にセクション別...
-
EXCEL のファイルをRTFフ...
-
ファイルの更新日時が変わらない。
-
WORDで文章を保存すると~t...
-
Wordの更新日時が勝手に変更される
-
OpenOffice calcで作成したファ...
-
テキストボックスに直接入力が...
-
助けてください。パソコンで編...
-
保存されたファイルアイコンが変
-
Googleドキュメントのpdf文書に...
-
.rtfファイルをWordで編集した...
-
フランス語にて、、
-
打ち込んだ文字が全て「?(半角...
-
名前を付けて保存せず、上書き...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PDFを1ページ目から表示させた...
-
CSVファイルで誤って上書き保存...
-
Illustratorでファイルを上書き...
-
Excelでファイル開いただけで更...
-
Wordの容量が繰り返し保存する...
-
Thunderbirdで受信したメールを...
-
EXCEL のファイルをRTFフ...
-
WORDで文章を保存すると~t...
-
OpenOffice calcで作成したファ...
-
ファイルの種類【Thunderbird D...
-
Wordの更新日時が勝手に変更される
-
テキストボックスに直接入力が...
-
消えてしまったデータの復旧
-
ファイルの更新日時が変わらない。
-
■困っています・・Open O...
-
Googleドキュメントのpdf文書に...
-
保存されたファイルアイコンが変
-
ツイッターのダイレクトメッセ...
-
Excel2016タスクバーの順番につ...
-
deamon toolsでマウントできない
おすすめ情報