過去の回答を参考にエクセルでWEB画面をすべて選択しエクセルの所定のセルに貼り付けするマクロを作成しました。処理を追加していった結果、下記のようなマクロが完成しました。ステップインで動作確認できましたが、マクロ実行から動かすと途中で止まります。
止まる箇所は、
While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True
DoEvents
Wend
DoEvents
この記述でWEBが遅く開く時に対応するよう作成しましたが、ここで止まります。(抜け出せません)
また、この記述を削るとステップインではうまく動きますが、マクロの実行から動かすと何回目かで
objIE.ExecWB 17, 0
すべて選択するときに止まります。
どこが悪いのか教えていただけないでしょうか?
使用、作成したのは、excel2007 及びexcel2010です。どちらでも動きません。
よろしくお願い致します。
Sub test()
Dim URL As String
Dim URL2 As String
Dim URL3 As String
Dim CD As String
Dim i As Integer
For i = 1 To 199
CD = Worksheets("CD").Cells(i + 1, 1).Value
URL2 = "貼り付けたいWEBのURL"
URL3 = CD ’縦一列にコードを入力しているシート
URL = URL2 & URL3
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.navigate URL
While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True
DoEvents
Wend
DoEvents
objIE.ExecWB 17, 0
objIE.ExecWB 12, 0
Sheets.Add
ActiveSheet.Name = 199 - i
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML"
objIE.Quit
Set objIE = Nothing
Next
End Sub
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
エクセルで複数のシートのクリ...
-
フォルダ内にある全ファイルの...
-
エクセルで特定の行だけ行削除...
-
【エクセル】フリーワード検索...
-
エクセルファイルを開いた回数...
-
【エクセル】「実行時エラー’10...
-
エクセル マクロ 一定時間おき...
-
Excelで数字を入れたら対応する...
-
エクセルを開いたときに実行す...
-
Excelのシート上のShapeにイベ...
-
長い時間かかるマクロが実行中...
-
エクセル:セル内の文字列の最...
-
「マクロが含まれているファイ...
-
任意のセルに貼り付けをするマ...
-
マクロを有効にしないとExcelフ...
-
セルの一部分だけを太字にする方法
-
【エクセルVBAについて】セ...
-
エクセル シート内の一番下のセ...
-
Excelのマクロ 検索範囲を広げ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelで数字を入れたら対応する...
-
エクセルで複数のシートのクリ...
-
エクセルファイルを開いた回数...
-
Excelのシート上のShapeにイベ...
-
エクセルで特定の行だけ行削除...
-
長い時間かかるマクロが実行中...
-
エクセル シート内の一番下のセ...
-
【エクセル】フリーワード検索...
-
Excelでセル内の文字をファイル...
-
【エクセル】「実行時エラー’10...
-
シートではなくBOOK間で重複し...
-
フォルダ内にある全ファイルの...
-
EXCELのダイアログシートって、...
-
エクセル:セル内の文字列の最...
-
自分の専門分野の仕事。初見で...
-
セルの一部分だけを太字にする方法
-
エクセルで○をつけるマクロ設定
-
エクセル マクロ 一定時間おき...
-
Excelにて、同じ画像を複数のセ...
おすすめ情報