Tối ưu hóa đoạn code chuyển dữ liệu .

[khoa140383]

Chào cả nhà !!! Chúc cả nhà có một ngày tốt lành.

Cho em hỏi là mình có thể tối ưu hóa đoạn code bên dưới không ???

Option Explicit
Sub updata()

Application.ScreenUpdating = False
Dim arr, i, ii
i = Timer
arr = Sheet1.Range("A1", "AI65500")

With Workbooks.Open(ThisWorkbook.Path & "\" & [A1].Value & ".xls")
Sheets("sheet1").Range("A1", "AI65500").ClearContents
Sheets("sheet1").Range("A1", "AI65500") = arr
.Close (True)
End With

ii = Timer
Application.ScreenUpdating = True
MsgBox ("Total time : " & ii - i)

End Sub

Vốn là em muốn truyền dữ liệu từ book đang mở sang book đóng, nhưng vật lộn mãi với ADO cũng không ra, tìm trên mạng thì chưa thấy. Hiện nay giải pháp của em là :

+ Tạo 1 book Main và 1 book data
+ Khi mở book Main thì Main lấy dữ liệu từ data ( đã làm được, dùng ADO )
+ Khi chỉnh sữa thì chỉnh sữa trực tiếp trên Main
+ Khi đóng Main thì dùng đoạn code này chuyển dữ liệu từ Main vào data

Cả nhà xem lại dùm em coi có cách nào tối ưu đoạn code trên không ? Hoặc là có phương pháp gì khác nhanh hơn không nha !!!

Thanks...
Have a nice day !!!!