Nhờ chuyển Code sang OF 2007 (1 người xem)

[kieuhuy_bmt]

Tôi được bác Sealand giúp đỡ chạy code "tổng hợp dữ liệu" từ những sheet bên ngoài nhập vào 1 file khác và trong file ấy xuất sang bảng tổng hợp. Tuy nhiên code chỉ chạy được ở excel 2003. Do kg có nghề nên nhờ các anh chị giúp đỡ chuyển code ấy sang OF 2007.
Kính mong mọi người (xem File) và giúp đỡ.

 

[tintam7251]

Bạn xem thử file đã chuyển

 

[kieuhuy_bmt]

Cảm ơn Bác Tintam7251

Bác kiểm tra lại giúp. Về mình chạy lại trên Excel 2007 vẫn kg đc.

 

[hoangvuluan]

Bạn thay dòng:
If FileItem.Type = "Microsoft Excel 97-2003 Worksheet" Then
trong Sub ThopDT()
thành:
If FileItem.Type = "Microsoft Office Excel 97-2003 Worksheet" Then

(tôi chạy debug thì thấy kiểu file nó có tên như thế)

do đó để đảm bảo an toàn, có thể thay thành:
If InStr(FileItem.Type, "Excel 97-2003 Worksheet") Then

 

[kieuhuy_bmt]

Bạn thay dòng:
If FileItem.Type = "Microsoft Excel 97-2003 Worksheet" Then
trong Sub ThopDT()
thành:
If FileItem.Type = "Microsoft Office Excel 97-2003 Worksheet" Then

(tôi chạy debug thì thấy kiểu file nó có tên như thế)

do đó để đảm bảo an toàn, có thể thay thành:
If InStr(FileItem.Type, "Excel 97-2003 Worksheet") Then

Cãm ơn bác Luan. sau khi thực hiện theo hướng dẫn của bác nó báo lỗi này. Hình như bộ Of 2007 của tôi có vấn đề. Vậy nhờ các bác xem đó là gì, sửa ra sao. Có bác nào chạy được trên OF 2007 cho tôi biết với nha.

 

[tintam7251]

-Bạn phải enable macro bằng cách: Vào Excel Options, chọn mục Trust Center và bấm vào Trust Center Settings.Trong cửa số Trust Center, bấm vào mục Macro Settings, check vào mục Enable All macros.
-Sau đó đóng file và mở lại, macro sẽ chạy.
(file mình gởi cho bạn vẫn chạy bình thường)

 

[kieuhuy_bmt]

cảm ơn mọi người!

Khi mở File tôi đã làm động tác trên nhưng quên không thoát ra, mở lại. Bây giờ thì chạy tốt rồi bác ơi. Cảm ơn các bác và cho tôi hỏi thêm!
Muốn thêm 2 cột "tâm X", "tâm Y" bên File nguồn vào File tong hop_bao cao thì sửa Code thế nào (ở bên File nguồn hai cột này có số cột là 4 và 6), các bác xem File