VBA：「中断モードでは入力できません。」

Question

Internet Explorer を立ち上げて、あるサイトを開き、そのサイトの画面をコピーしてこれをエクセルのシートに貼り付けようとしているのですが、ステップバイステップで各行をチェックして行くと、下記に提示したマクロの後方の ActiveSheet～ で始まる貼り付けの行で標記のようなエラーメッセージが表示されてしまい、それ以降のデバッグが困難になってしまいます。
　この時に現れるエラーダイアログの「デバッグ」ボタンがグレーアウトしている為に、「継続」か「終了」のボタンを押すしかないのですが、いずれの場合もマクロを終了してしまい、その後、ステップインでの各行の確認ができません（なお、上記エラーメッセージが出ている状態で既に貼り付けそのものは実行されています）。
　又、エラー行を以下のようにしてもエラーとなります。
ActiveSheet.Paste
　なお、エラー行を以下のようにするとエラーは発生しません。
ActiveSheet.PasteSpecial Format:="テキスト"  
　このエラー有無の違いは、画像を含んでいるか否かのようにも思われます。
　但し、どちらの場合でもステップバイステップを行わずにマクロを一気に実行すればエラーダイアログは表示されません。
　因みに、環境としては
Windows7（SP1無し）+ Excel 2010
Windows10 + Excel 2016
であり、いずれの環境でも同じ状態を呈します。

　この件について詳しい方、教えて頂ければ幸いです。
　-------------------------------------
Sub SiteCopy()

'■IEの立ち上げ
Dim IE    As InternetExplorer
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate "https://www.google.com/"
Do While IE.Busy = True Or IE.readyState < READYSTATE_COMPLETE
     DoEvents
Loop
'■サイトコピー & 貼り付け
IE.ExecWB 17, 0        '全選択
IE.ExecWB 12, 0        'コピー
Worksheets("sheetA").Select
     Range("A1").Select
     ActiveSheet.PasteSpecial Format:="HTML"     ' ←エラー行
'■IE終了
IE.Quit
Set IE = Nothing

End Sub
-------------------------------------

Qchan1962 · Accepted Answer

>これについては全く理解できていないのですが、
私の指摘表現が悪かったのでしょう。改めて、Rangeオブジェクトは、明らかにない（必ずエラーになる）行や列、アドレスを指定する
可能性のある書き方は、問題ありませんか、という指摘です。
r = 0
c = 0
If Doc.all(i).tagName = "TH" Or Doc.all(i).tagName = "TD" Then　＞＞THタグもしくはTDタグがあったら　
Cells(r, c) = Doc.all(i).innerText　　＞＞この時、先にTRタグを見つけていなければ、Cells(0, 0) = Doc.all(i).innerText

＞＞Cells(0,0)なんて存在しないので必ずエラー

c = c + 1
ElseIf Doc.all(i).tagName = "TR" Then
r = r + 1
c = 1
End If

つまり、r=1  c=1 にしなくていいの？と言う事です。

また、Stopステートメントについては、＃６に書きましたが、挿入位置を変えて試してみてはと言う事です。

私は、プログラムをプロとして書いたこともないので、完全に趣味の範疇を超えない独学のなんちゃってなので、デバッグは必須です。

ycjk2001さんが、どのように、デバッグを行っているか分かりませんが、

私は、変数や配列の中の確認などは、Stop　ローカルウィンドウで確認する事が多いです。
イミディエイトウィンドウやローカルウィンドウ、Debug.PrintやStopなどは無くてはならないものです。
デバッグには関係ないけど、Ctrl+スペースも（WW)

実行コードや参考コードは沢山転がっていますが、基本的な事を覚えないと思わぬつまずきになると思います。
私自身、そうですが、、。

DOMのチャレンジ健闘を祈ります。

Qchan1962 · Answer

あまり考えず読み飛ばしましたが、
＞Stop　（文字数オーバーの為、省略）　内容を確認してはいかがでしょうか。
→　これも試して見たのですが、ステップイン動作に持ち込めず意味がありませんでした。

状況が分かりません。F８でステップ実行できないと言う事ですか？そのような事象は経験がありませんので
後学の為、どのような挙動になるのでしょうか、教えてください。

また、内容は、ローカルウィンドウで確認するのでStop挿入位置を考えれば、良いのではないでしょうか。

Qchan1962 · Answer

訂正します。
＞For直下なら、全部になるかと思います。
Doc.all(0).innerTextは確かに全部ですが、
Forで繰り返されるので、適切ではありません。
Doc.all(1).innerText以降で見るか、全部なら、イミディエイトウィンドウで
？Doc.all(0).innerText　　+エンターキーです。

Debug.Printを使わない場合は、？Doc.all(iの値).innerText　でした。

Qchan1962 · Answer

コード拝見しました。表の見出しとセル内のデータを抽出するで良かったでしょうか。
＞'データ取り込み（r、c の定義省略）とあるので実際は違うと思いますが、
気になる点としては、あまり詳しくないのですが、必ずTRタグはTHたTDタグの前のあるのでしょうか？
もしなければ、Cells(r, c) = がCells(0,0)になり、エラーになるかと思います。

また、F8などで実行する際、変数は見えるとして、all(i).innerTextを見たいと言う事でしょうか。

であれば、
Debug.Print Doc.all(i).innerText　をFor内の探りたい場所に入れイミディエイトウィンドウで確認されるのはどうでしょう。
条件の下なら条件の通ったものが見れますし、For直下なら、全部になるかと思います。

コードについては、私が書くプロセスと違うので、検証していません。

Qchan1962 · Answer

同じ環境下を作る事が出来ず、同様のエラーが出なかった為、色々と頓珍漢な回答をしてしまったようです。
私が確認したOSは、Windows10　IE11、Excelは、2013　と　2016　でした。

今回の事象で、特定オブジェクトをDeleteしたりした時と同じに、
HTMLフォーマットの場合、マクロの実行が一瞬（内部的に？）途切れるのだと理解しました。

エラーメッセージと言う文字に私は、誤解してしまっていたようです。（中断モードダイアログを意図的にブレイクした時の忠告位に考えていました）

＞ステップバイステップを行わずにマクロを一気に実行すればエラーダイアログは表示されません。

ステップインで検証したいが中断モードに阻まれるのであれば、
Stop　を検証用に挿入して、中断モードダイアログを出さずにマクロを止め、内容を確認してはいかがでしょうか。

自身の読解力のなさに、情けなくなりました。

Qchan1962 · Answer

一度回答を書いたので、気は進まないけど検証しました。
エラーとは、1004ですよね？
参考先のコードでも、新規ブック、自ブック共に、ターゲットサイトがご質問にある　IE.navigate "https://www.google.com/"　ではエラーが出ました。
ただし、実行前にクリップボードに値がない場合です。該当フォーマットデータがクリップボードにあれば、当然エラーは出ません。"テキスト"ならテキストでもエラーは出ませんでした。
ターゲットサイトを参考サイトにあるアドレスで実行するとご質問のコードでもエラーは出ません。

コード自体は、エラーが出る場合も出ない場合も、IE.ExecWB 17, 0 '全選択、IE.ExecWB 12, 0 'コピーが実行されています。
しかし、エラーが出る場合は、IE.ExecWB 17, 0 '全選択でターゲットWebページは全選択されませんでした。（IE.ExecWB 12, 0 以下をコメントアウトしブラウザを確認）
従って、IE.ExecWB 12, 0は内をコピーしているのか不明ですが、クリップボードに何も入りません。
私が推測するのは、すでに＃１で示しように、ターゲットサイトの挙動にあるのではないでしょうか？そう想定するとターゲットに合わせコマンドなどを送り、ターゲットがアクティヴ？最前面？などにして捕まえてからIE.ExecWB 17, 0、、、となるようにする必要があるのではないでしょうか。。あくまで想定の範疇ですが。

IEのバージョンは、独自にあると思っていましたが、、Windows7ならIE何々と決まっているのでしょうか？

訂正します。＃１の回答にある　VBEをクリックなどをして知らずにインスタンスをVBEに戻しています。これは、他のアプリケーションを扱う場合も同様です。
これは、VBE事態をVBAで操作している場合や他のアプリ（アクセスなどのインスタンスを操作して（アクセス側でVBAを走らす）実行するなどの場合に
該当するコメントでした。今回の事象には該当しないかと思います。

数百Webページを対象とするとあるので、取敢えずエラー回避コードなどでコピーできないのを飛ばしては、、同時にNGなアドレスを抽出するとか、、
IE.ExecWB 17, 0の前にClipboardは、コードで空にする必要がありますが、

IE.ExecWB 12, 0
・
・
    cbData.GetFromClipboard
    If cbData.GetFormat(1) Then
    Else
    'ここでWebアドレスを抽出する
        GoTo NothingClipboard　’ActiveSheet.PasteSpecial Format:="HTML"を飛ばす
    End If
みたいな、、。
エラーになったアドレスが入るようにすれば、検証できるかと思います。

全てわかっている事と思いますが、訂正があったので、、です。

Qchan1962 · Answer

こんにちは、
＞ステップバイステップで各行をチェックして行くと、下記に提示したマクロの後方の ActiveSheet～ で始まる貼り付けの行で標記のようなエラーメッセージが表示されてしまい、それ以降の＞デバッグが困難になってしまいます。

ステップバイステップで各行をチェックして行くと、実行インスタンスがIE.navigateでIEに渡りますが、その状態ではステップ実行が出来ません。
おそらく、VBEをクリックなどをして知らずにインスタンスをVBEに戻しています。これは、他のアプリケーションを扱う場合も同様です。
したがって、IE.ExecWB 17, 0 '全選択、IE.ExecWB 12, 0 'コピーは、VBE側で実行されます（または、実行されない）なので、クリップボードにあるデータの種類によっては、
1004エラーになったり””がペーストされたり、現行あるクリップボードデータが張り付いたりします。

挙動の確認などは、取り敢えず、Debug.Printで行うのが良いかと、、

＞このエラー有無の違いは、画像を含んでいるか否かのようにも思われます。
これは該当しないと思われます。

IE.navigate "https://www.google.com/"　これは、404ですが、、
抽出先サイトですが、アクセスと同時にアラートやアイフレームなどでIEから見てページがアクティブでない為、全選択できないページがあります。
その場合、当然クリップボードは空か前のコピーデータです。サイトを変えて調整した方が良いかと
また、検索文字などを入力させ、遷移後　IE.ExecWB 17, 0　を実行してみてはいかがでしょうか。。

実行しようとしている処理は、ブラウザに依存する部分が多くあるます。
IEのバージョン、設定確認なども気に留めてください。また、他のブラウザで実行するなども選択種にはあります。

ちなみに、こちらを参考にしているかと思いますが、https://ken3memo.hatenablog.com/entry/20091227/1261925747
サイト内のコメントにあるように、上記の理由などですべてに対応できないと思います。

私もちょっと試しましたが、やはりページ内でアクセスと同時にアイフレームやアラート、テキストボックスなどがアクティブになるサイトでは
うまくコピー出来ないようでした。

全部コピペは、貼り付けたものを整理するの大変ではありませんか？画像が欲しいのかな？

VBA：「中断モードでは入力できません。」

>これについては全く理解できていないのですが、

あまり考えず読み飛ばしましたが、

訂正します。

コード拝見しました。

同じ環境下を作る事が出来ず、同様のエラーが出なかった為、色々と頓珍漢な回答をしてしまったようです。

一度回答を書いたので、気は進まないけど検証しました。

こんにちは、

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング