Quote Originariamente inviata da NonCeLaFaccio+ Visualizza il messaggio
ma se un domani in quella cartella saranno presenti più file dovrai perfezionare l'estrazione in modo da essere sicuro di individuare quello giusto.
E' proprio questo il mio problema: trovare una soluzione intermedia tra quella che mi proponi (ma che è impraticabile, perchè nella directory in questione ci sono molti file) e quella che utilizzo attualmente, che mi costringe a selezionare ogni volta il database

...
Sub K05_Connetti()
DaTipUno = Application.GetOpenFilename("PincoPallino (*.txt),")
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & DaTipUno & "", Destination:= _
Range("$A$2"))
...

calcolando che:
1) di volta in volta, cambia solo la parte del nome del file corrispondente alla stringa %data_ora% (2014.01.01_05.06 nel mio esempio), mentre la seconda parte del nome è sempre la stessa;
2) in quella directory ci sarà sempre un solo file con il nome nel formato %data_ora%PincoPallino.txt.

Grazie, comunque, per la risposta.