VBS传递函数

VBS传递函数

Function a()     Set excelFso=CreateObject("Excel.application")     Set excelWork=excelFso.Workbooks.Open("C:\Users\Administrator\Desktop\Sccripts\testSet.xls")     Set excelSheet=excelWork.Worksheets(1)     MsgBox excelSheet.UsedRange.rows.count     excelFso.Quit     Set shell=CreateObject("Wscript.shell")     shell.Run "taskkill /F /IM Excel.exe"

End FunctionFunction b(d)     On Error Resume Next      d()End Function  b(a)

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。