【Access示例】删除Excel中指定的Sheet表

时　间:2015-05-22 08:52:17
作　者:缪炜   ID：24010  城市：江阴
摘　要:删除Excel中指定的Sheet表
正　文:

用VBA删除Excel表中指定的Sheet表，代码如下：

  Dim objApp As Object
    Dim objBook As Object
    Dim objSheet As Object
    Dim strFileName As String
    With Application.FileDialog(3)
        .Filters.Clear
        .Filters.Add "Excel", "*.xls;*.xlsx"
        If Not .Show Then Exit Sub
        strFileName = .SelectedItems(1)

    End With
  
    Set objApp = CreateObject("Excel.Application")

    Set objBook = objApp.Workbooks.Open(strFileName)
    objBook.Worksheets("Sheet1").Delete

    MsgBox "删除成功。", vbInformation
    objApp.Save

    objApp.Quit
    Set objBook = Nothing
    Set objApp = Nothing

附   件: