?Code mở File va save as! (1 người xem)

[ThuNghi]

Nhờ các anh chị giúp viết hộ code như sau:
Tôi có 1 file TN01 (Số liệu tháng 1) và 1 file inso-2008 (trong này có code lấy dữ liệu và mẫu biểu in) 2 file này chung 1 folder.
1/Từ inso-2008, làm thế nào khi tôi muốn lấy dữ liệu, mở file TN01 thì nó sẽ đưa vào folder có chứa inso-2008
2/ Sau khi lấy DL xong thì save as thành inso-2008-01 và đóng file này lại.
Cám ơn nhiều!
Tôi mở File CodeSaveAs và lấy dữ liệu từ TN01...
- Làm sao khi mở là đưa ngay vào TM có những file trên
- Làm sao Save As File CodeSaveAs thành In01

===============================
Không ai help me cả. Cụ thể công việc là
Mở 1 file A, chạy lấy dữ liệu từ 1 file X vào A, sau đó save A thành 1 fie khác có tên là XA (có những module của A). Và mở lại fie A để lấy tiếp.
Xin cám ơn!

 

[voda]

ThuNghi thử thêm đoạn code sau:

            .........................................    
   SourceWb.Sheets("NK").Range("G5").Value = mName
   SourceWb.Sheets("NK").Range("A10:M" & endR).Value = Range("A10:M" & endR).Value
            End If
            TgtWb.Close
   [I]Name Fname(1) As myPath & "\" & wName
               Set Newbook = ThisWorkbook
   Newbook.SaveAs Filename:=myPath & "\" & "In" & mName[/I]
                   Sheets("NK").Select

 

[tedaynui]

@ Anh Thunghi :
Ví dụ dưới đây là dùng ADO để lấy dữ liệu từ 1 file đang đóng (theo em : nó chạy rất nhanh). Sau khi lấy dữ liệu xong thì công việc Save As em nghĩ là đơn giản với anh rồi.

Xin lỗi anh, anh chịu khó đọc tiếng Anh nha, hi hi
tham khảo từ Ron de Bruin
Thân
TDN

 

[ThuNghi]

@ Anh Thunghi :
Ví dụ dưới đây là dùng ADO để lấy dữ liệu từ 1 file đang đóng (theo em : nó chạy rất nhanh). Sau khi lấy dữ liệu xong thì công việc Save As em nghĩ là đơn giản với anh rồi.

Xin lỗi anh, anh chịu khó đọc tiếng Anh nha, hi hi
tham khảo từ Ron de Bruin
Thân
TDN

Giúp hộ cho trót luôn, Phước làm 1 code copy các sh NKC trong các Wb <> TongHop vào Sh NK trong TongHop. Copy vào dòng cuối nhé (Appen)
Cám ơn nhiều lắm!