Frage : Suchakte mit genauem vollständigem Namen in VBA

Lieber Experte,

I haben die eine Akte xls, die „advancedata2010“ in meinem Faltblatt genannt werden, und ich wünsche zum create
one, das andere Akte neu ist, die „data2010“ ohne das Wort von „vorangebracht“ genannt wird. Der Code ist as
follows. Aber er stellt nicht Akte von data2010 her, und dann löste ich das Problem
by umbenenne die ähnliche Namensakte von „advanceddata2010“ „zum advacnedata“, Wiederholung
the Programm, und dann ist die Akte von „data2010“ gezeigt und created

So meine Frage wie zum filesearch ist der eaxct Name der Akte in VBA?

Please advise
Duncan

Sub Haupt ()
Dim wkdir als String
Dim datafilename als String
wkdir = „d:\excel\ "
datafilename = „data2010 "
Call DoesWorkBookExist (wkdir, datafilename)
Sub DoesWorkBookExist (wkdir als Schnur, datafilename als Schnur)
'Test, zum zu sehen, wenn ein Arbeitsbuch exists
Dim I als Integer
With Application.FileSearch
.LookIn = wkdir
'* Wildcard characters
.Filename = datafilename
If darstellt. > 0 dann „Arbeitsbuch exists
“ Debug.Print „durchführen dort ist ein Arbeitsbuch. „
sonst „dort ist nicht ein Workbook
“ Debug.Print, „, welches das Arbeitsbuch nicht "
'Workbooks.Add
Workbooks.Add.SaveAs wkdir u. datafilename
ActiveWorkbook.Close False
Ende If

Ende With

End Sub existiert

Antwort : Suchakte mit genauem vollständigem Namen in VBA

Es ist ein Placeholder.

Noch einmal versuchen…

- Gleiches fordern:

Wenn Dir („d:\excel\somefile.xls ") <> "" dann
   'Code für Akte existiert
Sonst
   'Code für Akte existiert nicht
Beenden wenn

teilweises Gleiches:

Wenn Dir („d:\excel\ *somefile*.xls*") <> "" dann
   'Code für mindestens 1 Gleiches
Sonst
   'Code für keine Gleichen
Beenden wenn