- 帖子
- 65
- 主題
- 0
- 精華
- 0
- 積分
- 64
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 註冊時間
- 2011-11-10
- 最後登錄
- 2019-2-27
|
你先確認看看這個迴圈, 是否有掃完整個網頁的 input
For Each sDoc In .all.tags("input")
'If sDoc.Name = "item" Then sDoc.Value = Range("A1").Offset(x, 0)
'If sDoc.Name = "mailNumber" Then sDoc.Value = Range("B1").Offset(x - 1, 0)
x = x + 1
debug.print sDoc.Name
Next |
|
發表於 2015-8-20 11:31
| 