|
Set ExcelApp=CreateObject("Excel.Application")
ExcelApp.WorkBooks.Open "d:\我的文档\桌面\厂商别名.xls"
Set oSheet=ExcelApp.Sheets.Item(1)
For i=1 to 649
With Browser("佳信捷综合视频管理平台").Page("佳信捷综合视频管理平台")
.Frame("leftFrame").Link("厂商信息").Click
.Frame("leftFrame").Link("厂商列表").Click
.Frame("mainFrame").WebButton("添加新厂商").Click
.Frame("Frame").WebEdit("厂商名").Set oSheet.cells(i,1)
.Frame("Frame").WebEdit("厂商别名").Object.disabled=False
.Frame("Frame").WebEdit("厂商别名").Set oSheet.cells(i,1)
.WebElement("确定").Click
.WebElement("再次确定").Click
End with
Window("Windows Internet Explorer").WinObject("ToolbarWindow32").Click 133,9
Next
ExcelApp.Quit
Set oSheet=Nothing
Set ExcelApp=Nothing
如果我不加disable=false,第一遍正常,第二遍就会报错object is disable “.Frame("Frame").WebEdit("厂商别名").Set oSheet.cells(i,1)” |
|