HPの (http://uguisu.skr.jp/nikki/?year=2007&sub=2007_1 …)
をそのまま(ID+パス変更)を実行し、ログインは出来ているみたいですが、”documentメソッドは失敗しました。IwebBrowser2オブジェクトエラー”が、表示されDo while以降がエラー表示されます。
次に、エラー非表示 MyFlag = MyFlag + FOF_NOERRORUI を加えてみましたが、次はパスワードの部分が、エラー表示されます。
また、Application.Wait Now + TimeValue("00:00:10")を加えてみましたが、やはりエラーが出ました。
(アドオンや更新処理の要求?が、不完全なのかもしれないと思いましたが、よく解りません)
表示されたページで、1321検索すると普通に表示されますが、マクロ側に”オブジェクト変数または、withブロック変数が設定されていません”が表示されパスワード部分がエラーとなります。
これを解決した後、たとえば1321銘柄検索し、表示させたいのですが、こちらも、どのようにすればよいか?
開いた画面に入力させたり、クリックしたいのですが、よく解りません。
解るほうだけでも、かまいませんので、ご伝授頂けないでしょうか?
よろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
「ログインは出来ている」という意味が不明です。
objIE.document.form_login.submitで始めてログインが成立するので、
「Do while以降がエラー表示され」ているのであれば「Call waitIE(objIE)」の行でこけていることになるので、 「'ユーザ名、パスワード代入」以降も正常動作していないのでは?
とりあえずdocumentメソッドが失敗ということなのでそもそも「form_login.user_id」が見つかっていないと思います。
IE7だったらここがおそらく原因になるのではと。
http://www.happy2-island.com/bbs/bbs.cgi?mode=pa …
ログイン後の操作については、そのサンプルコードを参考にその画面で使われているオブジェクトの名称「form_login.user_id」「form_login.user_password」などを適当に差し替えましょう。
質問文を読む限りではサンプルが何をしているのか理解できていないようです(Application.Wait Now + TimeValue("00:00:10")の部分とか。Sub waitIE(objIE)が完了待ちの関数なのに...)。その程度もできないようなら修正も無理だと思います。まず一つ一つが何をしているのかを、見知らぬプロパティ、メゾットを一語ずつヘルプなりで調べて確認をしましょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- その他(セキュリティ) VPNというアプリ導入後、YahooIDの生年月日が書き換えられてログイン不可能です 4 2023/01/17 00:04
- Excel(エクセル) エクセルのSUM関数について 4 2023/04/18 10:37
- Visual Basic(VBA) ExcelVBA ドロップボックスで月を選択するとそれ以降のデータが残るようにしたい。 3 2022/12/16 14:53
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/06 13:32
- 輸入車 BMW2シリーズ アクティブツアラーの警告表示について 2016年製 走行39000km 2022年 2 2022/11/15 07:54
- Excel(エクセル) エクセルの数式で教えてください。 3 2023/06/06 10:13
- その他(メールソフト・メールサービス) サンダーバードメール移動しない 1 2023/05/13 11:21
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルエラー13型が一致しま...
-
実行時エラー 438になった時の...
-
ExcelVBA Range クラスの Page...
-
エクセルVBAで以下のようなコー...
-
プロシージャ名の取得
-
なぜこんな初歩的なVBAのIf文で...
-
エラー1004 PDFの保存ができま...
-
VBAがブレークモードになっ...
-
ADODB.Streamを使用してUTF-8を...
-
INSERT INTOステートメント構文...
-
Outlook.ApplicationをCreateOb...
-
実行時エラー -'-2147417848
-
【Excel VBA】マクロをボタンに...
-
VB6 エラー:438 (InputBoxに値)
-
Invalid procedure call or arg...
-
Application.ActiveInspectorで...
-
vbaのvlookup関数エラー原因を...
-
EXCEL VBAマクロ中断でデバッグ...
-
VBAのコードがエラーになっ...
-
VBA 別シートのセルから、文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
VBAがブレークモードになっ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
EXCEL VBAマクロ中断でデバッグ...
-
VBSで変数の宣言はできないので...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
AccessVBAでExcelを起動し、罫...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
Application.ActiveInspectorで...
おすすめ情報