Excel Forum

Code: Select all

'---Other code
For Each sh In thisBook.Worksheets
    sh.UsedRange.Copy
    With ob.Sheets(sh.Name)
        .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End With
    'rRow = ob.Sheets(1).UsedRange.Rows.Count + 1 '¶éÒ +2 ¨Ðä´éÂÍ´ Total ÂÍ´ÊØ´·éÒÂÁÒ´éÇÂ
    Application.CutCopyMode = False
Next sh
'---Other code

Code: Select all

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 <> "Sheet1" Then
                sh.Delete
            End If
        Next sh
        thisBook.Close True
Next i
Application.DisplayAlerts = True