Dim arrElement = ""
Dim temp = ""
Dim i = ""
Dim G = "G"
Dim sRet = ""
Dim F = ""
Dim objExcelWorkBook = ""
//1.打开工作簿
objExcelWorkBook = Excel.OpenExcel("C:\\Users\\enn\\Desktop\\曹帅临时文件\\out - 副本.xlsx",True,"Excel","","")
//定义赋值
F = "F"
//2.添加函数
For i = 1 To 466 Step 1
//输入函数需要拼接
#icon("@res:66fstodb-k4im-68hs-1sli-sr45ab5ocir1.png")
Keyboard.InputText({"wnd":[{"app":"EXCEL","cls":"XLMAIN","title":"Microsoft Excel(产品激活失败) - out - 副本.xlsx"},{"cls":"EXCEL;"},{"cls":"ComboBox"},{"cls":"Edit","ctrlid":1001}]},F&i,True,0,10000,{"bContinueOnError":False,"iDelayAfter":0,"iDelayBefore":0,"bSetForeground":False,"sSimulate":"uia","bValidate":False,"bClickBeforeInput":False})
Keyboard.Press("Enter", "press", [],{"iDelayAfter":0,"iDelayBefore":0,"sSimulate":"simulate"})
#icon("@res:pi6u9gsp-2113-uti0-hvdq-2al97mrh326b.png")
Keyboard.InputText({"wnd":[{"app":"EXCEL","cls":"XLMAIN","title":"Microsoft Excel(产品激活失败) - out - 副本.xlsx"},{"cls":"EXCEL<"}]},"=C"&i&"-"&"D"&i,True,20,10000,{"bContinueOnError":False,"iDelayAfter":0,"iDelayBefore":0,"bSetForeground":False,"sSimulate":"uia","bValidate":False,"bClickBeforeInput":False})
Keyboard.Press("Enter", "press", [],{"iDelayAfter":0,"iDelayBefore":0,"sSimulate":"simulate"})
Next
//停止运行
//3关闭工作簿
Excel.CloseExcel(objExcelWorkBook,True)
