Copy dữ liệu từ Sheet sang file excel mới

[quang118]

Xin chào các bạn!
Nhờ các bạn giúp mình, mình muốn tạo chương trình copy dữ liệu toàn trang tính từ Sheet 2, sau đó chương trình sẽ tạo file excel mới rồi dán vào đó luôn định dạng vẫn giữ nguyên không thay đổi so với Sheet 2. Đặt tên vào lưu ra màn hình Desktop là "File_moi"
File của minh họa của mình đi kèm ạ. Xin cảm ơn các cao thủ

 

[bin.vcsc]

Gửi Quang118, bạn có thể dùng "Record Macro" để thao tác theo mong muốn của ban.

Bạn có thể sửa lại đường dẫn bên dưới để lưu vào màn hình của máy bạn nhé.

Sub Create_file()

Sheets("Sheet2").Select
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Users\Desktop" ' Sua lai duong dan
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Desktop\File_Moi.xlsx", FileFormat:=xlOpenXMLWorkbook _
, CreateBackup:=False
ActiveWindow.Close

End Sub

 

[quang118]

Vâng cảm ơn bạn