- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- 7
- 閱讀權限
- 10
- 註冊時間
- 2015-8-20
- 最後登錄
- 2015-8-20
|
大家好，我是剛剛鑽研VBA語法的新手...
由於手頭有工作必須將excel的資料依序填入網頁中的空格
EXCEL有A欄與B攔兩欄的資料
想要依照 A1 (第一筆資料)填入 第1號單號
B1(第一筆資料的掛號碼) 填入第1號的掛號碼
目前遇到的問題是 以下列的程式碼來跑檔案的話
Private Sub UserForm_Activate()
Dim myIE As InternetExplorer
Dim url$, sDoc As Object
Dim x As integer
Set myIE = WebBrowser1
With myIE
url = "公司內網"
.Navigate url
Do While .Busy Or .ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
With .Document
Set x = Row(1, 0)
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
Next
For Each sDoc In .all.tags("input")
If InStr(sDoc.Value, "登入") > 0 Then
sDoc.Click
End If
Next
End With
End With
End Sub
由於我有100筆以上的資料，但是他會在A欄中跳號，對應的B欄也會有誤差1欄(例如A欄第一筆資料會對到B欄第二筆資料，
故程式碼弄成Range("B1").Offset(x - 1, 0))
執行完程式之後，最多只跑到27筆...不知道該怎麼樣修改這個錯誤，請大家幫忙，謝謝T.T |
|
發表於 2015-8-20 11:16
| 
