Xin giúp đỡ: tìm kiếm trên nhiều file Excel

Chia sẻ bởi:hands

★★★★★

‹ Cách chạy macro trong sheet bị protect Tính số lần mở File ›

Quảng cáo

Chào các bác,
E xin cảm ơn !

E có một vấn đề nhỏ muốn xin ý kiến giúp đỡ của các bác. Vấn đề của e như sau:

E tạo một folder, trong folder này e để 5 file excel (bản 2003 ). Mỗi file excel có 3 sheet.
Trên các sheet của mỗi file excel e có ghi thông tin của rất nhiều tên website khác nhau (chỉ ghi domain kiểu như giaiphapexcel.com )
Giờ e muốn tìm kiếm tên một website trên tất cả các sheet của các file excel , vậy có cách nào làm được như thế không ạ?
Ví dụ như trong một file excel, e có thể ấn Ctrl + F sau đó chọn option: within "worksheet" là sẽ tìm kiếm trong tất cả các sheet của file excel đó, nhưng giờ e muốn tìm kiếm trong tất cả file excel có trong folder đó.
ví dụ e search domain : abc.com

nếu có ra kết quả abc.com ở sheet 2 của file 1 thì e biết đã tồn tại abc.com trong database, còn nếu không ra kết quả thì e sẽ điền tiếp vào

tức là chỉ cần tìm domain và để biết đã tồn tại domain đó trong database hay chưa

đơn giản chỉ thế thôi ạ

Mong các bác thỉnh giáo !

E xin cảm ơn !

Đây này đồng chí à!

Sub SeachFiles1()
Dim i As Long, MyDir As String, FindString As String
On Error Resume Next
With Application.FileDialog(4)
.AllowMultiSelect = False: .Show
MyDir = .SelectedItems(1)
If MyDir = "" Then Exit Sub
End With
FindString = InputBox("Go tu khoa can tim vao day")
If FindString = "" Then Exit Sub
With Application.FileSearch
.NewSearch
.SearchSubFolders = True '<— Tim ca trong thu muc con
.LookIn = MyDir '<— Tim trong thu muc này
.Filename = "*.xls" '<— Kieu file can tìm
.TextOrProperty = FindString
If .Execute() > 0 Then
Range("A1").CurrentRegion.Offset(1).ClearContents
For i = 1 To .FoundFiles.Count
.End(xlUp).Offset(1) = .FoundFiles(i)
Next i
End If
MsgBox .FoundFiles.Count & " files found."
End With
End Sub
Code này chẳng qua tự động quá trình thôi (vì thực chất có thể tìm kiếm bằng tay)
Nói thêm: Application.FileSearch chỉ chạy được trên Excel 2003 thôi nha! Excel 2007 nó cóc chạy đâu!
Cũng nói thêm: Việc xác định sự tồn tại của 1 chuổi nào đó trong nhiều file, ta dùng FileSearch quả nhiên vô cùng tuyệt vời —> Ấy vậy mà thằng Excel 2007 nó lại bỏ mất công cụ này —> Giả sử muốn viết code tương tự cũng chẳng biết phải làm thế nào (tìm mà không cần mở file nha)
> Vào menu File, chọn mục File Search
2> Gõ text cần tìm vào khung Search text