いつもお世話になっております。
やりたいこと
削除フォルダがあります。
その中には下記のコードで作成された
Excelファイルがあります。
Dim str As String
str = "\Desktop\削除フォルダ\" & Format(Now(), "yy年mm月dd日")'個人情報があるため前の部分省略しています。
Sheets(1).Copy
ActiveSheet.SaveAs Filename:=str, FileFormat:=xlWorkbookDefault
Sheets(1).Copyをコピーして
削除フォルダに保存しています。
ここで今日の日付より古いデータを削除してから、
上のコードを削除することは可能でしょうか
No.4ベストアンサー
- 回答日時:
以下のようにしてください。
Const folderはあなたから提示されたものをそのまま書いています。
実際のフォルダを書いてください。
Public Sub ファイル削除()
Const folder As String = "\Desktop\削除フォルダ\"
Dim bookname As String
Dim str As String
'全てのyy年mm月dd日.xlsx形式のブックを削除する
bookname = folder & "??年??月??日.xlsx"
Kill bookname
str = folder & Format(Now(), "yy年mm月dd日")
'・・・以下あなたの処理・・・
End Sub
No.3
- 回答日時:
今日の日付より古いデータを削除とのことですが、
拡張子(xlsx)を指定して、「\Desktop\削除フォルダ」下の
エクセルファイルを全て取得できます。
その場合、yy年mm月dd日.xlsxの形式のファイルは、本日より必ず古いはずなので、日付の比較をする必要はありません。
(意図的に未来の日付でファイルを作成していれば別ですが)
よって、「\Desktop\削除フォルダ」下のエクセルファイルを全て削除すれば良いと考えますがいかがでしょうか。
(但し、削除フォルダ内には、yy年mm月dd日.xlsx形式のエクセルファイルのみで、他のエクセルファイルがないことが前提です。(例 営業資料.xlsxとか会議資料.xlsx等がないこと)
そのような方法で良いでしょうか。
No.2
- 回答日時:
No1です。
2つ補足要求をしましたが、1つだけしか補足をいただいておりませんので、再度繰り返します。
>ここで今日の日付より古いデータを削除してから、
>上のコードを削除することは可能でしょうか
ということですが、
「上のコードを削除する」とはどういうことでしょうか。
(コードを削除するならVBEで手作業で行えば済む話だと考えますがいかがでしょうか)
No.1
- 回答日時:
私が回答できる保証はありませんが
>ここで今日の日付より古いデータを削除してから、
>上のコードを削除することは可能でしょうか
「上のコードを削除する」とはどういうことでしょうか。
「上のコードを実行する」なら、意味が分かります。
提示されている画像のファイルの拡張子はどうなっていますか。
xlsx、xlsmのどちらでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
今日の日付が過ぎたらその行を削除したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
デスクトップからだけ削除する...
-
フォルダの中身を全部消したい。
-
ごみ箱の実際の場所は?
-
Common files 内のフォルダは削...
-
「ごみ箱」に入らず直接削除さ...
-
中身のファイルは残したままフ...
-
メールの容量を減らしたい
-
Application Dataフォルダの中...
-
保存されたWebページのfilesだ...
-
Wordのマクロが削除できません
-
ディスククリーンアップでTemp...
-
スクリーンセイバー画像削除
-
テンポラリファイル内のものは...
-
Tempフォルダのファイルの削除...
-
Windows10 ゴミ箱の挙動
-
win10で1つのフォルダ内に保存...
-
フォルダの中のファイルを任意...
-
音楽CDをDVD-Rにコピー...
-
スクリプトエラーとは?
-
文字が薄くなります
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダの中身を全部消したい。
-
デスクトップからだけ削除する...
-
中身のファイルは残したままフ...
-
アクセス許可が必要で、ファイ...
-
フォルダ「PerfLogs」について
-
テンポラリファイル内のものは...
-
バッチファイルを利用したフォ...
-
Application Dataフォルダの中...
-
フォルダを削除できないように...
-
アンインストール時の残骸フォ...
-
OneDriveがいっぱいです。とい...
-
Common files 内のフォルダは削...
-
外付けHDD中のフォルダ削除...
-
削除してもいいでしょうか
-
Windows 7のマイドキュメントに...
-
ごみ箱の実際の場所は?
-
ディスククリーンアップでTemp...
-
「ごみ箱」に入らず直接削除さ...
-
メールの容量を減らしたい
-
Dockからまとめて削除したい
おすすめ情報
xlsxです
申し訳ありませんございません。
ここで今日の日付より古いデータを削除してから、
上のコードを削除することは可能でしょうか
ではなく
上のコードを実行することは可能でしょうか
でした。
はい、ご返事遅れて申し訳ありません
よろしくお願いいたします。