「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」と表示されるのですが…

締切済

質問者：add0804
質問日時：2009/03/03 11:55
回答数：2件

以下のコードを事項すると、「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」と表示されて
「objIE.Document.all.ALT_L_NAME.Value = t」の部分が黄色くなります。
解決策をお願いいたします。

(以下、コードとソースの一部です)
コード↓
Sub a()

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
t = Cells(1, 1)
objIE.Document.all.ALT_L_NAME.Value = t
Set objIE = Nothing

End Sub

ソース(一部)↓
・
・
・
<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>
・
・
・

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： hisappy
回答日時：2009/03/05 20:20

安直に考えたら

<INPUT TYPE="text" NAME="ALT_L_NAME" SIZE="40" MAXLENGTH="16">

を

<INPUT TYPE="text" NAME="ALT_L_NAME" SIZE="40" MAXLENGTH="16" value="">

にしてみるとか、

objIE.Document.all.ALT_L_NAME.Value　が

objIE.Document.ALT_L_NAME.Value　だったり

ALT_L_NAME　が複数あったりするというのが考えられますがどうでしょう。

この回答への補足

「objIE.Document.ALT_L_NAME.Value」にしてもダメでした。
ソースが長いので、全部ののせることが出来ませんが、
他に「ALT_L_NAME」がないか調べてみたら、以下の部分に1箇所だけありました。こいつが原因ですか？

また、フレームが3つに分かれているのですが、これが原因でしょうか？(ちなみに、入力したいフォームがあるのは「mainframe」という名前です)

(以下「ALT_L_NAME」があった部分のソース)

function Input_Check(){
var Len=0;
var i;
var name_l = document.USERSET.L_NAME.value;
var name_f = document.USERSET.F_NAME.value;
var name_la = document.USERSET.ALT_L_NAME.value;
var name_fa = document.USERSET.ALT_F_NAME.value;
var user_8 = document.USERSET.USER_FLAG8.value;
var user_9 = document.USERSET.USER_FLAG9.value;
var user_p = document.USERSET.PRIVILEGE_CODE.value;
var addr_d1 = document.USERSET.MAIL_ADDR.value;
var addr_d2 = document.USERSET.MAIL_ADDR_F.value;
// ・ォ・ソ・ォ・ハタォ、ホニホマ・チ・ァ・テ・ッ
　・
　・
　・