Cách xuất một Sheet ra một Workbook mới chứa Sheet đó bằng VB (để lưu giữ file) (1 người xem)

[dohoa_69ks]

Xin ý kiến các đại ca lập trình !
chỉ dẫn cho cách xuất một Sheet ra một Workbook mới chứa Sheet đó bằng VB (để lưu giữ file)
Kèm theo đoạn mã code ...
Xin cám ơn trước rất nhiều ....
Gởi kèm file để các ĐC tham gia ý kiến
File được lập chưa được chuẩn do biết VB chậm quá (quá nặng ... nên fải xử lý dần ... mệt)
......Nhờ các anh, chị chỉ cách xuất Sheet " IN_XUAT_DL" ra một Workbook khác...
......đặt tên ...... lưu giữ ở một thư mục bkỳ càng tốt ......................................
Có đoạn mã Code sưu tầm được dùng trong file này để lấy dữ liệu từ một Sheet (Workbook) vào
một Sheet hiện hành của người dùng ..... xem ra cũng rất hiệu quả ....
Đoạn code sau :
Code cho phan mo file, chọn file để dán vào Sheet của người dùng
Doan code viet trong Module
Goi lenh copy_dât trong Boxe_text_code
Sub copy_data()
On Error Resume Next
Dim basebook As String
Dim mybook As Workbook
Dim fname As String
Dim Mypath As String
Application.ScreenUpdating = False
Mypath = Application.ActiveWorkbook.Path
basebook = ActiveWorkbook.Name
ChDrive Mypath
ChDir Mypath
fname = Application.GetOpenFilename(filefilter:="Execel files (*.xls), *.xls", Title:="Chon file nguon", MultiSelect:=False)
Set mybook = Workbooks.Open(fname)
mybook.Worksheets(1).Activate……………………………………xác định tên Sheet
' Vung chon de dan
Range("A1:J1").Select……………………………………………..xac dinh vung chuan bi dán
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows(basebook).Activate
' Chon Sheet de dan
Sheet1.Select
Range("A1").Select…………………………………………….vùng bđầu chọn
ActiveSheet.Paste
Range("A4").Select…………………………………………….vùng con trỏ dừng
Application.CutCopyMode = False
mybook.Close False
Application.ScreenUpdating = True
End Sub