急急急 在线！java 如果使用jxl包实现 隐藏行或列

Question

java 如果使用jxl包实现 隐藏行或列？？？？？？？？？？？？急急急！1

Answer 1

Private   Sub   Command1_Click()   
  On   Error   GoTo   errlst   
  Dim   exApplication   As   New   Excel.Application   
  Dim   exWorkbook   As   Excel.Workbook   
  Dim   exWorksheet   As   Excel.Worksheet   
  Dim   sFileName   As   String   
          Set   exApplication   =   CreateObject("excel.application")   
          exApplication.Visible   =   False   
          sFileName   =   "路径\1.xls"       '这里是你要打开的文件路径   
          Set   exWorkbook   =   exApplication.Workbooks.Open(sFileName)   
          Set   exWorksheet   =   exWorkbook.Worksheets(1)   
          With   exWorksheet   
                  .Range("F1").EntireColumn.Hidden   =   True       '隐藏F列   
          End   With   
          exWorkbook.Save   
          exApplication.Quit   
  errlst:   
  exApplication.Quit   
  End   Sub