
タイトルの件、下記の2つのマクロを順番に
Callのマクロで動かしたいですが
【佐藤ゴミ箱というフォルダを削除するマクロ】
【佐藤ゴミ箱というフォルダを作成するマクロ】
動きませんでした。個別の2つのマクロは動作
確認できています。
ご存じの方、教えてください。
なお、他のマクロでも、下記の2つのマクロの
内容を実行できるものであればOKです。
【やりたいマクロ】⇒動きませんでした
Sub 連続()
Call フォルダ削除
Call フォルダ作成
End Sub
【佐藤ゴミ箱というフォルダを削除するマクロ】
Sub フォルダ削除()
Dim delDir
delDir = "C:\Users\2020\Desktop\ファイル移動\佐藤ゴミ箱"
If Dir(delDir, vbDirectory) <> "" Then
'フォルダが存在する時、削除
RmDir delDir
End If
End Sub
【佐藤ゴミ箱というフォルダを作成するマクロ】
Sub フォルダ作成()
MkDir "C:\Users\2020\Desktop\ファイル移動\佐藤ゴミ箱"
End Sub
No.3ベストアンサー
- 回答日時:
No.2の回答者です。
RmDirステートメントの使い方の問題なので、フォルダ内にファイルが
ある場合に使えないということだけです。
フォルダ作成するMkDirステートメントは問題ないので、そのまま利用
することができるのですから、あえて前の回答には書きませんでした。
https://excelwork.info/excel/mkdirstatement/
なので連続マクロとフォルダ作成マクロは、そのまま使えます。
フォルダ削除マクロだけを修正すれば済むことです。
No.2
- 回答日時:
佐藤ゴミ箱フォルダにファイルが存在すると、質問のマクロでは
削除のマクロには対応できませんよ。
おそらく、こちら↓のマクロを応用しようとしたのでしょうね。
https://excelwork.info/excel/rmdirstatement/
RmDirステートメントではなく、DeleteFolderメソッドにします。
Sub フォルダ削除()
Dim myFSO As Object
Set myFSO = CreateObject("Scripting.FileSystemObject")
'フォルダを削除
myFSO.DeleteFolder "C:\Users\2020\Desktop\ファイル移動\佐藤ゴミ箱"
Set myFSO = Nothing
End Sub
佐藤ゴミ箱というフォルダを削除して、また、同じ場所に佐藤ゴミ箱というフォルダを作成するマクロは出来ないでしょうか。
ご教授頂いたマクロは、中にファイルあっても削除できるのを確認しました。ありがとうございます。
No.1
- 回答日時:
> 【やりたいマクロ】⇒動きませんでした
動かないって、つまりどういうこと?
私の環境に合わせてパス書き換えただけで、ご希望の挙動をしているように思うのですが。
Sub 連続()
End Sub
の中にカーソル置いて、「F8」キーを叩きながら、処理がどう進んでいるのか確認する。
・・・なんてことはてみました?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
- Excel(エクセル) マクロのコードを、少しでも削って短くしたい 3 2022/08/30 07:46
- Excel(エクセル) 【マクロ】フォルダを3つ、POモニター上に、決まった並べ方をしたい 4 2022/08/31 11:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Excel(エクセル) 【マクロ】フォルダを2つのモニターの定位置に並べたい 2 2022/09/02 01:14
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
このQ&Aを見た人はこんなQ&Aも見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
みんなの【マイ・ベスト積読2024】を教えてください。
積読、ついついしちゃいませんか?そこでみなさんの 「2024年に買ったベスト積読」を聞きたいです。
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
-
マクロの連続実行
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
一つのTeratermのマクロで複数...
-
Excel・Word リサーチ機能を無...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
エクセルで特定の列が0表示の場...
-
エクセルで別のセルにあるふり...
-
エクセルに張り付けた写真のフ...
-
Excel_マクロ_現在開いているシ...
-
Excel マクロでShearePoint先の...
-
wordを起動した際に特定のペー...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
ダブルクリックで貼り付けた画...
-
EXCELマクロでのThisisWor...
-
【EXCEL VBA】オートシェイプを...
-
Excelのマクロボタンをダブルク...
-
Excel VBAからAccessマクロを実...
-
ExcelVBAでPDFを閉じるソース
-
エクセルマクロでワードの一ペ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
一つのTeratermのマクロで複数...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
Excel マクロでShearePoint先の...
-
エクセルに張り付けた写真のフ...
-
Excel_マクロ_現在開いているシ...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
マクロ実行時、ユーザーフォー...
-
ExcelVBAでPDFを閉じるソース
-
Excel VBAからAccessマクロを実...
-
特定文字のある行の前に空白行...
-
エクセルで別のセルにあるふり...
-
【EXCEL VBA】オートシェイプを...
-
エクセルで縦に並んだデータを...
-
マクロで空白セルを詰めて別シ...
-
wordを起動した際に特定のペー...
おすすめ情報