lỗi run time 1004

[thangexcel]

các bác giúp em với, em mới học VBA!
Em có 2 file excel (e1 và e2 - chỉ có 1 sheet). trên file e1 có nút lệnh LUU với đoạn mã sauEm muốn copy toàn bộ cell trên file e1 qua file e2 chưa mở)
khi bấm nút LUU thì báo lỗi run-time error 1004: Select menthod of Range class failed

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="D:\e2.xls"
Windows("e1.xls").Activate
Sheet1.Select
Cells.Select
Selection.Copy
Windows("e2.xls").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub

 

[SoiBien]

Bạn cần để đoạn code này trong module, rồi trong sự kiện click của buttong này, bạn call sub trên

Private Sub CommandButton1_Click()
    luu
End Sub

[color=darkblue]Sub[/color] luu()
    Workbooks.Open Filename:="D:\e2.xls"
    Windows("e1.xls").Activate
    Sheet1.Select
    Cells.Select
    Selection.Copy
    Windows("e2.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[thangexcel]

Tui làm được rồi, Cảm ơn bác SoiBien nhieu nha.