Chuyển dữ liệu từ file excel này sang file excel khác (cùng folder) trong VBA! (1 người xem)

[tellforever]

Hi các bạn,
Hiện tại mình đang dùng VBA để copy dữ liệu các file excel từ folder A ( Folder này chứa khoảng 50 file excel) sang 1 file excel tổng ở cùng folder A này ( file excel tổng chứa các range cố định từ 50 file excel kia) . Mình gặp 1 lỗi như thế này khi chạy Marco:

1. Nếu ở các file excel ở folder A KHÔNG CÓ thông Enable Content khi mở file, thì việc chạy VBA để export data từ các file excel nhỏ lẻ sang file excel tổng diễn ra hoàn toàn bình thường. Tuy nhiên đôi khi 10/50 file excel kia không export được data, mặc dù mình check thì file excel đó không khác gì các file còn lại. Mình phải vào file không export được, chỉnh tay ( paste value.... ) mình rõ chưa nguyên nhân, thì lại export ra được. *cái này mình nghĩ do mình sửa code bậy bạ*
2. Nếu 1/nhiều các file excel ở foler A CÓ HIỆN THÔNG BÁO Enable Content ( Anh 1), thì khi chạy Marco sẽ xuất hiện thông báo ( Anh 2):
View attachment 172643 Anh 1

View attachment 172644 Anh 2

Vấn đề: Lỗi thông báo này hiện lên, là đoạn code VBA sẽ không export được data từ bên Folder A sang file exlce tổng được Và phải tắt thông báo đó bằng tay ( rất là chi là mệt khi mình đang dùng code để chạy, mà chọn update thì vẫn không export được vào file excel B). Chỉ có thể export file excel nào không hiện thông báo Enabel Content mà thôi.


=> Chính vì vậy, mọi người ai đã từng bị lỗi này, thì fix như thế nào ạ ? ( vì có rất nhiều file excel ~ 50 file) thì không thế làm bằng tay được.

Link file demo mẫu: https://www.mediafire.com/?pwcxdu13u2kpc3p

**** Lỗi ở File excel ở name "File A4_Loi". Mình dùng file Tổng hợp, chạy run Macro, thì chỉ lấy dc dữ liệu ở File A1, File A2, File A3... còn file A4 thì k được.

- 1 số file đôi khi cũng không export ra được. Mình k biết file đó khác gì các file 1 2 3 ( k bi loi như file 4) hay không nhưng vẫn k epoxrt ra kết quả được. (cái này mình nghĩ code mình sửa bị sai gì đó). Cứ được cái này, lại bị sai lỗi khác

=> Nhờ các cao nhân hướng dẫn hoặc anh chị nào đã viết code hoàn chỉnh, cho em tham khảo được không ạ?

Em cảm ơn mọi người rất nhiều.
Chúc mọi người sức khỏe,

 

[chucuoi92]

Hi các bạn,
Hiện tại mình đang dùng VBA để copy dữ liệu các file excel từ folder A ( Folder này chứa khoảng 50 file excel) sang 1 file excel tổng ở cùng folder A này ( file excel tổng chứa các range cố định từ 50 file excel kia) . Mình gặp 1 lỗi như thế này khi chạy Marco:

1. Nếu ở các file excel ở folder A KHÔNG CÓ thông Enable Content khi mở file, thì việc chạy VBA để export data từ các file excel nhỏ lẻ sang file excel tổng diễn ra hoàn toàn bình thường. Tuy nhiên đôi khi 10/50 file excel kia không export được data, mặc dù mình check thì file excel đó không khác gì các file còn lại. Mình phải vào file không export được, chỉnh tay ( paste value.... ) mình rõ chưa nguyên nhân, thì lại export ra được. *cái này mình nghĩ do mình sửa code bậy bạ*
2. Nếu 1/nhiều các file excel ở foler A CÓ HIỆN THÔNG BÁO Enable Content ( Anh 1), thì khi chạy Marco sẽ xuất hiện thông báo ( Anh 2):
View attachment 172643 Anh 1

View attachment 172644 Anh 2

Vấn đề: Lỗi thông báo này hiện lên, là đoạn code VBA sẽ không export được data từ bên Folder A sang file exlce tổng được Và phải tắt thông báo đó bằng tay ( rất là chi là mệt khi mình đang dùng code để chạy, mà chọn update thì vẫn không export được vào file excel B). Chỉ có thể export file excel nào không hiện thông báo Enabel Content mà thôi.


=> Chính vì vậy, mọi người ai đã từng bị lỗi này, thì fix như thế nào ạ ? ( vì có rất nhiều file excel ~ 50 file) thì không thế làm bằng tay được.

Link file demo mẫu: https://www.mediafire.com/?pwcxdu13u2kpc3p

**** Lỗi ở File excel ở name "File A4_Loi". Mình dùng file Tổng hợp, chạy run Macro, thì chỉ lấy dc dữ liệu ở File A1, File A2, File A3... còn file A4 thì k được.

- 1 số file đôi khi cũng không export ra được. Mình k biết file đó khác gì các file 1 2 3 ( k bi loi như file 4) hay không nhưng vẫn k epoxrt ra kết quả được. (cái này mình nghĩ code mình sửa bị sai gì đó). Cứ được cái này, lại bị sai lỗi khác

=> Nhờ các cao nhân hướng dẫn hoặc anh chị nào đã viết code hoàn chỉnh, cho em tham khảo được không ạ?

Em cảm ơn mọi người rất nhiều.
Chúc mọi người sức khỏe,

Không phải lỗi gì cả mà điều kiện không thỏa mãn (điều kiện là ô A1 của các "file A1"..."File A4_Loi" là <>0

                  If Wkb.Sheets(1).Range("A1").Value = 0 Then
                  Else
                      Set CopyRng = Wkb.Sheets("Sheet").Range("GZ3:HM9")
                      Set Dest = shtDest.Range("C" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 2)
                      CopyRng.Copy Dest
                  End If

Bạn điền số số gì đó vào File A4_Loi" ô A1 rồi chạy lại code xem.

 

[Gió Đông]

xem tại đây
http://www.giaiphapexcel.com/forum/...sang-excel-khác-trong-VBA&p=769869#post769869

Mở quá 1 đề tài giống nhau?
Đề nghị mọi người không trả lời , thực hiện nội quy

 

[tellforever]

xem tại đây
http://www.giaiphapexcel.com/forum/...sang-excel-khác-trong-VBA&p=769869#post769869

Mở quá 1 đề tài giống nhau?
Đề nghị mọi người không trả lời , thực hiện nội quy

Em tưởng post nhầm topic Sorry anh, Bên kia em k đính kèm được link tag, nên viết lại.
Em xóa post mà không được . Anh có thể remove được không ạ ?

Em cảm ơn anh

 

[Gió Đông]

Em tưởng post nhầm topic Sorry anh, Bên kia em k đính kèm được link tag, nên viết lại.
Em xóa post mà không được . Anh có thể remove được không ạ ?

Em cảm ơn anh

Yêu cầu Ban quản trị đi, tôi cũng là thành viên như bạn, họ hạn chế đủ thứ.
Đình file kèm thì bấm vào "Đổi sang khung lớn" ở góc phải-dưới của khung soạn bài

 

[tellforever]

Không phải lỗi gì cả mà điều kiện không thỏa mãn (điều kiện là ô A1 của các "file A1"..."File A4_Loi" là <>0

                  If Wkb.Sheets(1).Range("A1").Value = 0 Then
                  Else
                      Set CopyRng = Wkb.Sheets("Sheet").Range("GZ3:HM9")
                      Set Dest = shtDest.Range("C" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 2)
                      CopyRng.Copy Dest
                  End If

Bạn điền số số gì đó vào File A4_Loi" ô A1 rồi chạy lại code xem.

vậy lỗi hiện thông báo update thì như nào bạn nhỉ ?
2. Mình đã thử cách điền ô A1, và vẫn có file không xuất được report ra ạ cách đó chưa khả thi lắm ạ.

 

[tellforever]

Yêu cầu Ban quản trị đi, tôi cũng là thành viên như bạn, họ hạn chế đủ thứ.
Đình file kèm thì bấm vào "Đổi sang khung lớn" ở góc phải-dưới của khung soạn bài

Oke bạn, mình request ban quản trị remove bài bên kia.
Cảm ơn bạn đã nhắc, mình đã biết cách add file.
@ Cách bạn hướng dẫn mình bên post kia, mình đã thử, và vẫn bị báo lỗi update. Mình có gửi các file excel.

 

[Gió Đông]

Oke bạn, mình request ban quản trị remove bài bên kia.
Cảm ơn bạn đã nhắc, mình đã biết cách add file.
@ Cách bạn hướng dẫn mình bên post kia, mình đã thử, và vẫn bị báo lỗi update. Mình có gửi các file excel.

Bổ sung đoạn chữ đỏ vào dòng lệnh sau trong Sub Test_Media....

Set Wkb = Workbooks.Open(Filename:=path & "" & Filename, UpdateLinks:=0)

Thử xem có được không,

Nếu còn có file dính lỗi update nữa, thì bổ sung thêm code hôm qua tôi viết bên topic bên kia vào..., còn không thì cứ thế mà dùng

Phản hồi kết quả, và hỏi thêm (nếu có)

 

[tellforever]

Bổ sung đoạn chữ đỏ vào dòng lệnh sau trong Sub Test_Media....

Set Wkb = Workbooks.Open(Filename:=path & "" & Filename, UpdateLinks:=0)

Thử xem có được không,

Nếu còn có file dính lỗi update nữa, thì bổ sung thêm code hôm qua tôi viết bên topic bên kia vào..., còn không thì cứ thế mà dùng

Phản hồi kết quả, và hỏi thêm (nếu có)

Cảm ơn bạn, mình đã fix được lỗi đó. Nhờ bạn mình vượt được lỗi đóooo...
Có thêm phát sinh lỗi nào lạ, sẽ nhờ bạn/ mọi người giúp đỡ ạ. Chúc bạn sức khỏe.