vbsでＩＥの操作

質問

ｖｂｓでＩＥの自動操作を行おうとしているのですが，最後のボタンだけなぜか押せません．
オブジェクトが存在しないとエラーになります．

下記は操作しようとしているところのソースです．

<div id="layerPanelSessions" style="display:">

<table cellpadding="1" cellspacing="0" border="0" width="100%">
<tr>
<td bgcolor="#CCCCCC">
<table cellpadding="0" cellspacing="0" border="0" width="100%">

<tr bgcolor="#EEEEEE">
<td>

<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr valign="top">
<td>
<table cellpadding="4" cellspacing="0" border="0" width="100%">
<tr valign="top">
<td><img src="/dana-cached/imgs/icn18x18SessionNC.gif" alt="ネットワークコネクト" width="18" height="18" border="0"></td>
<td width="100%">ネットワークコネクト <br><span class="cssSmall">システム トレイに [ネットワーク コネクト] アイコンが表示されて「接続」となっていると、ネットワーク上でセキュアにアプリケーションにアクセスすることができます。<br>
<br>そうでない場合はネットワーク コネクトの [セッションの開始] アイコンをクリックして接続します。</span> </td>

</tr>
</table>
</td>
<td align="right">
<table cellpadding="0" cellspacing="0" border="0">
<tr>
<td colspan="6"><img src="/dana-cached/imgs/space.gif" width="1" height="1"></td>
</tr>
<tr>
<td bgcolor="#EEEEEE" nowrap ><img src="/dana-cached/imgs/space.gif" width="10" height="10"> <input name="btnNCStart" type="button" value="開始" onclick="self.location='/dana/nc/ncrun.cgi?launch_nc=1'; return false;"></td>
<td><img src="/dana-cached/imgs/space.gif" width="5" height="1"></td>
<td bgcolor="#CCCCCC"><img src="/dana-cached/imgs/space.gif" width="1" height="1"></td>
<td bgcolor="#EEEEEE"><img src="/dana-cached/imgs/btnPanelItemBlank.gif" alt="" width="20" height="20" border="0"></td>
<td><img src="/dana-cached/imgs/space.gif" width="1" height="1"></td>
</tr>
</table>
</td>
</tr>
</table>

<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td bgcolor="#CCCCCC"><img src="/dana-cached/imgs/space.gif" width="1" height="1"></td>
</tr>
</table>

<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td bgcolor="#CCCCCC"><img src="/dana-cached/imgs/space.gif" width="1" height="1"></td>
</tr>
</table>

</td>
</tr>
</table>
</td>
</tr>
</table>
</div>

で，下記が操作用の私が作成したコードです．

.Document.all("btnNCStart").Click

本当に困っています．どなたかよろしくお願いいたします．

回答No.1

todo36 · ベストアンサー

ボタンはidを持っていないので、Document.All()で検索できません。

document.getElementsByName("btnNCStart")(0).click

補足

早速のご回答ありがとうございます．

早速下記変えて実行してみましたがやはり，オブジェクトがないとエラーになってしまいました．

下記に作成したコード全てを記載いたします．お手数ですが，再度ご教授願えませんでしょうか?

'自動ログインスクリプト

'宣言していない変数は無効
Option explicit
'オブジェクトの作成
Set IEObj = CreateObject("Internetexplorer.Application")
Dim MemID,UsrPass,IEObj

'IDとパスワードを入力してください。
MemID = "XXXXX"
UsrPass = "XXXXX"

'With XXXXでEnd WithまでXXXXを省略できるようになります。
With IEObj
.Visible = True
'URL
.Navigate "https://XXXXX"
'メニューバーを表示するかどうか。
.MenuBar = True
'ツールバーを表示するかどうか。
.ToolBar = 0
'画面の幅を指定します。
.Width =800
'画面の高さを調節します。
.Height = 640
'画面が表示しきるまで待ちます。
While .Busy Or .ReadyState <> 4
Wend
'"xxxx"の値にそれぞれの値を入れます。
.document.all("username").Value = MemID
.document.all("password").Value = UsrPass
'ボタンを押します。
.document.forms(0).submit()
While .Busy Or .ReadyState <> 5
Wend

.document.getElementsByName("btnNCStart")(0).click

While .Busy Or .ReadyState <> 4
Wend
.Quit
End With
Set IEObj = Nothing