削除

ファイルアップロード前のプルダウン選択ができない削除

Message#3 2016年1月29日(金)10時54分
From: カープファン

VBAマスターのメッセージ(#2)への返事
　早速のご指導、ありがとうございました。
Dim OBJBを削除したところ、「変数が定義されていません」が出ました。

　実は、OBJB.Seleted = Trueの部分はネットで提示されていたのを使用し、OBJBだけを入れ替えたものだったのですが、Seletedの綴りが間違っていたことが分かりました。
何も考えずにコピーしたエラーで、お粗末な話　申し訳ありません。
OBJB.Selected = Trueに修正しエラーは出なくなったのですが、肝心のプルダウンは選択されません。

　その後、プルダウンのところを調べてみると、一度クリックしないとプルダウンメニューが選択できないような仕組みになっているようでして、素人には難しい、調査しまた報告したいと思います。

　今後もよろしくお願いします。
> 選択自体は問題ないように見えますね。
>
> 型宣言でエラーが起きているのかも知れませ。
>
> Dim OBJBを削除してみたらどうですか？
>
>
> > ネットのサンプルを参考に作成し、走らせると下記エラー個所でエラー９１が出ました。
> > MsgBox OBJB.Valueで確認するときちんと目的のバリュー値（option value="aaa"）はキャッチできています。
> > 今一歩なのですが、原因がわかりません。
> > ご指導のほどよろしくお願いします。
> >
> > Set OBJ = OBJIE.document.getElementsByName("bbb")(0)
> > Call setSelect(OBJ, "aaa")
> >
> > Sub setSelect(OBJ As Object, VS As String)
> > Dim OBJB
> > For Each OBJB In OBJ.tags("option")
> > Sleep 10
> > If OBJB.Value = VS Then
> > 'MsgBox OBJB.Value
> > OBJB.Seleted = True'エラー個所
> > Exit For
> > End If
> > Next
> > End Sub

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