VB 如何控制生产的excel中sheet数量，高手帮忙！！！

dim appexcel
'创建Excel对象
set AppExcel=createobject("excel.application")
'新增一个工作簿
AppExcel.workBooks.add
'取得工作簿
Set OLNewBook=AppExcel.ActiveWorkbook
set DataSheet = OLNewbook.Sheets("sheet1")
DataSheet.Activate
....
....
我想让生产的文档有2个sheets，但是系统默认是3个，怎么解决，谢谢了

解决方案 »

  1.   

    set DataSheet = OLNewbook.Sheets(2)
    datasheet.delete
    set DataSheet = OLNewbook.Sheets(3)
    datasheet.delete
      

  2.   

    顺序错了 
    set   DataSheet   =   OLNewbook.Sheets(3) 
    datasheet.delete 
    set   DataSheet   =   OLNewbook.Sheets(2) 
    datasheet.delete
      

  3.   

    删除一个呀
    加一句　datasheet.Delete
      

  4.   

    set       DataSheet       =       OLNewbook.Sheets(3)   
    datasheet.delete 
    OLNewbook.save
    set datasheet =nothing
    OLNewbook.close
    set OLNewbook = nothing
    AppExcel.quit
    set AppExcel=nothing