Fråga : sökandet sparar med avkräver mycket känt i VBA

Kära Sakkunnig,

I har en att spara xls som kallas ”advancedata2010” i min mapp, och jag önskar till create
one, ny som annan sparar kallad ”data2010” utan uttrycka av ”avancerat”. Kodifiera är as
follows. Men den ska för att inte skapa sparar av data2010, och därefter jag löste problemby byter namn på det liknande känt sparar av ”advanceddata2010” till ”advacnedataen”, programet för re-run
the, och därefter spara av ”data2010” är visat upp, och created

So min ifrågasätter är hur till filesearch eaxcten som är känd av sparar i VBA? wkdir för
Dim för

Sub för advise
Duncan för

Please huvudsaklig () som String
Dim datafilename som String
wkdir = ”d:\excel\ "
datafilename = ”data2010 "
'Test för
Sub DoesWorkBookExist (wkdir för
Call DoesWorkBookExist (wkdir, datafilename) som stränger, datafilename som stränger) som ser, om en arbetsbokexists
Dim i som Integer
With Application.FileSearch
.LookIn = wkdir
'* föreställer wildcardcharacters
.Filename = datafilename
If. Utför > 0 ”arbetsbokexists
” Debug.Print ”där är därefter en arbetsbok. ”
annars ”där är inte en Workbook
” Debug.Print, ”som arbetsboken inte finns " wkdir för Workbooks.Add
Workbooks.Add.SaveAs för
', & datafilename
ActiveWorkbook.Close False
avslutar If

avslutar With

End Sub " klar "

Svar : sökandet sparar med avkräver mycket känt i VBA

Det är en placeholder.

Pröva igen…,

avkräva - matchen:

Om Dir (”d:\excel\somefile.xls”) <> "" därefter
   'kodifiera för sparar finns
Annars
   'kodifiera för sparar finns inte
Avsluta om

partisk match:

Om Dir (”d:\excel\ *somefile*.xls*”) <> "" därefter
   'kodifiera för åtminstone 1 match
Annars
   'kodifiera för inga matcher
Avsluta om