如何删除Excel中的表?

如题!

解决方案 »

  1.   

    我将access库中的一个表导入Excel
    但如果Excel中已经存在这个表了就回出错
    所以我想先删除Excel中的这个表,然后在导入!
    请问怎么做呢?
    或者有什么方法可以导入是强行覆盖!
      

  2.   

    用错误处理吧！on error resume next在判断err.number 
    如果有错，就先删除掉表在执行一遍
      

  3.   

    application.Workbooks.Worksheets(1).Delete
      

  4.   

    Dim xlApp As Excel.Application
        Dim xlworkBook  As Excel.Workbook
        Dim xlsheet As Excel.Worksheet    Set xlApp = CreateObject("Excel.application")
        Set xlworkBook = xlApp.Workbooks.Open(strFilePath)
        Set xlsheet = xlworkBook.Worksheets(strSheetName)   '删除表：
        xlsheet.delete