2017-07-28 41 views
0

データウェアハウスにアップロードするExcelプロセスを自動化しようとしています。 Excel VBAから、データウェアハウス>資格情報でログインするためのIEセッションを開始してから、アップロードするページに移動しますが、ここで問題が発生しています。ADVISE:Excel VBAからInternet ExplorerでPHPオブジェクトにアクセスする

このウェブサイトをナビゲートするとURLは変更されませんが、PHPでコード化されています。したがって、私は特定のイメージをクリックする必要があります - しかし、私はどのようにわからない。

以下のコードでは、コメントとデバッグ時に表示されるエラーメッセージを追加しました。私はまた、ウェブサイトのイメージ、ヒットしようとしているボタン、要素の検査を追加しました。助けてくれてありがとう! < 3 to Stack Overflow!署名

、ダグ・フレッシュ

enter image description here

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 
+1

あなたは画像をクリックする必要がある行にブレークポイントを配置することができますしてみてください?次に、 '.Click'を除いてその行の全てを監視し、正しいオブジェクトのスコープがあるかどうかを確認します。 – nbayly

答えて

0

objIE.document.getElementById("ENL8").Click

+0

同じランタイムエラーmsg .... :( –

関連する問題