CLS-Filesearch

Forumthread: CLS-Filesearch

CLS-Filesearch

14.02.2018 08:10:25

cH_rI_sI

Guten Morgen allerseits,
ich verwende die clsFileSearch von Nepumuk und möchte bei der Suche bestimmte Dateien auslassen, wenn im Dateinamen "CCA" vorkommt. Da ich hierzu keine Idee habe, muss ich Euch wieder einmal um Eure Hilfe bitten - anbei mein bestehender Code-Ausschnitt:


strSuwort = "Pos"
With objFileSearch
.CaseSenstiv = False
.Extension = "*.xls*"
.FolderPath = strOrdner
.SearchLike = "*"
.SubFolders = False
If .Execute(Sort_by_Size, Sort_Order_Descending) > 0 Then
Application.ScreenUpdating = False
For lngIndex = 1 To .FileCount
With .Files(lngIndex)
Workbooks.Open (.strPath), ReadOnly:=True, IgnoreReadOnlyRecommended:=True     ' _
Workbook öffnen
On Error Resume Next
With Workbooks(.strFilename).Worksheets(TAG)
.Activate
bolErg = .Cells.Find(What:=strSuwort, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
If bolErg Then
'Ermittlung relevanter Einträge
Zelle_C = ActiveCell.Column
Zelle_R = ActiveCell.Row
'usw....

Besten Dank im Voraus!
Lg,
Chrisi

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: CLS-Filesearch

14.02.2018 11:45:17

Luschi
AW: CLS-Filesearch

15.02.2018 10:42:41

cH_rI_sI

AW: CLS-Filesearch

14.02.2018 11:45:17

Luschi

Hallo Chrisi,
bei mir sieht das so aus:


Dim sFile As String
With .Files(lngIndex)
sFile = .Name
If InStr(1, sFile, "CCA", vbTextCompare) = 0 Then
'Workbook öffnen
Workbooks.Open (.strPath), ReadOnly:=True, IgnoreReadOnlyRecommended:=True
'usw.
End If
End With

Gruß von Luschi
aus klein-Paris

AW: CLS-Filesearch

15.02.2018 10:42:41

cH_rI_sI

Hi Luschi,
funktioniert perfekt! Besten Dank für deine Hilfe!!!
Lg

Forumthread: CLS-Filesearch

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread