Excel Forum

Code: Select all

Sub RoundedRectangle2_Click()

'Sub DeleteSheet()

Dim i As Integer, strThisbook As Variant

strThisbook = Application.GetOpenFilename(Filefilter:= _
 "All File (*.*), *.*", Title:="Please select source file(s).", MultiSelect:=True)
        
If TypeName(strThisbook) = "Boolean" Then
        'MsgBox "Please select file(s)."
        Exit Sub
End If

Application.DisplayAlerts = False
For i = 1 To UBound(strThisbook)
        Set thisBook = Workbooks.Open(strThisbook(i))
        Application.ScreenUpdating = False
        For Each sh In thisBook.Worksheets
            If sh.Name <> "AA" Then
                sh.Delete
            Else
            If sh.Name <> "BB" Then
                sh.Delete
            Else
            If sh.Name <> "CC" Then
                sh.Delete
                        
            End If
        Next sh
        
        thisBook.Close True
Next i
Application.DisplayAlerts = True
End Sub

Code: Select all

Sub RoundedRectangle2_Click()

'Sub DeleteSheet()

Dim i As Integer, strThisbook As Variant

strThisbook = Application.GetOpenFilename(Filefilter:= _
 "All File (*.*), *.*", Title:="Please select source file(s).", MultiSelect:=True)
        
If TypeName(strThisbook) = "Boolean" Then
        'MsgBox "Please select file(s)."
        Exit Sub
End If

Application.DisplayAlerts = False
For i = 1 To UBound(strThisbook)
        Set thisBook = Workbooks.Open(strThisbook(i))
        Application.ScreenUpdating = False
        For Each sh In thisBook.Worksheets
            If sh.Name <> "AA" Or "BB" Or "CC" Then
                sh.Delete
                                  
            End If
        Next sh
        
        thisBook.Close True
Next i
Application.DisplayAlerts = True
End Sub

Code: Select all

'--Other code
For Each sh In thisBook.Worksheets
	if thisBook.Name = "Test 1.XLSX" Then
		If sh.Name <> "AA" Then
			sh.Delete
		End If
	Elseif thisBook.Name = "Test 2.XLSX" Then
		If sh.Name <> "BB" Then
			sh.Delete
		Else
	ElstIf thisBook.Name = "Test 3.XLSX" Then
		If sh.Name <> "CC" Then
			sh.Delete
		End If			
	End If
Next sh
'--Other code

Code: Select all

Sub RoundedRectangle2_Click()

'Sub DeleteSheet()

Dim i As Integer, strThisbook As Variant
Dim sh As Worksheet, thisBook As Workbook
Dim ob As Workbook

strThisbook = Application.GetOpenFilename(Filefilter:= _
 "All File (*.*), *.*", Title:="Please select source file(s).", MultiSelect:=True)
        
If TypeName(strThisbook) = "Boolean" Then
        'MsgBox "Please select file(s)."
        Exit Sub
End If

Application.DisplayAlerts = False
For i = 1 To UBound(strThisbook)
        Set thisBook = Workbooks.Open(strThisbook(i))
        Application.ScreenUpdating = False
        For Each sh In thisBook.Worksheets
 If thisBook.Name = "All file ,*.xlsx" Then
            If sh.Name <> "AA" Then
            sh.Delete
            End If
            
        ElseIf thisBook.Name = "All file ,*.xlsx" Then
            If sh.Name <> "BB" Then
                sh.Delete
            End If
         ElseIf thisBook.Name = "All file ,*.xlsx" Then
            If sh.Name <> "CC" Then
                sh.Delete
            End If
        End If

       Next sh
        thisBook.Close True
        
Next i
Application.DisplayAlerts = True
End Sub