Pytanie : rewizja kartoteka z dokładny imię i nazwisko w VBA

Kochany Ekspert,

I mieć jeden kartoteka xls dzwonić "advancedata2010" w mój falcówka, i I chcieć create
one nowy inny kartoteka dzwonić "data2010" bez the słowo "". The kod być as
follows. Ale ono tworzyć kartoteka data2010, i wtedy I rozwiązywać the problemowy
by przemianowywać the jednakowy imię kartoteka "advanceddata2010" "advacnedata", re-run
the program, i wtedy the kartoteka "data2010" być wtedy i created

So mój pytanie być dlaczego filesearch the eaxct imię kartoteka w VBA?

Please advise
Duncan

Sub główny ()
Dim wkdir Jako String
Dim datafilename Jako String
wkdir = "d:\excel\ "
datafilename = "data2010 "
Call DoesWorkBookExist (wkdir, datafilename)
Sub DoesWorkBookExist (wkdir Jako Sznurek, datafilename Jako Sznurek)
'Test jeżeli Workbook exists
Dim i Jako Integer
With Application.FileSearch
.LookIn = wkdir
'* reprezentować niewiadoma characters
.Filename = datafilename
If. Wykonywać > (0) Wtedy "Workbook exists
" Debug.Print "Tam  być Workbook. "
Inny "Tam  być Workbook
" Debug.Print "The Workbook istnieć "
'Workbooks.Add
Workbooks.Add.SaveAs wkdir & datafilename
ActiveWorkbook.Close False
Końcówka If

Końcówka With

End Sub

Odpowiedź : rewizja kartoteka z dokładny imię i nazwisko w VBA

Ono być placeholder.

Znowu…

dokładny - dopasowanie:

Jeżeli Dir ("d:\excel\somefile.xls ") <> "" Wtedy
   'kod dla kartoteka istnieć
Inny
   'kod dla kartoteka istnieć
Kończyć Jeżeli

częściowy dopasowanie:

Jeżeli Dir ("d:\excel\ *somefile*.xls*") <> "" Wtedy
   'kod dla przynajmniej (1) dopasowanie
Inny
   'kod dla żadny dopasowanie
Kończyć Jeżeli