Dichiarazione di un PATH in Excel

[Ribonix]

In una procedura di excel 2000 mi serve che l'utente possa scegliere uno dei file contenuti in X:\Directory
ho messo questi comandi nella macro ma il più delle volte la directory non è quella così come non lo è nemmeno il volume di rete:
fileToOpen = Application.GetOpenFilename("proc_r7e, *.*", , "Devi scegliere un file dalla directory X:\Directory")
Ho già fatto un po' di ricerche ma non sono riuscito a capire come fare per dichiarare prima il PATH esatto.

[ezechiel2517]

prima di Application.GetOpenFilename metti la riga di comando

ChDir "X:\directory"

[Ribonix]

Premetto che ho patchato la suite office 2000 fino all'utimo aggiornamento disponibile.
Il comando che hai postato non funziona purtroppo...
Non l'ho scritto apposta perchè volevo vedere se qualcuno conosceva l'esistenza di un altro comando simile. Excel in questo caso sembra ignorare il path impartito. Anzi, la prima volta prende il path che c'è in Opzioni-Generale poi una volta cercata la directory prende sempre quella fino ad un nuovo cambio o alla chiusura e al riavvio di excel.

[ezechiel2517]

Giusto per test ho buttato giu questa

Codice: Seleziona tutto

Private Sub OpenSpecial(strOpenPath As String)

ChDrive Left(strOpenPath, 1)
ChDir strOpenPath
strFilter = "Excel Workbook Files (*.xls),*.xls,"
intFilterIndex = 1
strTitle = "File Open"
varFileName = Application.GetOpenFilename(strFilter, intFilterIndex,strTitle)
If Not varFileName = False Then Workbooks.Open Filename:=varFileName

End Sub

e da me funziona benissimo!

[Ribonix]

ChDrive "X"
Ecco la parolina magica che mi mancava!!!
Probabilmete Excel pur leggendo in ChDir "X:\directory" il nome della directory la stessa la cercava nel volume di default...

Problema risolto. Grazie mille.