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も見ています
-
最近、いつ泣きましたか?
泣いてストレス発散! なんて言いますよね。 あなたは最近いつ、どんなシチュエーションで泣きましたか?
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
ちょっと先の未来クイズ第4問
11月ごろに発表される、2024年の「新語・流行語大賞」にノミネートされる言葉を書けるだけ書いてください。
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
開いているファイルを削除し、別名で保存する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Illustratorでファイルを上書き...
-
PDFを1ページ目から表示させた...
-
CSVファイルで誤って上書き保存...
-
Thunderbirdで受信したメールを...
-
間違えて上書き保存した場合、...
-
Excelでファイル開いただけで更...
-
Wordの容量が繰り返し保存する...
-
Wordの更新日時が勝手に変更される
-
EXCEL のファイルをRTFフ...
-
WORDで文章を保存すると~t...
-
テキストボックスに直接入力が...
-
イラレで今日保存したはずのデ...
-
ファイルの更新日時が変わらない。
-
PDDファイルをMPEGファイルに変...
-
打ち込んだ文字が全て「?(半角...
-
wordで作った文章をiCloudに保...
-
パワポの数式に上付き文字を使...
-
Wordのファイルが2つ保存される謎
-
助けてください。パソコンで編...
-
excelファイルの内容を保存した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PDFを1ページ目から表示させた...
-
Illustratorでファイルを上書き...
-
CSVファイルで誤って上書き保存...
-
Excelでファイル開いただけで更...
-
Wordの容量が繰り返し保存する...
-
ファイルの更新日時が変わらない。
-
アフターエフェクトのAMEファイ...
-
テキストボックスに直接入力が...
-
Thunderbirdで受信したメールを...
-
EXCEL のファイルをRTFフ...
-
間違えて上書き保存した場合、...
-
ツイッターのダイレクトメッセ...
-
Wordの更新日時が勝手に変更される
-
OpenOffice calcで作成したファ...
-
WORDで文章を保存すると~t...
-
Excel2016タスクバーの順番につ...
-
Googleドキュメントのpdf文書に...
-
.rtfファイルをWordで編集した...
-
bootcampとparalleldesktopの併用
-
windows photoで作成途中のファ...
おすすめ情報