質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.46%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

5614閲覧

VBAエラー91の原因が分かりません。

Shh

総合スコア1

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2020/11/07 16:23

前提・実現したいこと

VBA初心者です。
自分の銀行口座やや証券会社口座にアクセスし,明細データを取り込むマクロを組みたいと考えています。

明細のTableタグのオブジェクトを取得しようとすると,
ーーーーーーーーーーーーーーーーーーーーーー
実行時エラー91
オブジェクト変数またはWithブロック変数が設定されていません。
ーーーーーーーーーーーーーーーーーーーーーー
というエラーメッセージが出ます。

ソニー銀行の明細データにアクセスする際に発生しています。
以下のブログなどを参考にしているのですが,原因が分からずにおります。
https://www.sejuku.net/blog/72067
https://tonari-it.com/vba-ie-get-table/
https://www.vba-ie.net/element/document-all.php#a3
https://www.tipsfound.com/vba/19091

発生している問題・エラーメッセージ

実行時エラー91
オブジェクト変数またはWithブロック変数が設定されていません。

該当のソースコード

Attribute VB_Name = "modSBW"

Option Explicit

Public Sub getSBW()

Dim objIE as InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'ログインページへ objIE.Navigate "https://o2o.moneykit.net/NBG100001G01.html?nc=181029001/" Call IEWait(objIE) Call WaitFor(3) 'ログイン Dim accountNum as Long Dim loginPW as String accountNum = ****** loginPW = "******" Dim htmlDoc As HTMLDocument Set htmlDoc = objIE.Document htmlDoc.getElementsByName("KozaNo")(0).Value = accountNum htmlDoc.getElementsByName("Password")(0).Value = loginPW objIE.navigate "JavaScript:mySubmitNBG100001G01(document.HOST, 1)" Call WaitFor(15) 'SBWのページへ objIE.navigate "javascript:hometop(101)" Call WaitFor(15) '明細照会のページへ objIE.navigate "javascript:sonybankwallet(1)" Call WaitFor(20) '1つ目のtableタグデータを抽出したい MsgBox htmlDoc.getElementsByTagName("table")(0).outerHTML (ここでエラーが出ます) 'objIE.Quit 'Set objIE = Nothing

End Sub

試したこと

ここで使用している変数のhtmlDocは定義しており,参考にしているサイトにも情報がないことから,何を修正すべきか分からずにおります。

補足情報(FW/ツールのバージョンなど)

Windows 10
Office 2019

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Shh

2020/11/08 21:53

ご指摘ありがとうございます。追って修正するようにいたします。
m.ts10806

2020/11/08 22:25

質問は編集できますので
guest

回答1

0

ベストアンサー

Call WaitFor() の直後に、以下のIE待ち処理を追加してみてください。
https://teratail.com/questions/203259#reply-300454

投稿2020/11/07 22:10

TanakaHiroaki

総合スコア1063

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Shh

2020/11/08 21:57 編集

IEの待機処理を追加し,Waitforの時間を長くしたところ,エラーを回避できました。 スクリーン上ではIEの読み込みが終わっているように見えても,実際には読み込みが終わってないためオブジェクトを取得できていなかったということですね。 ご回答ありがとうございます。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.46%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問