削除

オブジェクト変数またはWithブロック変数が設定されていません削除

Message#1 2014年11月20日(木)12時51分
From: hanako

みなさんこんにちは。IE操作初心者の者です。
社内で使っているセキュリティで保護されたサイト内の「VIN」というところと
「Actual counter」というところに文字を入力して「Search for a vehicle」ボタンを
クリックしたいのですが、★★のところで、

「実行時エラー91 オブジェクト変数またはWithブロック変数が設定されていません。」
と出てしまいます。VBAのコードは下記になります。
（サイトは、あらかじめ開いた状態からの操作となります。）

Sub useFrame()
Dim objFRAME As FramesCollection
Dim objDOC As HTMLDocument
Dim ObjIE As Object

Set objShell = CreateObject("Shell.Application")
'
'
Range("a2").Select
For Each objWindow In objShell.Windows
If TypeName(objWindow.Document) = "HTMLDocument" Then
If objWindow.Document.url = "https://dms.send.com/opp/jsp/ServletLogin?VIN=&KM=" Then
Set ObjIE = objWindow
Exit For
End If
End If
Next

'↓ここでエラー
　★★ObjIE.Document.getElementsByName("VIN")(0).Value = "abcde"
★★objDOC.Document.all("submit").Click

End Sub

ソースは下記になります。何がどう間違っているのかわかりません。フレームが３つあるのが
原因なのでしょうか。フォーム名を取得しないといけないのでしょうか？
どなたかお分かりの方がいらっしゃいましたらご教示願います。

<html>

<head>

<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=ISO-8859-1">

<link rel="stylesheet" HREF="/icm/css/SICM.css" TYPE="text/css">
<title>Identification d'un véhicule..</title>
<script src="/icm/js/JICM_CLIENT.js"></script>
<script>document.charset="ISO-8859-1";</script>
<SCRIPT>
function fnOteBlanc() {

sVin = document.FormIdentification.VIN.value;
sVinTemp = '';

for(i = 0; i < sVin.length; i++) {
// alek le 20.03.2001 - ajout oter les caractères spéciaux : code ASCII > 129 (debut)
if ((sVin.charAt(i) != ' ')&&(sVin.charCodeAt(i) < '129')) sVinTemp = sVinTemp + sVin.charAt(i);
// if(sVin.charAt(i) != ' ') sVinTemp = sVinTemp + sVin.charAt(i);
// alek le 20.03.2001 - ajout oter les caractères spéciaux (fin)
}

document.FormIdentification.VIN.value = sVinTemp;

}
// JML 01.10.2001 DEB
function rechercheAuto() {
if (document.FormIdentification.RECH_AUTO.value == "oui") {
document.FormIdentification.Bouton_Rechercher.click();
}
}
// JML 01.10.2001 FIN
</SCRIPT>
</head>

<body class="FondEcran" onLoad="ApresLoad11();afficher_menu(1);MajAide('AICM21.htm');rechercheAuto();">

<form NAME="FormIdentification" method="POST" action="/icm/jsp/RechVehiServlet" target="_parent">

<input type="hidden" name="preaff_vin" value="">
<input type="hidden" name="preaff_cont" value="">
<input type="hidden" name="DATE_VIN">
<input type="hidden" name="UNIT_COMPTEUR" value="KM">

<input type="hidden" name="RECH_AUTO" value="non">

<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="100%" class="TitrePage" colspan="5">Identification of a vehicle</td>
</tr>
<tr>
<td class="Numeros">1</td>
<td class="DataTableauGauche">VIN</td>
<td class="DataTableauGauche"><input TYPE="text" SIZE="20" NAME="VIN" maxlength="20" ONCHANGE="fnOteBlanc()" value=""></td>
<td class="Numeros">2</td>
<td class="DataTableauGauche">Actual counter

<input TYPE="text" SIZE="5" NAME="KM" maxlength="6" value="">
<select name="ListeKMMI">

<option value="KM" SELECTED>Km
</option>
<option value="MI">Miles

</option>

</select></td>
</tr>

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。