データウェアハウスにアップロードするExcelプロセスを自動化しようとしています。 Excel VBAから、データウェアハウス>資格情報でログインするためのIEセッションを開始してから、アップロードするページに移動しますが、ここで問題が発生しています。ADVISE:Excel VBAからInternet ExplorerでPHPオブジェクトにアクセスする
このウェブサイトをナビゲートするとURLは変更されませんが、PHPでコード化されています。したがって、私は特定のイメージをクリックする必要があります - しかし、私はどのようにわからない。
以下のコードでは、コメントとデバッグ時に表示されるエラーメッセージを追加しました。私はまた、ウェブサイトのイメージ、ヒットしようとしているボタン、要素の検査を追加しました。助けてくれてありがとう! < 3 to Stack Overflow!署名
、ダグ・フレッシュ
Private Sub CommandButton2_Click()
Dim objIE As InternetExplorer
Dim aEle As HTMLLinkElement
Dim ele As Object
Dim y As Integer
Dim result As String
Set objIE = New InternetExplorer
objIE.Visible = True
objIE.navigate "http://kpionline.bitam.com/english/memberlogin.php"
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
objIE.document.getElementById("user_name").Value = "[email protected]" 'not real
objIE.document.getElementById("user_pwd").Value = "Bimbo2017" 'not real
objIE.document.getElementById("Login").Click
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
objIE.navigate "https://kpionline7.bitam.com/artus/genvi_test/LoadStage.php?txtRepositorio=fbm_bmd_0030&txtUser=xxxxxxx&txtPassword=xxxxx"
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
'**************************************************************************
'How do I click this icon???
objIE.document.getElementById("ENL8").getElementsByTagName("img")(0).Click
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
'Please see image for php/js website code
'ERROR: Run-time error '424': Object required
'**************************************************************************
objIE.Quit
End Sub
あなたは画像をクリックする必要がある行にブレークポイントを配置することができますしてみてください?次に、 '.Click'を除いてその行の全てを監視し、正しいオブジェクトのスコープがあるかどうかを確認します。 – nbayly