Error: "Run-time error 9. Subcript out of range" in Excel 2010

[changngoc]

Cho mình hỏi:
Đoạn code bên dưới là copy từ 1 sheet của một file excel này sang file excel khác (sheet chitiet của file chitiet.xls). Anh QuangHai trên diễn đàn test ok. Nhưng máy mình sd Office 2010 thì cứ báo lỗi: "Run-time error 9. Subcript out of range"
Nhờ các AE fix để tương thích với Excel 2010 giúp mình. Thanks.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Set Sh = Sheets("tonghop")
Set data = Range([A2], [AM65000].End(3))
Workbooks.Open ThisWorkbook.Path & "\CHITIET.XLS"
Workbooks("CHITIET").Sheets("CHITIET").[A1:AM10000].Clear
data.Copy Workbooks("CHITIET").Sheets("CHITIET").[A1]
End Sub

 

[thanhlanh]

Cho mình hỏi:
Đoạn code bên dưới là copy từ 1 sheet của một file excel này sang file excel khác (sheet chitiet của file chitiet.xls). Anh QuangHai trên diễn đàn test ok. Nhưng máy mình sd Office 2010 thì cứ báo lỗi: "Run-time error 9. Subcript out of range"
Nhờ các AE fix để tương thích với Excel 2010 giúp mình. Thanks.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Set Sh = Sheets("tonghop")
Set data = Range([A2], [AM65000].End(3))
Workbooks.Open ThisWorkbook.Path & "\CHITIET.XLS"
Workbooks("CHITIET").Sheets("CHITIET").[A1:AM10000].Clear
data.Copy Workbooks("CHITIET").Sheets("CHITIET").[A1]
End Sub

- Mình không dùng 2010 nhưng mình nghĩ bạn phải save as lại tập tin xls thành xlsm bằng thủ công hoặc dùng code.
- Khi muốn chỉ định một tập tin bạn phải ghi đầy đủ phần mở rông, Chẳng hạn:

Workbooks("CHITIET.xls").Sheets("CHITIET").[A1:AM10000].Clear

Hoặc:

Workbooks("CHITIET.xlsm").Sheets("CHITIET").[A1:AM10000].Clear

 

[changngoc]

Cảm ơn ban. Mình sửa lại thì đã chạy tốt.