こんばんは。度々すいません。
またまたIE操作で詰んでしまいました。
以前、http://hiroba.chintai.net/qa7798169.htmlで質問してご回答いただいたのですが
違うサイトにも応用しようとしたところ、うまくいきませんでした。
https://www.jaccs.co.jp/icmclub/icm_login.htmlのログインボタンを押下したいのですが
Sub test()
Dim objIE As InternetExplorer
Dim myObj As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate "https://www.jaccs.co.jp/icmclub/icm_login.html"
objIE.Visible = True
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
For Each myObj In objIE.document.forms(0).all
If TypeName(myObj) = "HTMLInputElement" Then
If myObj.alt = "ログイン" Then
Debug.Print myObj.alt
myObj.Click
Exit For
End If
End If
Next
Set objIE = Nothing
End Sub
をするとエラーにもならないけどボタンも押せません。
でもmyObj.Clickは通過しているようです。
なぜボタンを押せないのでしょうか?
ご教授よろしくお願いします。
No.2
- 回答日時:
#1 DOUGLAS_ です。
>以外の方法でログインボタンを押下する方法はありますでしょうか?
普通は、
objIE.Document.forms(0).submit
でイケます。
For ~~ Next
の9行を
objIE.Document.forms(0).submit
に置き換えてみてください。
ポップアップの警告が出たら、「常にOK」とすればよいかと存じます。
DOUGLAS_様いつもありがとうございます。
実は、
objIE.Document.forms(0).submit
にすると、
https://www.jaccs.co.jp/Service?_TRANID=JXIF0300 …
のページが開き、ログインエラーになってしまうのです。
やはりこれもwin7が原因でしょうかね?
No.1
- 回答日時:
お示しのコードをそのまま実行すると、
https://www.jaccs.co.jp/icmclub/icm_login.html
のウィンドウとは別に、
https://www.jaccs.co.jp/Service?_TRANID=JXIF0300 …
のウィンドウが開いて、「お客様のIDが入力されていません。」と表示されました。
ということで、普通にボタンを押せているようですが。。。
VBAによる IEオブジェクト の操作の場合は、OS が Windows7 の場合には、ちゃんと動いてくれないこともあります。
このようなご質問の場合は、お使いのパソコンの OS や IE・エクセルのバージョンなどを書いておかれた方がよいかと存じます。
なお、OS が Windows7 の場合は、私もお手上げです(原因が分からなくて、私自身も困っております)。
さっそくのご回答ありがとうございます。
失礼しました。OSはwin7で、オフィスは2007です。
win7なのが原因のようですね。
試していただきありがとうございます。
OSを変える事を検討します。
ちなみに、
For Each myObj In objIE.document.forms(0).all
If TypeName(myObj) = "HTMLInputElement" Then
If myObj.alt = "ログイン" Then
Debug.Print myObj.alt
myObj.Click
Exit For
End If
End If
Next
以外の方法でログインボタンを押下する方法はありますでしょうか?
再度ご回答いただければ助かります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ブラウザの×ボタン(閉じるボタ...
-
VBAで一時中断したプログラムの...
-
javascript 別ウィンドウを開...
-
Eclipseでクリーンが出来ない
-
VC++ MFC CListCtrlで、ボタン...
-
DataGridViewのチェックボック...
-
最大化ボタンと最小化ボタンを...
-
メール添付されたPDFファイルが...
-
VBのこのコードの意味を教えて...
-
ASP.NETのGridViewでNULLの場合...
-
IEの閉じるボタンを消す方法
-
Page_Load時にボタンクリックイ...
-
vba ie操作 ボタンを押...
-
コネクション・セッション・ト...
-
asp.NET初心者です。「 ’Contex...
-
Accessの画面更新を一時的に停...
-
ボタンのなかに表示する文字を...
-
ボタンをクリックした時に、入...
-
コンピュータへの接続数が最大...
-
VBAで特定のテキストボックスを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
DataGridViewのチェックボック...
-
VBAで一時中断したプログラムの...
-
c# 文字列の最後から1文字削除...
-
Eclipseでクリーンが出来ない
-
グリッドビューでのチェックボ...
-
JSPでメッセージボックスを表示...
-
EXCEL2010でセルが編集中かを判...
-
ブラウザの×ボタン(閉じるボタ...
-
VBのこのコードの意味を教えて...
-
最大化ボタンと最小化ボタンを...
-
VC++ MFC CListCtrlで、ボタン...
-
Fancyboxのiframe内に閉じるボタン
-
CheckBoxをボタン形式にして押...
-
エクセルにカウンターを設置したい
-
【C#】 : WindowsProgramming ...
-
SPREADでカーソルの位置を1行目...
-
メール添付されたPDFファイルが...
-
Spread.NETの行削除について
-
初期状態に戻す方法
-
C# Enterキーの動作について
おすすめ情報