みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Access VBAからExcelシートの削除

お世話になります。

Access VBA から指定したExcelシートの削除を行うプログラムを下記の通りに記載しています。

Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Open FileName:="エクセル.xls"
oApp.DisplayAlerts = False
oApp.Sheets("シート名1").Delete
oApp.DisplayAlerts = True

この場合において、"シート名1"が存在していれば問題なく処理されますが、
このシートが存在していなければエラーが起きます。
指定したExcelブックにこのシートが存在するかどうかのチェックを事前に行い、
存在する場合のみ削除処理を行うにはどうすればよいでしょうか?

よろしくお願いします。
環境は、Access2007です。

投稿日時 - 2011-11-20 13:35:15

QNo.7144094

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

昨日も、シートの存在チェックの質問が出たが読んでないのだろう。
Googleで「エクセルVBA シート 存在」で照会してみること。
最初の記事の
http://officetanaka.net/excel/vba/tips/tips10.htm
の後半に出てくる。
こんな方法も知らない(やってみない)で、VBAのプログラムを勉強しようとするのは、行き詰まるよ。
独学なら、WEBとヘルプが頼りだよ。

投稿日時 - 2011-11-20 16:09:32

あなたにオススメの質問