Mở file, Cập nhật và Save file tự động (1 người xem)

[ninhhv90]

Hi mọi người,

Mình đang có nhiều file excel nguồn, mà mở từng file lên để bấm cập nhật thì lâu quá, mình đang có ý định có ứng dụng bằng vba trên excel khi mình yêu cầu cập nhật thì mở từng file để update, rồi save lại. Tìm mãi ở diễn đàn hk thấy , bác nào có xem qua lần nào chỉ mình với nhé. Thank all, Goodnight.

 

[nttcntn]

Cập nhật là cập nhật thế nào hả bạn?

 

[ninhhv90]

À, là nút Refresh All ý bạn. Mình có gắn mấy cái connect trong đó để khi cần Update thì mình Refresh lại.

 

[nttcntn]

Bạn cho file ví dụ lên xem nào

 

[ninhhv90]

Bạn cho file ví dụ lên xem nào

Bạn xem giúp mình nhé!

 

[nttcntn]

Bạn xem giúp mình nhé!

Bạn xem thế này được chưa

 

[andredat]

Hình như chưa hiểu ý của bạn lắm. Nhưng thấy trên diễn đàn thường dùng pivot table cho dạng này. Lúc đó sử dụng nút refresh all là ok.

 

[nttcntn]

Đoạn code này
St = Fso.GetAbsolutePathName(ObjFile.name)
bạn sửa thành
St = Fso.GetAbsolutePathName(ObjFile)

 

[ninhhv90]

Hi bạn, kiểu như là lấy từng file trong thư mục, mở lên mà chạy refresh all, sau đó save, đóng lại. Mình có thay đổi các giá trị cũ trong DATA, sau đó bấm cập nhật mới lại, nhưng dữ liệu không thay đổi. Hk bik như thế nào? Bạn check lại giúp mình nhé, mang ơn bạn nhiều lắm.

 

[ninhhv90]

Đoạn code này
St = Fso.GetAbsolutePathName(ObjFile.name)
bạn sửa thành
St = Fso.GetAbsolutePathName(ObjFile)

Không thấy cập nhật lại mới bạn ơi.

 

[nttcntn]

Không thấy cập nhật lại mới bạn ơi.

Bạn lấy dữ liệu từ trên web xuống. nếu web có dữ liệu mới thì file của mình mới thay đổi chứ

 

[ninhhv90]

Bạn lấy dữ liệu từ trên web xuống. nếu web có dữ liệu mới thì file của mình mới thay đổi chứ

Mình hiểu, mình muốn test thử nó có update lại hay không, nên mình thay đổi dữ liệu file hiện tại ý, nếu bấm Cập nhật mới lại thì dữ liệu mình mới thay đổi sẽ thay thế bằng data trên mạng.

 

[nttcntn]

Gửi bạn mình đã test, thấy cập nhật rồi đó

 

[ninhhv90]

Tuyệt cú mèo luôn. Giờ data chạy tốt rồi. Cảm ơn bạn rất nhiều. Chúc bạn ngủ ngon nhé!

 

[ninhhv90]

Bạn ơi, đoạn này là sao vậy nhỉ?

wb.ActiveSheet.Range("a1").QueryTable.Refresh BackgroundQuery:=False

Có link mình dùng bằng cách Query như hình đính kèm, thì có lỗi trên. Bạn xem giúp mình thử nhé!

 

[nttcntn]

Bạn ơi, đoạn này là sao vậy nhỉ?

wb.ActiveSheet.Range("a1").QueryTable.Refresh BackgroundQuery:=False

Có link mình dùng bằng cách Query như hình đính kèm, thì có lỗi trên. Bạn xem giúp mình thử nhé!

Dòng code đó là mình bỏ tích Reresh BackgroundQuery (hình đính kèm).
Mình cũng không hiểu về ADO lắm, theo mình để không phải nghĩ thêm bạn xóa dòng trên trên đi và mở các file cần update lên 1 lượt bỏ tích Reresh BackgroundQuery thủ công 1 lần là ok, sau đó dùng code bình thường.

 

[ninhhv90]

Ok rồi bạn, chịu khó sửa chỗ này tý cũng ổn rồi. Cảm ơn bạn nhiều.