Kích hoạt nhiều file có điều kiện

  • Thread starter buiquangthuan
  • Ngày gửi
Trạng thái
Không mở trả lời sau này.
B

buiquangthuan

Guest
Chào các anh chị trong room.
Em muốn hỏi. Có cách nào duyệt được hết các workbook trên windows.
Khi duyệt qua rồi workbook nào thỏa mãn điều kiện có tên "gì gì đó"*.(xls, xlsm...) thì nó sẽ thực hiện lệnh in hay gì gì đó chẳng hạn không ạ?
Rất mong các anh chị có kiến thức thông não giúp em với
 

Euler

Administrator
Thành viên BQT
Chào bạn. Bạn đọc mục số 6 trong bài viết này.
Ở phần code cuối bài viết, Mục số 6, có đoạn code kiểm tra file nào được mở hay chưa.
Bạn có thể tận dụng đoạn code đó vào ý đồ lần này của bạn, duyệt qua tất cả các workbook đang mở, cái nào thỏa mãn điều kiện của bạn thì thực thì code của bạn.
 
S

Snow24

Guest
Chào các anh chị trong room.
Em muốn hỏi. Có cách nào duyệt được hết các workbook trên windows.
Khi duyệt qua rồi workbook nào thỏa mãn điều kiện có tên "gì gì đó"*.(xls, xlsm...) thì nó sẽ thực hiện lệnh in hay gì gì đó chẳng hạn không ạ?
Rất mong các anh chị có kiến thức thông não giúp em với
Bạn nghiên cứu
FSo = CreateObject("Scripting.FileSystemObject")
Nó sẽ có cái bạn cần.Ví dụ nó sẽ duyệt qua toàn bộ ổ D của bạn.Tìm theo tên file của bạn rồi.Lấy được đường link của nó.Xong bạn muốn làm gì tiếp theo thì tùy.Mình cũng không dành về cái này lắm.
 
Sửa lần cuối bởi điều hành viên:

Euler

Administrator
Thành viên BQT
Đọc câu hỏi mà có nhiều cách hiểu ghê. Làm ơn viết rõ ý đồ hơn nữa.
Nếu bạn muốn duyệt toàn bộ file không quan tâm đang mở hay không mở, cứ tìm thấy tên file thì làm việc, thì bạn tham khảo topic này:
 
B

buiquangthuan

Guest
Đọc câu hỏi mà có nhiều cách hiểu ghê. Làm ơn viết rõ ý đồ hơn nữa.
Nếu bạn muốn duyệt toàn bộ file không quan tâm đang mở hay không mở, cứ tìm thấy tên file thì làm việc, thì bạn tham khảo topic này:
Thật sự xin lỗi anh vì sự bất tiện trên. Em xin đính chính lại câu hỏi của em như sau:
- Trên desktop em có 5 workbook đang mở (A1.xls, A2.xls, B.xls, C.xls, D.xls)
- Bây giờ em muốn thực hiện in những workbook nào có tên là A chẳng hạn thôi. chứ chưa đến mức chuyên sâu quá ạ.
Hi vọng là lần này đúng. Chắc cách trình bày của em lộn xộn quá
 

Euler

Administrator
Thành viên BQT
Thật sự xin lỗi anh vì sự bất tiện trên. Em xin đính chính lại câu hỏi của em như sau:
- Trên desktop em có 5 workbook đang mở (A1.xls, A2.xls, B.xls, C.xls, D.xls)
- Bây giờ em muốn thực hiện in những workbook nào có tên là A chẳng hạn thôi. chứ chưa đến mức chuyên sâu quá ạ.
Hi vọng là lần này đúng. Chắc cách trình bày của em lộn xộn quá
Như vậy tôi đã hiểu đúng vấn đề của bạn. Bài viết số 2:
 
B

buiquangthuan

Guest
Như vậy tôi đã hiểu đúng vấn đề của bạn. Bài viết số 2:
Cám ơn anh ạ. Cho em hỏi thêm xíu. Code thế nào để có thể tìm 1 vài kí tự trong 1 chuỗi kí tự ạ.
chẳng hạn như là trong foder có rất nhiều file .xls
mà giờ em chỉ muốn tìm những file nào có kí tự đầu là aaa****.xls
 
S

Snow24

Guest
Cám ơn anh ạ. Cho em hỏi thêm xíu. Code thế nào để có thể tìm 1 vài kí tự trong 1 chuỗi kí tự ạ.
chẳng hạn như là trong foder có rất nhiều file .xls
mà giờ em chỉ muốn tìm những file nào có kí tự đầu là aaa****.xls
Bạn thử code sau.
Mã:
Sub kiemtra() 
Dim fso As Object, ObjFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
   With fso.GetFolder(ThisWorkbook.Path)
      For Each ObjFile In .Files
         If fso.GetExtensionName(ObjFile) = "xlsm" Then
               MsgBox ObjFile
         End If
      Next
   End With
End Sub
 

tuhocvba

Administrator
Thành viên BQT
Mã:
If instr(1,tenfile,"ABC")>0 then
1 là vị trí bắt đầu dò, dò từ vị trí 1 trong string tenfile xem có xuất hiện "ABC" không?
___________
Ngày 15/8/2019:
Topic không còn nhận thắc mắc nào của chủ topic.
Theo qui định, topic sẽ khóa sau 7 ngày kể từ khi hỗ trợ code mà không nhận lại phản hồi nào.
Bạn cần đăng nhập để thấy hình ảnh
 
Trạng thái
Không mở trả lời sau này.
Top