- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：現在、QueryTableが設定されているかの確認方法）
QueryTableの設定状態を確認する方法
このQ&Aのポイント
- ExcelVBAを使用して、Webクエリを取得し、指定されたシートに書き込むプログラムを作成しています。新しいWebクエリを取得する前に、以前のQueryTableを削除するために「QueryTable.Delete」を使用しています。
- しかし、QueryTableが存在しない場合にはエラーが発生してしまいます。そこで、シートにQueryTableが存在するかどうかをブール型で確認する方法があれば、制御文で回避できます。
- また、エラーが発生してもプログラムを続行する方法もありますが、それによって不具合が発生する可能性があるため注意が必要です。別の方法がある場合は教えていただけると助かります。
- Halical
- お礼率44% (22/50)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Countプロパティで確認できませんか？ if ActiveSheet.QueryTables.Count <> 0 then msgbox "あり" '----------------------------------------- QueryTablesが、０～複数の場合の確認＆Delete '----------------------------------------- Sub Test() Dim Q As QueryTable MsgBox ActiveSheet.QueryTables.Count For Each Q In ActiveSheet.QueryTables MsgBox Q.Name & vbLf & Q.ResultRange.Address Q.Delete Next Q End Sub '------------------------------------------- 外しましたらご容赦！ 以上です。
お礼
出来ました。ありがとうございます。