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!
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!
Mã:
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