![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VBAで別ブックのシートを指定して削除したい。
エクセルでVBAを使用して、別ブックのシートを削除するアプリを作成しています。
これらのマクロを記述するエクセルとは別ブックのシートを削除したいです。
以下の記述だと、削除がされないようなのですがどのように記載したら
別ブックのシートを削除することが可能でしょうか。
エラー等は出ません。また、別ブックの情報も取ってこれているようですが、
削除ができません。。
どなたか教えてください。
'Excelを起動し、ファイルを開く
Set xl = CreateObject("Excel.application")
xl.Workbooks.Open fileName:=fileFullPath, ReadOnly:=False, IgnoreReadOnlyRecommended:=True
'※fileFullPathがオープンするエクセルファイルです。
'"一覧"シートの1列目に「公開時削除」という文字が入っている行の2列目のテーブル名を取得
'シートの削除
Application.DisplayAlerts = False
xl.ActiveWorkbook.Worksheets(deleteTableName).Delete
Application.DisplayAlerts = True
'※deleteTableNameは削除したいシートの名前が入ります。
No.1ベストアンサー
- 回答日時:
Option Explicit
Sub hoge()
'VBSとかから実行するのでなければ今実行しているExcelを利用して開くだけでよいだろう。
Dim workbook1 As Workbook
'Openメソッドの戻り値はWorkBook
'このように戻り値を受け取るとき、引数を括弧で括る必要があるようだ。
Set workbook1 = Workbooks.Open(Filename:="C:\Book1.xls", ReadOnly:=False, IgnoreReadOnlyRecommended:=True)
Application.DisplayAlerts = False
workbook1.Worksheets("Sheet1").Delete
'削除するだけじゃなく、ちゃんと保存しておく
workbook1.Save
'開いたので一応閉じる。
workbook1.Close
Application.DisplayAlerts = True
End Sub
himajin100000様
ご回答ありがとうございました。
無事シートを削除することができました。
VBA初心者だった為、行き詰っておりました。とても助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
字面がカッコいい英単語
あなたが思う「字面がカッコいい英単語」を教えてください。
-
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
フォルダ内の複数ファイルから特定のシートを一括削除
その他(Microsoft Office)
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
-
4
Excelで、複数ブックの複数シートを削除するマクロを教えて下さい
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
7
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
8
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
9
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
10
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
13
ExcelのVBAのマクロで他のシートの複数項目をクリアする方法
Visual Basic(VBA)
-
14
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
15
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
16
VBAで文字列を数値に変換したい
Excel(エクセル)
-
17
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
18
指定したシート名以外を非表示にするには?VBA
Excel(エクセル)
-
19
マクロをマクロを使ってコピーしたい
その他(Microsoft Office)
-
20
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
VBA 別ブックからコピペしたい...
-
VBA 実行時エラー 2147024893
-
Excelマクロ 該当する値の行番...
-
ワイルドカード「*」を使うとう...
-
Dir関数で複数ブックへ行いたい...
-
Excel2007VBAファイルの表示に...
-
エクセルVBAでテキストボックス...
-
【ExcelVBA】zip圧縮されたCSV...
-
vbaで他のブックに転記したい。...
-
VBAで別ブックのシートを指定し...
-
ADOで複数のBookから抽出
-
別ブックをダイアログボックス...
-
vbaでvbaProjectのパスワード解...
-
【Excel VBA】書き込み先ブック...
-
ユーザーフォームの切り替えに...
-
【マクロ】アクティブセルにブ...
-
VBAで別のブックにシートをコピ...
-
Excel にて、 リストボックスの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBA コードを実行すると画面が...
-
VBAで別ブックのシートを指定し...
-
VBA 別ブックからコピペしたい...
-
エクセルのマクロについて教え...
-
VBS Bookを閉じるコード
-
【ExcelVBA】zip圧縮されたCSV...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
VBSでExcelのオープン確認
-
エクセルのマクロについて教え...
-
VBAで複数のブックを開かずに処...
-
VBA シート名が一致した場合の...
-
【VBA】全シートの計算式を全て...
-
【ExcelVBA】インデックスが有...
-
vbaでvbaProjectのパスワード解...
-
【マクロ】違うフォルダにある...
おすすめ情報