如何激活excel的某张工作表？

katamoto

   (setq f1 (getfiled "选择excel文件" "d:/" "xls;xlsx" 8) f1 (findfile f1))
   (cond
      ((setq exlib (findfile "c:\\Program Files\\Microsoft Office\\Office11\\Excel.exe"))  exlib)
      ((setq exlib (findfile "c:\\Program Files\\Microsoft Office\\Office12\\Excel.exe"))  exlib)
      ((setq exlib (findfile "c:\\Program Files\\Microsoft Office\\Office14\\Excel.exe"))  exlib)
   )
   (if (null mx-acos) (vlax-import-type-library         :tlb-filename exlib :methods-prefix "mx-" :properties-prefix "mx-" :constants-prefix "mx-"))
   (setq xlobj (vlax-create-object "excel.application") wbobj (vlax-invoke-method (vlax-get-property xlobj 'WorkBooks) 'Open f1))
   (setq sheetobj (mx-get-activesheet xlobj))

最后一句话返回了当前激活的工作表，如果想要激活另外一张表，比如说sheet3，用什么语句，大神请帮帮忙。