ベストアンサー

エクセルのファイル（メモ.xls）がmydocumentsに保存されて

2010/10/11 02:35

エクセルのファイル（メモ.xls）がmydocumentsに保存されていますがそれを削除したいと思います。そのファイルを開いてシートにボタンを作ってVBEに削除用マクロを書いて登録し、ボタンをクリックするとそのファイル自体が削除される。そんなことできるのでしょうか。もしできればその具体的なコードを教えていただきたいのですが。できない場合は別のファイルに書いても構わないのですが、その場合その別ファイル自体も残したくないので自動的に削除させたいと思います。まとめるとボタン一つでエクセルファイルを削除する方法です。OSはvistaです。よろしくお願いいたします。

kafun-show
お礼率85% (95/111)

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

nda23
ベストアンサー率54% (777/1416)

2010/10/12 15:59 回答No.1

自分が開いているとロックされるので削除できません。そこで、スクリプトを作り、これに削除させます。スクリプトは自身のファイルも削除できます。以下のような感じです。 Open "C:\～\del.vbs" For Output As #1 Print #1, "Dim F" Print #1, "Set F=CreateObject(""Scripting.FileSystemObject"")" Print #1, "F.GetFile("""; _ 　　　　　　　　ThisWorkbook.Path; "\"; ThisWorkbook.Name; _ 　　　　　　　　""").Delete(True)" Print #1, "F.GetFile(""C:\～\del.vbs"").Delete(True)" Close Shell "wscript.exe C:\～\del.vbs" ThisWorkbook.Close '★直ぐに閉じないとスクリプトがエラーになる