'5.3_ワークシート一覧データをオンライン画面に登録する
Public Sub
一覧データオンライン登録()
Dim ie As
InternetExplorer
Dim i As Integer
'IE起動→オンライン画面へ遷移
Set ie = getOnline
'各レコードを登録
i = 3
Do While Sheet2.Cells(i, 1)
<> ""
'新規登録画面へ遷移
ie.document.frames("Footer").document.forms("Commands").elements("Register").Click
waitNavigation ie
'レコードデータをフォームに貼り付け・送信
With
ie.document.frames("Main").document.forms("RegData")
.elements("CustomerID").Value = Sheet2.Cells(i, 1)
.elements("CustomerName").Value = Sheet2.Cells(i, 2)
.elements("Address").Value = Sheet2.Cells(i, 3)
.elements("Magic").Value = Sheet2.Cells(i, 4)
.elements("Familiar").Value = Sheet2.Cells(i, 5)
.elements("SalesDepartment").Value = Sheet2.Cells(i, 6)
.submit
End
With
waitNavigation ie
i =
i + 1
DoEvents
Loop
End Sub