Вопрос : ищите архив с точно полным именем в VBA

Дорогой специалист,

I имеет вызванные xls одного архива «advancedata2010» в моем скоросшивателе, и я хочу к create
one новому другой архив вызванный «data2010» без слова «после того как я выдвинут». Кодим будет as
follows. Но оно не создаст архив data2010, и после этого я разрешил
by проблемы переименую подобный названный архив «advanceddata2010» к «advacnedata», программа
the перепробега, и после этого архив «data2010» будет после того как оно показано вверх и created

So мое вопрос в том, что как к filesearch имя eaxct архива в VBA? wkdir
Dim

Sub advise
Duncan

Please главное () как datafilename String
Dim как String
wkdir =
datafilename = «data2010 "
'Test
Sub DoesWorkBookExist
Call DoesWorkBookExist (wkdir, datafilename) (wkdir как шнур, datafilename как шнур) для того чтобы увидеть если exists
Dim iий Workbook как Integer
With Application.FileSearch
.LookIn = wkdir
'* представляет characters
.Filename = datafilename
If. Исполните > 0 после этого «exists
» Debug.Print «Workbook там будет Workbook. «
еще «там не будет Workbook
» Debug.Print «, котор Workbook не существует " wkdir Workbooks.Add
Workbooks.Add.SaveAs
'& конец With

End Sub If

конца datafilename
ActiveWorkbook.Close False
class=

Ответ : ищите архив с точно полным именем в VBA

Будет placeholder.

Пытаться снова…

взыщите - спичку:

Если "" Dir («d:\excel\somefile.xls <> ") после этого
   'Кодий для архива существует
Еще
   'Кодий для архива не существует
Закончитесь если

частично спичка:

Если Dir, то («"" d:\excel\ <> *somefile*.xls*") после этого
   'Кодий для хотя бы 1 спички
Еще
   'Кодий для никаких спичек
Закончитесь если