![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
シートコピーのマクロを実行した後で、コピー先のファイルを削除する方法を教えてください。
マクロ
Sub シートコピー一般()
Dim srcFolderPath As String
Dim srcFileName As String
Dim srcSheetName As String
Dim destWorkbook As Workbook
Dim destSheet As Worksheet
Dim srcWorkbook As Workbook
Dim srcSheet As Worksheet
' コピー元のフォルダパスとファイル名を指定
srcFolderPath = "\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\フラット関係\他の帳票(設計検査調書)\"
srcFileName = "*.xlsx"
' コピー先の作業ブックとシートを指定
Set destWorkbook = ThisWorkbook
Set destSheet = destWorkbook.Sheets("マクロシート")
' コピー元のファイルを検索
srcFileName = Dir(srcFolderPath & srcFileName)
' コピー元のブックを開く
Set srcWorkbook = Workbooks.Open(srcFolderPath & srcFileName)
' コピー元のシートを取得(一番左のシート)
Set srcSheet = srcWorkbook.Sheets(1)
' コピー元のシート名を取得
srcSheetName = srcSheet.Name
' コピー元のシートをコピー先にコピー
srcSheet.Copy After:=destSheet
' コピー元のブックを閉じる
srcWorkbook.Close SaveChanges:=False
End Sub
このマクロを実行すると指定フォルダ内の指定ファイル「 "*.xlsx"」のシートが作業ブックのシートにコピーされます。
このマクロに追加して
作業ブックにシートがコピーされた後に、
指定フォルダ内の指定ファイル 「"*.xlsx"」を削除する方法を教えてください。
指定フォルダ内には最新のファイルのみを保存して、作業をしている為、
作業ブックにシートがコピーされれば、コピー先のファイルは不要となりますので、
詳しい方、よろしくお願いします。
No.4ベストアンサー
- 回答日時:
あれ?同じような質問を見たけれど・・・
srcSheet.Copy After:=destSheet
' コピー元のブックを閉じる
With srcWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close (False)
End With
End Sub
回答ありがとうございました。
いつも助けて頂きましてありがとうございます。
全て上手く行きました。
感謝いたします。
中々解決できなかったので
質問を変更して質問したのですが
解決しましたので他の質問を削除させていただきます。
No.3
- 回答日時:
エラーメッセージも出ないのですね。
私では難しそうなので、他の識者の方に回答いただけるといいのですが。
(この質問は閉めて新たに質問した方がいいかもしれません。)
No.2
- 回答日時:
エラーメッセージも出ないのでしょうか?
テスト用ファイルを作って
Kill ”ファイル名(フルパス)”
だけでテストしてみてはいかがでしょう。
削除権限がないってことはないですよね。
No.1
- 回答日時:
コピー先じゃなくてコピー元ですよね。
Kill srcFolderPath & srcFileName
で削除されますが、ゴミ箱にも入らず綺麗に消えますのご注意下さいね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダ内の全てのファイルに...
-
エクセルVBAが途中で止まります
-
エクセルVBAで書式と値の貼付け...
-
ユーザーフォームの切り替えに...
-
ワイルドカード「*」を使うとう...
-
Excel VBA別ブックのシートをコ...
-
【ExcelVBA】zip圧縮されたCSV...
-
複数のエクセルファイルとシー...
-
複数のエクセルブックをひとつ...
-
VBA 別ブックからコピペしたい...
-
エクセル共有化のトラブル
-
VBS Bookを閉じるコード
-
[Excel]ADODBでNull変換されて...
-
WSHによるExcelのセルコピー&...
-
EXCEL VBA で現在開いているブ...
-
複数のエクセルファイルの指定...
-
Excel VBA インデックスが有効...
-
【Excel VBA】書き込み先ブック...
-
VBA コードを実行すると画面が...
-
日付ごとの集計マクロ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
VBA 別ブックからコピペしたい...
-
別ブックをダイアログボックス...
-
ワイルドカード「*」を使うとう...
-
【マクロ】AブックからBブック...
-
【ExcelVBA】インデックスが有...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
VBA シート名が一致した場合の...
-
VBA 実行時エラー 2147024893
-
VBS Bookを閉じるコード
-
VBAで別のブックにシートをコピ...
-
【マクロ】違うフォルダにある...
-
VBAで別ブックのシートを指定し...
-
[Excel]ADODBでNull変換されて...
-
【Excel VBA】書き込み先ブック...
-
VBAで複数のブックを開かずに処...
-
Excelマクロ 該当する値の行番...
-
vbaでvbaProjectのパスワード解...
おすすめ情報
回答ありがとうございました。
大変失礼いたしました。
コピー元です。
ご指示の通りに
' コピー元のブックを閉じる
srcWorkbook.Close SaveChanges:=False
' コピー元のブックを削除
Kill srcFolderPath & srcFileName
End Sub
を設定しましたが
コピー元のフォルダ内のファイル「 "*.xlsx"」
が削除されておりません。
解決方法をお願いいたします。
よろしくお願いします。
質問のマクロに追加が難しい場合は
指定フォルダ内「"\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\フラット関係\他の帳票(設計検査調書)\"」
の「 "*.xlsx"」を削除できる新しいマクロでも構いません。
仮にマクロ名は
「ファイル削除」としてください。
よろしくお願いします。
何度も申し訳ありません。
はい、エラーメッセージも出ませんでした。
新しいマクロ
Sub Macro1()
Kill "*.xlsx"
End Sub
を作成して実行しましたが、ファイル削除は出来ませんでした。
尚、ファイルを右クリックで削除は出来ます。
解決方法をよろしくお願いします。