Xin chỉ mình cách lưu nhiều workbook trong 1 file

[tocbac]

xin chỉ mình cách lưu nhiều workbook trong 1 file thôi, khi mình mở file này thì nó có đồng thời nhiều workbook( cái này tương tự như worksapce vậy , nhưng sworkspace nó lại bắt mình lưu riêng những workbook) mình muốn nhiều workbook lưu trong 1 file thôi. Nhờ các cao thủ chỉ giúp.

 

[nvson]

Bạn thử đoạn code sau:

Sub Copy_All_Sheet()
'Copy tat ca cac sheet trong cac workbook duoc mo vao workbook hien hanh
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim basebook As Workbook
Dim book_i As Workbook
Dim sht As Worksheet
Set basebook = ActiveWorkbook
For Each book_i In Workbooks
    If book_i.Name <> basebook.Name Then
        book_i.Activate
        Sheets.Select
        Sheets.Copy after:=basebook.Sheets([COLOR=red]1[/COLOR])
    End If
Next book_i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub