Chuyển dữ liệu cho nhiều file (1 người xem)

[hdg2318]

Mình có tìm được đoạn code này trên mạng. Chức năng của nó là copy 1 vùng dữ liệu từ file này sang file khác (code ở file trung gian, không có dữ liệu).
Code này chỉ áp ụng được cho 1 file 1 thôi. Nhờ các bạn sửa giúp để có thể chạy cho nhiều file.
VD:
Folder 01: có 10 file với tên file dạng A001.xlsm, A002.xlsm....A010.xlsm
Folder 02: có 10 file tương ứng NA001~NA010.xlsm.

Mình cần chuyển dữ liệu từ 1 vùng xác định (VD vùng A1:L15) tại 1 sheet xác định (VD sheet có tên M1) từ các file trong folder 01 sang các file tương ứng trong folder 02.

Đây là code mình tìm được, mong các bạn giúp đỡ. Thanks!

Sub CopyIt()
    Dim wbCopy As Workbook
    Dim wbPaste As Workbook
     
    Application.ScreenUpdating = False
    Set wbCopy = Workbooks.Open("E:\Form\Test\01\Test.xlsm")
    Set wbPaste = Workbooks.Open("E:\Form\Test\02\NTest.xlsm")
    wbCopy.Sheets("M1").Range("A1:L15").Copy
    With wbPaste.Sheets("M2").Range("A10:L25")
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
    wbCopy.Close (False)
    wbPaste.Close (True)
    Application.ScreenUpdating = True
End Sub

 

[Hoàng Trọng Nghĩa]

Mình có tìm được đoạn code này trên mạng. Chức năng của nó là copy 1 vùng dữ liệu từ file này sang file khác (code ở file trung gian, không có dữ liệu).
Code này chỉ áp ụng được cho 1 file 1 thôi. Nhờ các bạn sửa giúp để có thể chạy cho nhiều file.
VD:
Folder 01: có 10 file với tên file dạng A001.xlsm, A002.xlsm....A010.xlsm
Folder 02: có 10 file tương ứng NA001~NA010.xlsm.

Mình cần chuyển dữ liệu từ 1 vùng xác định (VD vùng A1:L15) tại 1 sheet xác định (VD sheet có tên M1) từ các file trong folder 01 sang các file tương ứng trong folder 02.

Đây là code mình tìm được, mong các bạn giúp đỡ. Thanks!

Bạn thử dùng code này, đường dẫn do bạn đặt, còn thuật toán là thế này:

Sub CopyIt()
    Dim i As Integer
    Dim wbCopy As Workbook, wbPaste As Workbook
    Dim FileNameCopy As String, FileNamePaste As String
     
    Application.ScreenUpdating = False
    
    For i = 1 To 10
        FileNameCopy = "A" & Format(i, "000")
        FileNamePaste = "NA" & Format(i, "000")
        
        Set wbCopy = Workbooks.Open("E:\Form\Test\01\[COLOR=#ff0000]" & FileNameCopy & "[/COLOR].xlsm")
        Set wbPaste = Workbooks.Open("E:\Form\Test\02\[COLOR=#ff0000]" & FileNamePaste & "[/COLOR].xlsm")
        
        wbCopy.Sheets("M1").Range("A1:L15").Copy
        With wbPaste.Sheets("M2").Range("A10:L25")
            .PasteSpecial xlValues
            .PasteSpecial xlFormats
        End With
        wbCopy.Close (False)
        wbPaste.Close (True)
    Next
    Set wbCopy = Nothing
    Set wbPaste = Nothing
    
    Application.ScreenUpdating = True
End Sub

 

[hdg2318]

thank bạn. Code chạy tuơng đối. Có điều với mỗi cặp file copy, nó lại hiện thông báo như hình dưới. có cách nào để nó tự động chọn No hoặc không hiện lên không bạn?

 

[be_09]

Hoàng Trọng Nghĩa
đường dẫn do bạn đặt

Sinh nhật ndu, anh đặt đường dẫn như thế này, không biết code trên nó có chạy được không?

Dim Sinhnhat As Integer
Set Sinhnhat = be09("D:\Nhabe09\Denndu\taphop\Phao75.exe")

Nếu em thử code mà chạy được thì báo cho anh biết để tập họp lực lượng.

 

[Hoàng Trọng Nghĩa]

thank bạn. Code chạy tuơng đối. Có điều với mỗi cặp file copy, nó lại hiện thông báo như hình dưới. có cách nào để nó tự động chọn No hoặc không hiện lên không bạn?

Dưới Application trên đặt:
Application.DisplayAlert=False
Tương tự với cái dưới=True

 

[hdg2318]

Dưới Application trên đặt:
Application.DisplayAlert=False
Tương tự với cái dưới=True

không được bạn ơi. Nó báo lỗi ngay dòng

Application.DisplayAlert = False

object does't suppot this property or method

 

[Hoàng Trọng Nghĩa]

không được bạn ơi. Nó báo lỗi ngay dòng

Application.DisplayAlert = False

object does't suppot this property or method

DisplayAlerts bạn thêm s vào nhé, tôi trả lời bằng đt nên thiếu chữ.