Tạo workbook mới và copy sheet sang (1 người xem)

[nhatky@]

Em có file ví dụ muốn nhờ mọi người xem dùm cho em. Em muốn tạo mới 1 workbook mới và copy sheet ở wb hiện tại sang wb mới!
Nhờ mọi người tạo dùm em code này nhé!

 

[khoavu87]

Em có file ví dụ muốn nhờ mọi người xem dùm cho em. Em muốn tạo mới 1 workbook mới và copy sheet ở wb hiện tại sang wb mới!
Nhờ mọi người tạo dùm em code này nhé!

Bạn thử thế này xem sao?

Sub Thu()
 Application.Workbooks.Add
 Workbooks(2).Activate
ThisWorkbook.Sheets("AB").Range("a1:aa1000").Copy Worksheets("sheet1").Range("A1")
End Sub

- theo mình nên tạo một file với tên bất kỳ trước sau đó mở file đó lên Pase dữ liệu vào thì hay hơn. Ví dụ như:

Sub THU()
  On Error Resume Next
  Application.DisplayAlerts = False
  With Workbooks.Open(ThisWorkbook.Path & "\TENBANMUON.xls")
    ThisWorkbook.Sheets("AB").Range("A1:AA1000").Copy .Sheets(1).Range("A1")
    .Close True
  End With
  Application.DisplayAlerts = True
End Sub

 

[TrungChinhs]

Em có file ví dụ muốn nhờ mọi người xem dùm cho em. Em muốn tạo mới 1 workbook mới và copy sheet ở wb hiện tại sang wb mới!
Nhờ mọi người tạo dùm em code này nhé!

Bạn sửa code của bạn như thế này là được.

Sub Thu()
    Sheets("AB").Copy
End Sub