- 帖子
- 234
- 主題
- 19
- 精華
- 0
- 積分
- 276
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2021-10-7
|
2#
發表於 2020-2-17 14:01
| 只看該作者
回復 1# t8o2m0
試試看:
宣告函數:
Dim post As Object, elem As Object
將:
.all("toTimeTable")(toTimeTable).Selected = True
改為:
Set post = .getElementById("toTimeTable")
For Each elem In post.getElementsByTagName("option")
If elem.Value = toTimeTable Then elem.Selected = True: Exit For
Next elem |
|