Apri su parte di testo

Hai un problema con Excel?

Nuova discussione

Apri su parte di testo
di Tacchino82 (utente non iscritto) data: 12/10/2015 21:15:05
Buonasera,

Sotto vi posto il semplice codice con il quale apro un file di una determinata cartella.
Adesso avrei la necessità di poter aprire il file anche digitando una parte del nome del file.

Esempio:
5000_6000_7000.xlsm

Esiste un modo per poter aprire il file anche digitando solamente 7000?

Grazie

Sub ApriFileCartella()
Dim Pist As String
nome = InputBox("Scrivi il nome del file da aprire")
If nome = "" Then Exit Sub
Pist = "M:TESTDefinitivi" & nome & ".xlsm"
Workbooks.Open Filename:=Cart, ReadOnly:=False


End Sub

di mabolsie (utente non iscritto) data: 12/10/2015 22:29:26
ciao puoi usare l'operatore LIKE.
Ciao Max
di Tacchino82 (utente non iscritto) data: 12/10/2015 22:45:24
vale a dire?
Non sono espertissimo di vba
di Raffaele_53 data: 13/10/2015 02:35:30
Non credo Tu possa farlo, anche facendo una ricerca potrebbero essere più d'uno e Excel aprirebbe solo il primo trovato
Sarebbe una specie di dir
Pist = dir ("M:TESTDefinitivi*" & nome & ".xlsm"
If Len(Pist) > 0 Then
Workbooks.Open Filename:=Pist, ReadOnly:=False
... Pist = dir ("M:TESTDefinitivi*" & nome & ".xlsm" If Len(Pist) > 0 Then Workbooks.Open Filename:=Pist, ReadOnly:=False ...
di Tacchino82 (utente non iscritto) data: 13/10/2015 23:16:52
Grazie Raffaele_53
Ok proverò.
Cmq ogni file è univoco e non ripetibile.
Per farla breve volevo applicarlo a barcode di 13 caratteri ciascuno e salvare il file come:
barcode1_barcode2_barcode3.xmls

A questo punto avrei la necessità richiamando uno dei barcode che costituiscono il nome l'apertura del file stesso.

Grazie
di Raffaele_53 data: 14/10/2015 11:15:55
Non conosco i barcode (ex fossero numeri, mà non penso)
Se cerchi 1234 iniziale
Facendo la ricerca LIKE che ecquivale a *
Possano esistere in diverse combinazioni Ex
1234567
0123456
9012345
NB ho messo uno spazio davanti
Adesso se fai una ricerca DIR =spazio1234* dovresti trovare quel file (forse funziona)

Vuoi Approfondire?