[[20171117211439]] 『シートの削除ができない』(じゅん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『シートの削除ができない』(じゅん)

【事象】
別ブックにある不用なシートを削除できません。

【状況】
別ブックは正常に読み込めており、
シート名などは取得できます。

delete関数を使用しています。

強制削除設定はしていないので、
確認ダイアログは表示されるはずですが、
表示されません。

特に異常終了することもありません。

無反応、といったところです。

何か情報をご存じの方、
いらっしゃいましたらご教授のほど、
よろしくお願い致します。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


>delete関数を使用しています。
もう少し具体的に説明してもらえますか?
(γ) 2017/11/17(金) 21:32

回答ありがとうございます。

既存のマクロなのですが、
別ブックの値更新等をしています。

今回、不用なシートの削除処理を追加するものです。

シンプルな記載になります。
Dim ws = book.Sheets(1)
ws.Delete

既存の処理なのですが、
CreateObjectでexcel.applicationを
指定しています。

別ブックではなく、
thisbookのシート削除は正常に動きます。

(じゅん) 2017/11/17(金) 21:47


訂正

Dim ws As Sheets
Set ws = book.Sheets(1)
ws.Delete
(じゅん) 2017/11/17(金) 21:50


なぜ、実際のコードを省略せずにそのまま貼り付けないのでしょうか。

(マナ) 2017/11/17(金) 22:00


端折らずに、Sub xxxx から End Sub まで示した方がよいと思いますよ。
うまくいかない理由は一つだけでない可能性もありますからね。
(γ) 2017/11/17(金) 22:03

〉マナさん、γさん
すみません。ソースが職場にあるので、
具体的に記載できませんでした。

後日、コメントさせていただきますので、
気にとめていただけましたらよろしくお願い致します。
(じゅん) 2017/11/17(金) 22:43


>CreateObjectでexcel.applicationを指定しています。

エクセルを2重に起動してるのですか?

Waorkbooks.Openで普通に開けばよいように思います。

たぶん、ちゃんと意図したブックやシートを指定できてないのだと思いますが?
(どこかの違うブックのシートが削除されていたりして?)
なんにしても、ソースコードがなければ話になりませんね。
(まっつわん) 2017/11/18(土) 10:20


〉まっつわんさん

ご回答ありがとうございます。

1.不用なシートを削除したいブックを
 指定のフォルダに格納します。
2.マクロが記載されているブックを開きます。
3.ブック内のボタン押下でマクロを実行します。

※ 上記、1と2(3)は、別ブックになります。

マクロ内では、シート削除をしたいブックを
Workbooks.openで指定して、
削除対象シート名は取得できておりますので、
意図したブックのシートを指定できている認識です。

本マクロでは、残ったシート(削除したいシート)に対して、
値の更新をしているのですが、
こちらは意図した値で更新できております。

何はともあれソースがないと詳細不明ですよね。
後日、コメントさせていただきますので、
気にとめていただけましたらよろしくお願い致します。

(じゅん) 2017/11/18(土) 13:19


訂正

本マクロでは、残ったシート(削除したいシート)に対して、
本マクロでは、残ったシート(削除しないシート)に対して、

(じゅん) 2017/11/18(土) 21:40


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.