Chọn vùng chuyển dữ liệu vào file đang đóng bằng ADO (1 người xem)

[Lê Hồng Minh83]

Chào các thành viên diễn đàn
em đang ngâm cứu vấn đề ghi dữ liệu vào các file đang đóng bằng ADO, có một số giải pháp nhưng thấy chưa tối ưu lắm
Trong ví dụ của file đính kèm đang là cách copy từng ô từ file Nguồn sang file Báo cáo (đang đóng)

Sub Test1()
    Dim ado As Object
    Set ado = CreateObject("ADODB.Connection")
    ado.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""" _
                        & ThisWorkbook.Path & "\Bao cao.xlsx" & """;Extended Properties=""Excel 12.0;HDR=No"";")
    ado.Execute "UPDATE [F1$C2:C2] SET F1 = '" & Sheet1.[C2] & "'"
    ado.Execute "UPDATE [F1$D2:D2] SET F1 = '" & Sheet1.[D2] & "'"
    ado.Close

End Sub

Có cách nào để chuyển tất cả dữ liệu sheet F1 của file Nguồn sang sheet F1 file Báo cáo không ạ?
Em cảm ơn nhiều!