怎么把 把要填写的表单， 网页目标元素 "tableRow":"1" 设置成变量
| 数组 循环遍历到 网页表单中 |
| 因为这个表单 有2000行，普通循环遍历的话 要写2000次 设置目标元素 文本 代码 |
| 大佬吗 给解答下 实在整不出来 |
dim objExcelWorkBook = ""
dim hWeb = ""
dim arrElement = ""
dim objRect = ""
dim bRet = ""
dim arrayRet = ""
dim iRet = ""
dim objDatatable = ""
dim arrayData = ""
dim sRet = ""
hWeb = WebBrowser.BindBrowser("chrome",10000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
objExcelWorkBook = Excel.OpenExcel("C:\\Users\\Administrator\\Desktop\\填写sku.xlsx",false)
iRet = Excel.GetRowsCount(objExcelWorkBook,"Sheet1")
arrayRet = Excel.ReadRange(objExcelWorkBook,"Sheet1","A1:a"&iRet)
Excel.CloseExcel(objExcelWorkBook,false)
For Each row In arrayRet
#icon("@res:19rgj0k4-b2nh-tkpm-o5a9-q1647qghi0d7.png")
UiElement.SetValue({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"1"},"index":0}},row[1],{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
#icon("@res:216ie045-ofa3-m2t8-6mj0-ir0l6ofjj80t.png")
bRet = UiElement.Exists({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"2"},"index":0}},{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
If bRet=true
#icon("@res:nadrahuj-mcrp-qth0-m7es-pncgmj47rj4k.png")
UiElement.SetValue({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"2"},"index":0}},row[2],{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
Else
Break
End If
bRet = UiElement.Exists({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"3"},"index":0}},{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
If bRet=true
UiElement.SetValue({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"3"},"index":0}},row[3],{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
Else
Break
End If
bRet = UiElement.Exists({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"4"},"index":0}},{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
If bRet=true
UiElement.SetValue({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"4"},"index":0}},row[4],{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
Else
Break
End If
bRet = UiElement.Exists({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"5"},"index":0}},{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
If bRet=true
UiElement.SetValue({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"5"},"index":0}},row[5],{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
Else
Break
End If
bRet = UiElement.Exists({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"6"},"index":0}},{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
If bRet=true
UiElement.SetValue({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":{"tagName":"INPUT","attrMap":{"tag":"INPUT","name":"skuOuterId","tableRow":"6"},"index":0}},row[6],{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
Else
Break
End If
Next
这个是我自己写的 要重复 复制2000次的代码/手动狗头
