削除

表示上ページが移動しているにも関わらず、移動後のページエレメントが読めない削除

Message#4 2017年6月1日(木)09時37分
From: 初心者

NMC様
早々にアドバイスいただき、ありがとうございます。
早速、ログインボタンを選択、管理一覧ページへ移動の前に、Call Link修正(objIE)を追加して実行してみましたが、結果は同じでした。

実は、ログインのところで以下の様に Call ieViewを入れログイン移動後のページを再度
表示させる文を入れると、同じページがもう1個開きますが何故か動作します。
'ログインボタンを選択、管理一覧ページへ移動
Call tagClick(objIE, "button", "ログイン")
Call ieView(objIE, "情報管理ページURL")

また、ログインボタンによるページ移動だけでなく、URLリンクによるページ移動も同様に
Call ieView(objIE, "移動後のページURL")を追加しないと移動前のエレメントを読んでいる様で正常に動作しません。Call ieView(objIE, "移動後のページURL")を追加すると何故か動作しているようです。
この状況が解決の糸口になりませんでしょうか？
引続き、よろしくアドバイスお願いいたします。

NMCのメッセージ(#3)への返事

> 初心者のメッセージ(#1)への返事
> HTMLの<A>タグには、target属性があり、target="_blank"では別画面になるので、objIEがクリック後の別画面を取得できないのではないでしょうか。
> http://www.htmq.com/html/a.shtml
>
> そのような場合に備えて、私は、クリック前に、target="_blank"の全てを、Target = "_top"かTarget = "_self"に書き換えています。
>
> Call Link修正(objIE)'★
> 'ログインボタンを選択、管理一覧ページへ移動
> Call tagClick(objIE, "button", "ログイン")
>
> ★追加では駄目ですか？
>
> Function Link修正(ByRef objIE As Object)
> Dim objDoc As Object, i As Long, k As Long
> Set objDoc = objIE.Document
> For i = 0 To objDoc.Links.Length - 1
> 'Debug.Print i & "---" & objDoc.Links(i).href 'Target
> If objDoc.Links(i).Target = "_blank" Then
> objDoc.Links(i).Target = "_top" '"_self"
> k = k + 1
> End If
> Next i
> Debug.Print k & "箇所のリンクを修正"
> End Function

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。