Aprire file esterno utilizzando solo il nome (percorso variabile)

[GretPartecipante Gret]

Salve a tutti,

avrei un piccolo problema da risolvere e chiedo gentilmente il vostro aiuto..

Sono a conoscenza della procedura Workbooks.Open per aprire un file esterno excel utilizzando il percorso. Ora..sarebbe possibile inserire solo il nome del file da aprire invece di inserire il percorso e il nome del file?

Chiedo questo perchè il file viene continuamente spostato.

Grazie mille e buona continuazione 🙂

 

[albatros54Moderatore albatros54 Karma: 89 pts]

Gret ha scritto:

Chiedo questo perchè il file viene continuamente spostato.

se cambi sembre indirizzo di casa, chi ti vuole spedire la posta, deve sapere l'indirizzo completo non puo pedirti la posta indicando solo il numero civico  

>br>

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[GretPartecipante Gret]

Ciao Albatros54,

hai risposto benissimo ... quello che dici è vero..

Non ho fatto questo ragionamento  

Grazie mille

[patelModeratore patel Karma: 51 pts]

invece si può fare con una ricerca ricorsiva

Sub FindFileSubFolders() ' ricorsiva
Dim objFSO As Object, objTopFolder As Object, strTopFolderName As String
Dim fName As String, newpath As String
strTopFolderName = "F:\Download\" ' cartella madre con sottocartelle
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTopFolder = objFSO.GetFolder(strTopFolderName)
  fName = Range("A4")
  Call RecursiveFind_Folder(objTopFolder, fName)
End Sub
Sub RecursiveFind_Folder(objFolder As Object, fName As String)
Dim objFile As Object, objSubFolder As Object
On Error Resume Next
For Each objFile In objFolder.Files
   If objFile.Name = fName Then
       Workbooks.Open objFile
       Exit Sub
   End If
Next objFile
For Each objSubFolder In objFolder.Subfolders
   Call RecursiveFind_Folder(objSubFolder, fName)
Next objSubFolder
End Sub

 

[albatros54Moderatore albatros54 Karma: 89 pts]

patel ha scritto:

invece si può fare con una ricerca ricorsiva

si pero se io ho un percorso diverso da ""F:\Download\" " dove vado a pescare la

cartella madre con sottocartelle ?

 

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[Autore]

Articoli