[AHK]遍历Excel有哪些Sheet

来源:互联网 发布:sql 2008 sa 默认密码 编辑:程序博客网 时间:2024/05/09 07:14
oExcel :=   ComObjActive("Excel.Application")for Item in oExcel.workbooks{   data .=   "Name:`t"oexcel.workbooks(A_index).FullName  "`n"    oexcel.ActiveWindow.Caption :=  oexcel.ActiveWorkbook.FullName filename:=Item.FullNameIfInString,filename,Test.xlsx{count:=Item.Sheets.Countloop,%count%{name .= Item.Sheets(A_index).name "`n"}MsgBox %name%}}oexcel.Worksheets("Sheet2").SelectobjRelease(oExcel)

0 0
原创粉丝点击