はじめまして質問させていただきます。
Webページからコピー&ペーストしたものを必要な情報だけ
抜き出すものを作成中です。
1ページ目は成功していますが
2ページ目の objIE.Navigate url の行で
実行時エラー'91' オブジェクト変数またはwithブロック変数が設定されていません。とでてしまします。
解決策をご教授お願いします。
Dim objIE As Object
Dim url As String
Dim tai As String
Dim aku As String
Dim uot As String
Dim i As Integer
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
x = 1
For i = 1 To 20
url = Worksheets("データ").Range("E" & i)
objIE.Navigate url
Do
If objIE.Busy = False And objIE.readyState = 4 Then Exit Do
Loop
objIE.ExecWB 17, 0
objIE.ExecWB 12, 0
Sheets.Add
ActiveSheet.Name = "1"
Range("A1").Select
ActiveSheet.PasteSpecial Format:="テキスト"
objIE.Quit: Set objIE = Nothing
tai = Worksheets("1").Range("A13")
aku = Worksheets("1").Range("A63")
uot = Worksheets("1").Range("A64")
Worksheets("データ").Select
Range("A" & i) = tai
Range("B" & i) = aku
Range("C" & i) = uot
Application.DisplayAlerts = False
Worksheets("1").Delete
Application.DisplayAlerts = True
Next i
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「Columns("A:C")」の列文字を...
-
worksheetFunctionクラスのVloo...
-
エクセルマクロエラー「'Cells'...
-
Word2007数式でIMEオン/オフを...
-
エクセルのVBAの標準モジュール...
-
VC++2005EEでPowerPointの操作
-
Excel VBA Collection.add で R...
-
PowerPointVBAでスライドマスタ...
-
テキストボックス中の文字列の...
-
ACCESSで画像を貼り付ける方法
-
ユーザ定義型は定義されてません
-
ASPからSELECT文を複数発行する...
-
EXCEL VBA オートシェイプナン...
-
VBからPDFファイル自動生成...
-
VBA:オートシェイプの線の長...
-
(初心者です)VBAについて。「実...
-
VBAで作成するメール(開封確認...
-
VBで引数にDictionaryオブジェ...
-
オブジェクトが見つかりません
-
パワーポイント filedialogでフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
EXCEL VBA オートシェイプナン...
-
VBAからPDFファイルにパスワー...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAで Set wb = Sheets(1).Cop...
-
AccessVBAで「dim dbs as datab...
-
上下の位置揃えについて
-
Excel VBA Collection.add で R...
-
UserForm1.Showでエラーになり...
-
VBScriptでファイルの日時順(降...
-
テキストボックス中の文字列の...
-
ExcelVBAでのNZ関数について
-
PowerPointVBAでスライドマスタ...
おすすめ情報