Cần cứu Vba Thực hiện thao tác nhiều file trong cùng Folder, xin cảm ơn

[locbanh]

Hi chào các Anh chị

Việc hằng ngày của em cứ lặp đi lặp lại nên em tính nhờ các anh chị, chỉ em 1 vba để công việc được nhẹ nhang hơn, nội dung như sau:

Hằng ngày KH gửi em 3 folder (x, y,z ):
+ Folder X (gồm n file excel và n file khác ko phải excel) -> em chị lấy excel nó ra và chạy đoạn code này

Application.DisplayAlerts = False
Cells.Select
ActiveSheet.Unprotect
With Selection
.WrapText = False
End With
range("C16").Select
ActiveWorkbook.Save
Application.DisplayAlerts = True

* nếu có 20 file em phải làm 20 lần -> các anh chị giúp em đoạn code chỉ cần chon folder X nó sẽ thực hiện giúp e, sau khi làm xong sẽ đổi tên folder X thành ngày tháng hiên tại theo kiểu ( dddd-mm-dd) vd: hôm nay thì sẽ là 2021-04-06

+ Folder Y và Folder Z
Em cần 1 file excel ô A1 và A2 để chứa đường dẫn, và 2 nút để chay macro:
Nút thứ 1 sẽ lây khi nhấn vào sẽ brower thư mục cho mình chọn folder nó sẽ cắt nguyên foleder đến đường dẫn A1 và đổi tên là ( dddd-mm-dd) ngày hiện tại
Nút thứ 2 tương tự những sẽ là đường dẫn A2

Em xin cám ơn các anh chị nhiều.

 

[befaint]

"Cần cứu"

Gọi 115 may ra kịp.

Folder Y và Folder X

File z mất tích rồi.

và 2 nút

Vẽ đại hai hình gì là được rồi.

 

[VetMini]

Công việc có vài chục files cũng ngại.
Cớ vài chục files, vài folders tôi làm tay hết. Cốt kiếc gì đó, chỉ riêng kiểm lại lúc chạy có gì trắc trở (chạy sai, bỏ sót...) cũng mất ngần ấy công.
Hay là người ta cho rằng có cốt chạy đúng một hai lần rồi, về sau cứ việc "bấm nút" khỏi cần xem lại gì nữa?

 

[locbanh]

"Cần cứu"

Gọi 115 may ra kịp.



File z mất tích rồi.


Vẽ đại hai hình gì là được rồi.

BẠN VUI TÍNH NHỠ, NÚT THỨ 2 LÀ LÀM CHO Z ĐÓ , HIHIHIH

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

Công việc có vài chục files cũng ngại.
Cớ vài chục files, vài folders tôi làm tay hết. Cốt kiếc gì đó, chỉ riêng kiểm lại lúc chạy có gì trắc trở (chạy sai, bỏ sót...) cũng mất ngần ấy công.
Hay là người ta cho rằng có cốt chạy đúng một hai lần rồi, về sau cứ việc "bấm nút" khỏi cần xem lại gì nữa?

Nói ra là biết bạn rất siêng,
mình nói 20 file là khiêm tốn đó. hihih

 

[Maika8008]

...
+ Folder X (gồm n file excel và n file khác ko phải excel) -> em chị lấy excel nó ra và chạy đoạn code này

Application.DisplayAlerts = False
Cells.Select
ActiveSheet.Unprotect
With Selection
.WrapText = False
End With
range("C16").Select
ActiveWorkbook.Save
Application.DisplayAlerts = True

* nếu có 20 file em phải làm 20 lần -> các anh chị giúp em đoạn code chỉ cần chon folder X nó sẽ thực hiện giúp e, sau khi làm xong sẽ đổi tên folder X thành ngày tháng hiên tại theo kiểu ( dddd-mm-dd) vd: hôm nay thì sẽ là 2021-04-06

Bạn chạy file đính kèm (file này nằm khác đường dẫn với folder X nhé), bấm nút chạy lệnh, chọn folderX để thực hiện các yêu cầu như trích dẫn bên trên.

 

[VetMini]

...

Nói ra là biết bạn rất siêng,
mình nói 20 file là khiêm tốn đó. hihih

Tôi siêng mà kỹ nữa. Tôi vết tiếng Anh rất ít khi bị sai chính tả, nhất là tên các sản phẩm.

 

[Maika8008]

Công việc có vài chục files cũng ngại.
Cớ vài chục files, vài folders tôi làm tay hết. Cốt kiếc gì đó, chỉ riêng kiểm lại lúc chạy có gì trắc trở (chạy sai, bỏ sót...) cũng mất ngần ấy công.
Hay là người ta cho rằng có cốt chạy đúng một hai lần rồi, về sau cứ việc "bấm nút" khỏi cần xem lại gì nữa?

Thực ra mở 1 file ra làm chỉ có 2 thao tác
ActiveSheet.Unprotect
Cells.WrapText = False
nên tôi nghĩ khi chạy bất kỳ file nào cũng không có gì trắc trở (tất nhiên trừ trường hợp Protect sheet có mật khẩu, nhưng với tình huống cụ thể này thì không có mật khẩu)

 

[VetMini]

Thực ra mở 1 file ra làm chỉ có 2 thao tác
ActiveSheet.Unprotect
Cells.WrapText = False
nên tôi nghĩ khi chạy bất kỳ file nào cũng không có gì trắc trở (tất nhiên trừ trường hợp Protect sheet có mật khẩu, nhưng với tình huống cụ thể này thì không có mật khẩu)

Tôi chưa thử với các files không cho mở (group policy, readonly,...) nên chưa biết.

Tôi chỉ dựa trên kinh nghiệm nhiều người trên GPE, nhân viên cùng phòng, cùng công ty còn không quản lý nổi cách gởi dữ liệu của họ, huống gì KH (*1) (*2). Có thể tôi sai, xin lỗi vậy.

(*1) tôi doán KH là khách hàng. Không biết bao giờ bà con mới chịu học cái kỹ năng sống căn bản: khi hỏi thì đừng bao giờ chủ quan nghĩ là người ta có thể đoán được các từ ngữ viết tắt của mình.

(*2) trừ phi mình là cơ quan chức năng (như Hải Quan) thì bắt buộc KH phải tuân thủ.

Trước khi tôi hỏi một người nào, tôi học cách dùng ngôn ngữ của người ấy trước. Nếu hỏi chung chung thì tôi dùng ngôn ngữ an toàn nhất, tức là tôi tạm dùng ngôn ngữ của chính trị gia vận động bầu cử.

 

[locbanh]

Bạn chạy file đính kèm (file này nằm khác đường dẫn với folder X nhé), bấm nút chạy lệnh, chọn folderX để thực hiện các yêu cầu như trích dẫn bên trên.

mình chưa chay thử, nhưng cám ơn MaiKa8008 trước nha, có gì mình sẽ phản hồi.

 

[ptm0412]

Bạn chạy file đính kèm (file này nằm khác đường dẫn với folder X nhé), bấm nút chạy lệnh, chọn folderX để thực hiện các yêu cầu như trích dẫn bên trên.

Chủ đề không có file đính kèm, không có 3 thư mục xyz, không có cấu trúc file mẫu, mà trả lời được. Thánh thật

 

[VetMini]

Chủ đề không có file đính kèm, không có 3 thư mục xyz, không có cấu trúc file mẫu, mà trả lời được. Thánh thật

Có thể người viết code muốn học thêm về kinh nghiệm quản lý files; dùng đề tài này để mò từng bước, học hỏi thêm về những tình huống.

 

[Maika8008]

Chủ đề không có file đính kèm, không có 3 thư mục xyz, không có cấu trúc file mẫu, mà trả lời được. Thánh thật

Trong hầu hết trường hợp, bài hỏi không có file đính kèm thì sẽ không biết hỏi gì, không có data mẫu để code. Nhưng trường hợp này thì đơn giản, câu hỏi khá rõ ràng, code không nhất thiết có file mẫu của người hỏi, các file dùng làm đối tượng bị tác động không cần cấu trúc gì đặc biệt. Thế thì đâu cần yêu cầu người hỏi làm chi cho rắc rối, cứ thế làm thôi.

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

Có thể người viết code muốn học thêm về kinh nghiệm quản lý files; dùng đề tài này để mò từng bước, học hỏi thêm về những tình huống.

Bác nói có phần đúng. Lâu lâu dùng fso chứ không thì quên mất.

 

[ptm0412]

Sợ "thánh phán", chứ "thánh làm" kiểu này thì đáng yêu lém. Bác có ý tưởng gì cho bài này hơm.

Ý tôi là khen, 1 là làm có suy luận tối thiểu mới làm được, 2 là "muốn học thêm" như ý của bài #11.
Bản thân tôi nếu làm thì cũng fso thôi, nhưng chưa muốn làm vì nguy cơ làm đi làm lại là khá cao, do chưa đủ thông tin: Tôi không tin là chỉ mở file lên, unprotect rồi đóng lại. Vì nếu không làm gì với dữ liệu thì nó có protect cũng mặc kệ nó.
Thứ nữa là chưa biết mỗi file có mấy sheet, sheet tên gì, unprotect sheet nào, ...

 

[Maika8008]

không hiểu fso là gì luôn,các bạn có thể đừng viết tắt không, vì không phải ai ở đây cũng hiểu?

Tôi nghĩ là ai đã dùng VBA thì đều biết fso là Scripting.FileSystemObject

 

[locbanh]

Ý tôi là khen, 1 là làm có suy luận tối thiểu mới làm được, 2 là "muốn học thêm" như ý của bài #11.
Bản thân tôi nếu làm thì cũng fso thôi, nhưng chưa muốn làm vì nguy cơ làm đi làm lại là khá cao, do chưa đủ thông tin: Tôi không tin là chỉ mở file lên, unprotect rồi đóng lại. Vì nếu không làm gì với dữ liệu thì nó có protect cũng mặc kệ nó.
Thứ nữa là chưa biết mỗi file có mấy sheet, sheet tên gì, unprotect sheet nào, ...

Tks ban, nhưng khi mình gửi file cho các Phòng thì họ ko biết làm sao, nên y/c ra file như vậy. hihih chứ để nguyên là khỏe rồi

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

Ý tôi là khen, 1 là làm có suy luận tối thiểu mới làm được, 2 là "muốn học thêm" như ý của bài #11.
Bản thân tôi nếu làm thì cũng fso thôi, nhưng chưa muốn làm vì nguy cơ làm đi làm lại là khá cao, do chưa đủ thông tin: Tôi không tin là chỉ mở file lên, unprotect rồi đóng lại. Vì nếu không làm gì với dữ liệu thì nó có protect cũng mặc kệ nó.
Thứ nữa là chưa biết mỗi file có mấy sheet, sheet tên gì, unprotect sheet nào, ...

sorry mình thiêu thông tin, là khi mỡ file ra thì lấy sheet hiện hành thôi, ko chạy all sheet

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

Tôi nghĩ là ai đã dùng VBA thì đều biết fso là Scripting.FileSystemObject

tks mình sẽ tìm hiểu về phần này, mới nhập môn VBA nên còn yếu lắm. mong mọi ng giúp đỡ

 

[Maika8008]

Tks ban, nhưng khi mình gửi file cho các Phòng thì họ ko biết làm sao, nên y/c ra file như vậy. hihih chứ để nguyên là khỏe rồi

tks mình sẽ tìm hiểu về phần này, mới nhập môn VBA nên còn yếu lắm. mong mọi ng giúp đỡ

Còn yêu cầu thứ 2, bạn có muốn tiếp tục không hay là có ý khác?

 

[locbanh]

Còn yêu cầu thứ 2, bạn có muốn tiếp tục không hay là có ý khác?

SORRY BẠN, BỮA GIỜ MỚI TRẢ LỜI, PHẦN 2 NẾU ĐƯỢC HƯỚNG DẪN MÌNH VỚI, TKS BAN NHIỀU NHA

 

[Maika8008]

SORRY BẠN, BỮA GIỜ MỚI TRẢ LỜI, PHẦN 2 NẾU ĐƯỢC HƯỚNG DẪN MÌNH VỚI, TKS BAN NHIỀU NHA

Thay đường dẫn của bạn tại A1, A2

 

[locbanh]

Thay đường dẫn của bạn tại A1, A2

CẢM ƠN MAIKA8008 NHA,