VBAでWebに値を入力

質問

VBAでWebに値を入力する操作を考えています。
エクセルシートのA1に入っている値をWeb上に入力する操作なのですが、
以下のコードを実行すると「AllLog.keyword.Value = t」の部分でエラーになります。
googleではkeywordのところを「q」、yahooではkeywordのところを「p」にすれば問題ないのですが、
神奈川中央交通のページではエラーになってしまいます。
なぜですか？？

Sub google()

Dim objIE As InternetExplorer
'参照設定:Microsoft Shell Controls and Automation
Dim objShell As Shell
Dim WinFlg As Boolean
Dim objWin As Object
Dim AllLog As Object

On Error GoTo EndProcess
Set objShell = New Shell

For Each objWin In objShell.Windows
If TypeName(objWin) = "IWebBrowser2" Then
WinFlg = True
Set objIE = objWin
Exit For
End If
Next
Set objShell = Nothing

If WinFlg = False Then
MsgBox "IEオブジェクトが取得できません", vbCritical
Exit Sub
End If
EndProcess:
If Err() > 0 Then
MsgBox Err.Description
End If
With objIE
Set AllLog = .Document.all
t = Cells(1, 1)
AllLog.keyword.Value = t
End With

Set objIE = Nothing

End Sub

回答No.1

o_chi_chi · ベストアンサー

フォーム内に"keyword"が２つあるからではないかと思います。
フレームを指定すればうまくいくと思います。
--
objIE.Document.forms(0)("keyword").Value = t
または
objIE.Document.fmTime("keyword").Value = t

補足

ありがとうございます。できました！
今度は「yahoo Japan ID登録」画面
(https://edit.yahoo.co.jp/config/eval_register?.src=www&.intl=jp&.done=http://www.yahoo.co.jp)
でエクセルのA1に入力されている値をYahoo! JAPAN ID の欄に入力できるか試してみました。
「AllLog.keyword.Value = t」の「keyword」を変えただけではうまくいかないのですが、この場合どうすればいいのですか？
宜しくお願いします。

回答No.3

o_chi_chi

そんなに詳しくないので、下記を参考にがんばってください。

参考URL：

http://msdn.microsoft.com/en-us/library/aa155073.aspx

回答No.2

o_chi_chi

下記のようにするとできました
---
Sub IE_Test()
Dim objIE As Object
'オブジェクト生成
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "https://edit.yahoo.co.jp/config/eval_register?.src=www&.intl=jp&.done=http://www.yahoo.co.jp"
'ページが表示されるのを待つ
While objIE.ReadyState <> 4 'READYSTATE_COMPLETE
While objIE.Busy = True
DoEvents
Wend
Wend
'設定
objIE.Document.Forms(0)("login").Value = "test"
'objIE.Document.Forms(0).Item("yid-ft").Value = "test"
Set objIE = Nothing
End Sub

補足

本当に助かります。
これまで教えてもらったことを総動員して、更にいろいろなサイトを見てやっても、次のソースのサイトではうまくいかないのですが…
「ALT_L_NAME」の部分に「あいうえお」と入力したいのですが、
「objIE.Document.Forms(0)("login").Value = "test"」の部分をどう変更すればいいのですか？

(以下ソースの抜粋)

<table width="550" border="0" cellspacing="0" cellpadding="0" align="left">
<tr><td height="30">
<center>
<br>
<img src="../../images/user_regist.gif" border="0" width="463" height="48">
<br><b>。罕ェ・鬣、・ミマソ。・/b>
<table width="540" border="1" cellspacing="0" cellpadding="3">
<tr>
<td bgcolor="#FFFF93" width="150">
<font color="#660000">
<b>・譯シ・カ・ソ・、・ラ</b></font>
</td>
<td width="390">
<SELECT NAME="PRIVILEGE_CODE" onChange=click01()><OPTION VALUE=2>タクナフ
</SELECT> </td>
</tr>
<tr>
<td bgcolor="#FFFF93" width="150">
<font color="#660000">
<b>タォ・ユ・・ャ・ハ(チエウム・ォ・ハ)</b></font>
</td>
<td width="390">
<INPUT TYPE="text" NAME="L_NAME" SIZE="40" MAXLENGTH="16">
</td>
</tr>
<tr>
<td bgcolor="#FFFF93" width="150">
<font color="#660000">
<b>フセ・ユ・・ャ・ハ(チエウム・ォ・ハ)</b></font>
</td>
<td width="390">
<INPUT TYPE="text" NAME="F_NAME" SIZE="40" MAXLENGTH="16">
</td>
</tr>
<tr>
<td bgcolor="#FFFF93" width="150">
<font color="#660000">
<b>タォ(エチサ・</b></font>
</td>
<td width="390">
<INPUT TYPE="text" NAME="ALT_L_NAME" SIZE="40" MAXLENGTH="16">
</td>
</tr>
<tr>
<td bgcolor="#FFFF93" width="150">
<font color="#660000">
<b>フセ(エチサ・</b></font>
</td>
<td width="390">
<INPUT TYPE="text" NAME="ALT_F_NAME" SIZE="40" MAXLENGTH="16">
</td>
</tr>
<tr>
<td bgcolor="#FFFF93" width="150">
<font color="#660000">
<b>タクヌッキ・/b></font>
</td>
<td width="390">
<SELECT NAME="BIRTH_PERIOD">
<OPTION VALUE="S">セシマツ
<OPTION VALUE="H" selected>ハソタョ
</SELECT>
<SELECT NAME="BIRTH_YEAR">
<SCRIPT Language=JavaScript>
<!--
for (i=1; i<65; i++)
document.write("<OPTION VALUE ="+i+">" + i);
// -->
</SCRIPT>
</SELECT>
ヌッ
<SELECT NAME="BIRTH_MONTH" onChange=click02(this.form)>
<SCRIPT Language=JavaScript>
<!--
for (i=1; i<13; i++)
document.write("<OPTION VALUE ="+i+">" + i);
// -->
</SCRIPT>
</SELECT>
キ・
<SELECT NAME="BIRTH_DAY">
<SCRIPT Language=JavaScript>
<!--
for (i=1; i<32; i++)
document.write("<OPTION VALUE ="+i+">" + i);
// -->
</SCRIPT>
</SELECT>
ニ・
</td>
</tr>
<tr>
<td bgcolor="#FFFF93" width="150">
<font color="#660000">
<b>カオシシフセ</b></font>
</td>
<td width="390">
<SELECT NAME="USER_GROUP">
　・
　・
　・