- 締切済み
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」と表示されるのですが…
以下のコードを事項すると、「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」と表示されて 「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)
- 専門家の回答
みんなの回答
- hisappy
- ベストアンサー率46% (184/392)
安直に考えたら <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 が複数あったりするというのが考えられますがどうでしょう。
- goold-man
- ベストアンサー率37% (8364/22179)
補足
2日間、いろいろなサイトを見て試行錯誤しましたが、どうしても無理です… 宜しくお願いします。
補足
「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; // ・ォ・ソ・ォ・ハタォ、ホニ ホマ・チ・ァ・テ・ッ ・ ・ ・