Questione : lima di ricerca con il nome completo esatto in VBA

Il caro esperto, il

I ha xls dell'una lima chiamati “advancedata2010„ nel mio dispositivo di piegatura e voglio a create
one nuovo l'altra lima chiamata “data2010„ senza la parola “dell'avanzato di„. Il codice è as
follows. Ma non genererà la lima di data2010 ed allora ho risolto il
by di problema cambio titolo la simile lima di nome “di advanceddata2010„ “al advacnedata„, programma rifatto del
the ed allora la lima “di data2010„ è rivelato e created

So la mia domanda è come a filesearch il nome del eaxct della lima in VBA? wkdir principale del
Dim del

Sub del advise
Duncan del

Please () come datafilename di String
Dim come String
wkdir =
datafilename = “data2010 "
'Test del
Sub DoesWorkBookExist (wkdir del
Call DoesWorkBookExist (wkdir, datafilename) come stringa, datafilename come stringa) per vedere se un exists
Dim i del libro di esercizi come Integer
With Application.FileSearch
.LookIn = wkdir
'* rappresenta il characters
.Filename = datafilename
If. Eseguire > 0 allora “exists
„ Debug.Print “del libro di esercizi là è un libro di esercizi. “il
altrimenti “là non è un Workbook
„ Debug.Print “che il libro di esercizi non esiste " wkdir di Workbooks.Add
Workbooks.Add.SaveAs del
'& estremità With

End Sub di If

di conclusione del datafilename
ActiveWorkbook.Close False
class= del

Risposta : lima di ricerca con il nome completo esatto in VBA

È un placeholder.

Prova ancora…

esigere - il fiammifero:

Se "" di Dir (“d:\excel\somefile.xls <> ") allora
   'il codice per la lima esiste
Altrimenti
   'il codice per la lima non esiste
Concluder se

fiammifero parziale:

Se Dir (“"" di d:\excel\ <> *somefile*.xls*") allora
   'codice per almeno 1 fiammifero
Altrimenti
   'codice per nessun fiammiferi
Concluder se