excel - 通过选择文件夹按名称删除多个工作簿

Question

按名称删除多个工作簿相同的工作表但下面的代码不起作用，它在选择文件夹后不执行任何操作。

Sub jdghd()
Dim xFd As FileDialog
    Dim xFdItem As String
    Dim xFileName As String
    Dim wbk As Workbook
    Dim sht As Worksheet
   
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
    Else
        Beep
        Exit Sub
    End If
Do While xFileName <> ""

  Set wbk = Workbooks.Open(xFdItem & xFileName)

  For Each sht In wbk.Sheets
    If sht.Name = Summary Then
      wbk.Worksheets(Summary).Delete
    End If
  Next

  wbk.Close SaveChanges:=True

  xFileName = Dir
Loop
End Sub

标签： excelvba