TỔNG HỢP SỐ LIỆU BẰNG MARCO 4 BỊ LỖI (1 người xem)

[bth8320]

Chào cả nhà.

Mình có vấn đề này cần nhờ cả nhà giúp.
Mình muốn tổng hợp số liệu từ các book 1~9 vào file TONGHOP.
Tham khảo trên diễn đàn mình thấy sử dụng marco4 giải quyết được vấn đề này.
Mình đã giải quyết được việc lấy dữ liệu ở cell A1 vào file tổng hợp(Button 1).

Vấn đề nảy sinh là khi mình muốn đếm tổng các số ở cột A của từng file(Button 2). và đưa vào cột D.
Lúc này kết quả trả về 1 trong khi thực tế trong từng file(Book1~9) là khác 1,
Code1:
For i = 2 To j + 1
strPath = Range("A" & i)
strFile = Range("B" & i)
strSheet = "Sheet1"
strRng = [a1]
strRef = "'" & strPath & "[" & strFile & "]" & strSheet & "'!" & Range(strRng).Address(, , 2)
Range("D" & i) = ExecuteExcel4Macro("COUNTA(strRef)")

Mình đã tham khảo thêm trên Stack Overflow thì code đếm tổng tương tư(Chỉ áp dụng cho từng sheet) thì kết quả lại đúng:
Code2:
Range("e" & i) = ExecuteExcel4Macro("COUNTA('C:\Users\Administrator\Desktop\New folder\[ Book1.xlsx ]Sheet1'!R1C1:R1000C1)").

Nhờ cả nhà xử lý giúp mình code 1 với.
Chi tiết xin xem file đính kèm

Trân trọng.