Vraag : onderzoeks dossier met nauwkeurige volledige naam in VBA

De beste Deskundige,

I heeft één dossier xls geroepen „advancedata2010“ in mijn omslag, en ik wil aan nieuwe create
one ander dossier genoemd „data2010“ zonder het woord van „geavanceerd“. De code is as
follows. Maar het zal tot geen dossier van data2010 leiden, en toen loste ik het probleem op
by anders noem het gelijkaardige naamdossier van „advanceddata2010“ aan „advacnedata“, re-run
the- programma, en dan het dossier van „data2010“ wordt getoond en created

So mijn vraag hoe te filesearch is de eaxctnaam van dossier in VBA?

Please advise
Duncan

Sub hoofd ()
Dim wkdir als String
Dim datafilename als String
wkdir = „d:\excel\ "
datafilename = „data2010 "
Call DoesWorkBookExist (wkdir, datafilename)
Sub DoesWorkBookExist (wkdir als Koord, datafilename als Koord)
'Test om te zien of vertegenwoordigt een Werkboek exists
Dim i als Integer
With Application.FileSearch
.LookIn = wkdir
'* vervanging characters
.Filename = datafilename
If. Voer > 0 dan „Werkboek exists
“ Debug.Print „uit daar is een Werkboek. „
anders „Er zijn geen Workbook
“ Debug.Print „het Werkboek niet "
'Workbooks.Add
Workbooks.Add.SaveAs wkdir & datafilename
het Eind With

End Sub van If

/> bestaat

Antwoord : onderzoeks dossier met nauwkeurige volledige naam in VBA

Het is placeholder.

Het proberen opnieuw…

nauwkeurig - gelijke:

Als Dir („d:\excel\somefile.xls“) <> "" toen
   'code voor dossier er bestaat
Anders
   de 'code voor dossier bestaat niet
Beëindig als

gedeeltelijke gelijke:

Als Dir („d:\excel\ *somefile*.xls*“) <> "" toen
   'code voor minstens 1 gelijke
Anders
   'code voor geen gelijken
Eind als