いつもお世話になっております。
前回ご回答いただいた方ありがとうございました。
またまた困ったことにログインしたいサイトがあるのですがうまくできません。
URLはhttps://www.a-q-f.com/openpc/USB0100S01Action.do …
なのですが、ログインが二つあり、左側でログインしたいのですが、ボタンを押下できません。
****************************************************
Sub 永久不滅ドットコム()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "https://www.a-q-f.com/openpc/USB0100S01Action.do …
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Document.all.ID.Value = "test"
objIE.Document.all.idPassword.Value = "test"
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
For i = 0 To objIE.Document.Links.Length - 1
If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then '何も起こらない
objIE.Document.Links(i).Click
Exit For
End If
Next i
objIE.Document.Forms(0).Click '何も起こらない
objIE.Document.Forms(0).Submit 'エラーになる
Set objIE = Nothing
End Sub
****************************************************
をやってみましたが無理でした・・・
ご教授よろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんにちわ
これでどうかな?
Dim myObj As Object
For Each myObj In objIE.Document.Forms(0).All
'For Each myObj In objIE.Document.Forms(0).Elements
If TypeName(myObj) = "HTMLInputElement" Then
If myObj.alt = "ログイン" Then
myObj.Click
Exit For
End If
End If
Next
'For Each myObj In objIE.Document.Forms(0).Elementsで良いと思ったけどだめだった。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- PHP php テーブルが作成できない 1 2022/11/17 23:41
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- MySQL php テーブルを作れない 2 2022/11/17 18:22
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PHPからWindowsログインユーザ...
-
VB6.0でIEをコントロールする
-
VBAでHTTPログイン
-
vbaでログインできない 手動だ...
-
会員サイト内グループページの...
-
vba ie操作 ログインしたい
-
DFDの書き方について
-
コネクション・セッション・ト...
-
Accessの画面更新を一時的に停...
-
Media Player のスクリーンショ...
-
CheckBoxをボタン形式にして押...
-
DataGridViewのチェックボック...
-
c# 文字列の最後から1文字削除...
-
ACCESS2010 WEBブラウザーコン...
-
Eclipseでクリーンが出来ない
-
ASP.Net 条件により自身を閉じ...
-
VBAで特定のテキストボックスを...
-
HTMLボタンの文字色を変え...
-
getParameterで値が取得できず...
-
ASP.NetのGridViewで任意の行ク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PHPからWindowsログインユーザ...
-
VBAでHTTPログイン
-
セッション管理について(同時...
-
戻るボタンで、ログイン中を維...
-
フォーム認証でのパスワードロック
-
ログインフラグがわかりません。
-
特定の端末からのみWebシステム...
-
ユーザー環境変数の一覧
-
【php】会員登録ログイン時シス...
-
PWを入れると別のページに飛ん...
-
ASP.NET MVC 最初からあるログ...
-
PHPで作成するログイン画面の作...
-
MAC版DW8 ログインパスワードの...
-
セレニウムで自動ログインする方法
-
ログイン履歴
-
複数のヤフーIDの画面ウィンド...
-
ログイン状態が切れないように...
-
PHPでログイン機能実装
-
Windows認証でDBにアクセスでき...
-
DFDの書き方について
おすすめ情報