VBA 删除工作簿中所有表格

Option Explicit

Sub DeleteWorksheet()
    Dim ws As Worksheet
    Dim filePath As String
    Dim objWorkbook As Workbook
    
   filePath = SelectFile()
   
   MsgBox filePath
   
    Set objWorkbook = Workbooks.Open(filePath)
    
    '遍历所有工作表
    For Each ws In objWorkbook.Sheets
        If ws.Name <> "Sheet1" Then '如果不是第一张工作表（名称为 Sheet1）则删除该工作表
            Application.DisplayAlerts = False '关闭警告提示对话框
            ws.Delete '删除工作表
            Application.DisplayAlerts = True '打开警告提示对话框
        End If
    Next ws
    
       ' 保存并关闭工作簿
        objWorkbook.Close SaveChanges:=True
End Sub


Function SelectFile()

Dim folderPath As String

With Application.FileDialog(msoFileDialogFilePicker)
   .InitialFileName = ThisWorkbook.Path
   .Title = "选择文件"
   If .Show = True Then
       folderPath = .SelectedItems(1)
    End If
    End With
 SelectFile = folderPath

End Function