[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『シートの削除ができない』(じゅん)
【事象】
別ブックにある不用なシートを削除できません。
【状況】
別ブックは正常に読み込めており、
シート名などは取得できます。
delete関数を使用しています。
強制削除設定はしていないので、
確認ダイアログは表示されるはずですが、
表示されません。
特に異常終了することもありません。
無反応、といったところです。
何か情報をご存じの方、
いらっしゃいましたらご教授のほど、
よろしくお願い致します。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
既存のマクロなのですが、
別ブックの値更新等をしています。
今回、不用なシートの削除処理を追加するものです。
シンプルな記載になります。
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
後日、コメントさせていただきますので、
気にとめていただけましたらよろしくお願い致します。
(じゅん) 2017/11/17(金) 22:43
エクセルを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.