Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2000 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【70566】ホームページに自動ログインしたい。 たかはし 11/12/1(木) 1:26 質問[未読]
【70568】Re:ホームページに自動ログインしたい。 ｍｏｍｏ 11/12/1(木) 16:47 回答[未読]
【70569】Re:ホームページに自動ログインしたい。 たかはし 11/12/1(木) 17:14 お礼[未読]
【70566】ホームページに自動ログインしたい。
質問  たかはし  - 11/12/1(木) 1:26 -
引用なし
パスワード
   vba初心者です。よろしくお願いします。

あるｈｐに自動ログインしたいのですが出来ません。
ソースに
------------------------------------------------------------------------
td width="100"><strong>ユーザーID</strong></td>
　　<td width="200"><input type="text" name="id" value=""　size="30" maxlength="16" istyle=4 mode=numeric ></td>
　　<td>&nbsp;</td>
　</tr>
　<tr>
　　<td><strong>パスワード</strong></td>
　　<td><input type="text" name="ps" value=""　size="30" maxlength="16" istyle=3 mode=alphabet ></td>
-----------------------------------------------------------------------
とあるので自分でやってみました。
-----------------------------------------------------------------------
objIE.Document.all("id").Value = Cells(現在位置行, 2)
objIE.Document.all("ps").Value = Cells(現在位置行, 3)
-----------------------------------------------------------------------
としてみたところ、idはコピペされるのですがパスワードは入りません。
教えていただければと思います。
よろしくお願いいたします。

ｈｐは　//l.chip.jp/pc/login.phpです。
【70568】Re:ホームページに自動ログインしたい。
回答  ｍｏｍｏ  - 11/12/1(木) 16:47 -
引用なし
パスワード
   ▼たかはし さん：
こんにちは
そのＨＰにはアクセスできないので疑似環境ですが

Sub test()
With CreateObject("InternetExplorer.Application")
　.Navigate "about:blank"
　With .Document
　　.Write "<html>" & vbCrLf
　　.Write "<body>" & vbCrLf
　　.Write "<input type=""text"" name=""id"" value=""""　size=""30"" maxlength=""16"" istyle=4 mode=numeric >" & vbCrLf
　　.Write "<input type=""text"" name=""ps"" value=""""　size=""30"" maxlength=""16"" istyle=3 mode=alphabet >" & vbCrLf
　　.Write "</body>" & vbCrLf
　　.Write "</html>" & vbCrLf
　End With
　.Visible = True
　Do While .Busy = True
　　DoEvents
　Loop
　.Document.all("id").Value = "1234" 'Cells(現在位置行, 2)
　.Document.all("ps").Value = "pass" 'Cells(現在位置行, 3)
End With
End Sub

で、正常に動いています。
ＩＥがBusyの状態で送っていませんか？
上のコードにあるように表示完了まで待機させていますか？
【70569】Re:ホームページに自動ログインしたい。
お礼  たかはし  - 11/12/1(木) 17:14 -
引用なし
パスワード
   ▼ｍｏｍｏ さん：
ありがとうございます。

よくよく見てみるとname="ps"が二つあり
objIE.Document.all("ps")(1).Value = Cells(現在位置行, 3)
とすることで解決できました。

お手間を取らせて申し訳ありません。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2000 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free