- ベストアンサー
VBScript実行時のエラー
MSDNサイト http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/vbslooping.asp の下記の使用例を実行すると 「オブジェクトがありません。:'Document.frmForm.Elements(...)'」のメッセージが表示され スクリプトエラーになってしまいます。 どうすれば正常に実行できるしょうか。 OS：WinXP ------------ <HTML> <HEAD><TITLE>Forms and Elements</TITLE></HEAD> <SCRIPT LANGUAGE="VBScript"> <!-- Sub cmdChange_OnClick Dim d 'Create a variable Set d = CreateObject("Scripting.Dictionary") d.Add "0", "アテネ" '複数のキーと項目を追加します。 d.Add "1", "ベオグラード" d.Add "2", "カイロ" For Each I in d Document.frmForm.Elements(I).Value = D.Item(I) Next End Sub --> </SCRIPT> <BODY> <CENTER> <FORM NAME="frmForm" <Input Type = "Text"><p> <Input Type = "Text"><p> <Input Type = "Text"><p> <Input Type = "Text"><p> <Input Type = "Button" NAME="cmdChange" VALUE="Click Here"><p> </FORM> </CENTER> </BODY> </HTML>
- nicchimosacchimo
- お礼率100% (4/4)
- その他（プログラミング・開発）
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
Document.frmForm.Elements(I).Value = D.Item(I) を Document.frmForm.Elements(CInt(I)).Value = D.Item(I) に修正する
その他の回答 (1)
- zuku
- ベストアンサー率0% (0/2)
d.Add 0, "アテネ" '複数のキーと項目を追加します。 d.Add 1, "ベオグラード" d.Add 2, "カイロ" 上記のように数字の「"」を削除すると実行できるようです。
お礼
ありがとうございます。 確かに実行できますね。
お礼
ありがとうございます。 納得しました。