Tổng cộng số liệu nhiều file giống nhau vào một file tổng

[thtanhoab]

Chào anh chị, em có file số liệu của nhiều xã muốn tổng cộng vào một file tổng của huyện bằng VBA ( file xã và huyện cùng một mẫu). Nhờ anh chị chỉ dùm ạ.

 

[keyeutien]

1 huyện cũng 10 hộ y chang 1 xã là sao bạn?

 

[BuiQuangThuan]

1 huyện cũng 10 hộ y chang 1 xã là sao bạn?

Khả năng cao là dữ liệu demo nó vậy anh ạ

 

[thtanhoab]

Mình gửi lại file nhờ anh chị chỉ dùm với nhé. Một xã một file riêng và muốn tự động cộng vào file huyện mà không phải mở file xã. Trân trọng cảm ơn các anh chị

 

[snow25]

Mình gửi lại file nhờ anh chị chỉ dùm với nhé. Một xã một file riêng và muốn tự động cộng vào file huyện mà không phải mở file xã. Trân trọng cảm ơn các anh chị

Không mở lấy đâu dữ liệu vậy bạn.

 

[thtanhoab]

ý minh la không phải mở để công số liệu từng file, chỉ mở chon file của các xã dữ liệu tự động cộng vào file huyện là được. Mình lại không biết làm VBA

 

[VetMini]

ý minh la không phải mở để công số liệu từng file, chỉ mở chon file của các xã dữ liệu tự động cộng vào file huyện là được. Mình lại không biết làm VBA

Có 10 xã, chỉ chọn 7 thì làm sao biết là sót 3?

 

[keyeutien]

ý minh la không phải mở để công số liệu từng file, chỉ mở chon file của các xã dữ liệu tự động cộng vào file huyện là được. Mình lại không biết làm VBA

Bỏ file vào thư mục các xã, sẽ tự lấy tổng tất cả các file có sheet XA trong thư mục đó, bạn thích mở chọn từng file thì dùng Application.GetOpenFilename

 

[thtanhoab]

Cảm ơn bạn rất nhiều!

 

[khieukienag]

Cảm ơn bạn rất nhiều!

Tôi làm thử file của keyeutien thì số liệu của xã D đã được nhân 2 trước khi cộng cùng 3 xã kia đó bạn.

 

[thtanhoab]

Cảm ơn bạn nhiều! để mình kiểm tra thử coi sao.

Bài đã được tự động gộp: 14/4/20

Mình kiểm tra lại rồi, ra số chính xác mà bạn!

 

[khieukienag]

Mình kiểm tra lại rồi, ra số chính xác mà bạn!

Mừng lắm khi có được người giúp cộng các file như bạn. Nhưng đưa số liều vào cộng thử thì chưa thành công lắm. Không biết do đâu. Gửi bạn các file đã có số liệu.

 

[keyeutien]

Mừng lắm khi có được người giúp cộng các file như bạn. Nhưng đưa số liều vào cộng thử thì chưa thành công lắm. Không biết do đâu. Gửi bạn các file đã có số liệu.

Sorry đọc mấy trả lời của bạn thì mình biết lỗi ở đâu nhưng do đang dùng điện thoại không sửa file được nên bạn tự làm nha. Do khi mở file huyen sẽ có file rác của nó nên câu lệnh resume next tiếp tục thực hiện cộng 1 lần nữa.Bạn chỉnh lại on error resume next thành on error goto getout rồi thêm getout: trước end sub hoặc dời lệnh tRes.Clearcontents lên trước Next lFile

 

[khieukienag]

Sorry đọc mấy trả lời của bạn thì mình biết lỗi ở đâu ..... dời lệnh tRes.Clearcontents lên trước Next lFile

Làm theo bạn, tôi đã dời lệnh tRes.Clearcontents lên trước ...và đã thành công. Xin cảm ơn bạn đã nhiệt tình giúp đỡ.