Ghi macro và sử dụng được 1 lần, lần 2 trở đi không được

[thaibao3]

Chào mọi người
Mình có ghi một macro mở một file excel mới và copy 2 sheet trong file nguồn sang file vừa mở mới, sau đó lưu và đóng lại.
Tuy nhiên, macro này chỉ mở lên làm 1 lần thì ok, lần 2 nó ko còn là Book1 nữa nên báo lỗi.
Nhờ mọi người sửa giúp hoặc sửa lại macro gọn đẹp hơn
cảm ơn!

Sub Macro1()
'
' Macro1 Macro
'

'
    Workbooks.Add
    Windows("Nguon.xlsm").Activate
    ActiveWindow.SmallScroll Down:=-3
    Range("A1:L24").Select
    Selection.Copy
    Windows("Book1").Activate
    ActiveSheet.Paste
    Windows("Nguon.xlsm").Activate
    Sheets("Sheet2").Select
    Range("A1:L23").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Book1").Activate
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\Temp"
    ActiveWorkbook.SaveAs Filename:="C:\Temp\Baocao.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

 

[BuiQuangThuan]

Chào mọi người
Mình có ghi một macro mở một file excel mới và copy 2 sheet trong file nguồn sang file vừa mở mới, sau đó lưu và đóng lại.
Tuy nhiên, macro này chỉ mở lên làm 1 lần thì ok, lần 2 nó ko còn là Book1 nữa nên báo lỗi.
Nhờ mọi người sửa giúp hoặc sửa lại macro gọn đẹp hơn
cảm ơn!

Sub Macro1()
'
' Macro1 Macro
'

'
    Workbooks.Add
    Windows("Nguon.xlsm").Activate
    ActiveWindow.SmallScroll Down:=-3
    Range("A1:L24").Select
    Selection.Copy
    Windows("Book1").Activate
    ActiveSheet.Paste
    Windows("Nguon.xlsm").Activate
    Sheets("Sheet2").Select
    Range("A1:L23").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Book1").Activate
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\Temp"
    ActiveWorkbook.SaveAs Filename:="C:\Temp\Baocao.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

nếu copy thế này thì thà bạn lưu cái cả cái file này thành 1 file mới cho rồi

 

[thaibao3]

nếu copy thế này thì thà bạn lưu cái cả cái file này thành 1 file mới cho rồi

Không phải vậy đâu bạn, mình muốn từ đây để học cách xuất ra một phần của file thôi