Vba Application.GetOpenFilename

Question

Ciao a tutti,

vi spiego il mio problema,

su un file excel (v.2007) ho una formula che prende valori da un altro file excel che, se non aperto, restituisce  il simpatico #REF!.

Il problema non si pone se il file è aperto. Per evitare questa manualità vorrei creare una macro che automatizzi il tutto, ci sono anche riuscito, il problema è che scrivendo il percorso del file nel codice, nel passaggio dei file da un pc ad un altro, ovviamente il percorso cambia e rende inutile il tutto.

Con Application.GetOpenFilename invece, ideologicamente risolverei ogni problema, perchè ogni utente potrebbe selezionare il file con una semplice e familare interfaccia, il problema è che il file, una volta selezionato, NON si apre. 

Sotto il codice utilizzato:

Sub Apri()

FName = Application.GetOpenFilename("Tutti i files (*.*), *.*")

End Sub

Spero di essere stato chiaro e grazie mille a chi vorrà aiutarmi

Stefano

Answer 1

Ciao Stefano,

Prova qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Public Sub Apri()

    Dim WB As Workbook

    Dim FName As Variant

    FName = Application.GetOpenFilename("Tutti i files (*.*), *.*")

    If FName <> False Then

        Set WB = Workbooks.Open(FName)

    End If

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Ciao Stefano,

Thank U Norman

You are very welcome!

Mi fa piacere che hai risolto il problema e ti ringrazio del tuo cortese riscontro.

Per chiudere questo thread, vorrei gentilmente chiederti di segnare la mia risposta come Risposta. In questo modo, tu aiuterai anche coloro che potrebbero cercare soluzioni ai problemi simili negli archivi della comunità.

===

Regards,

Norman

Answer 3

Thank U Norman

Answer 4

Ciao stefanSo,

non si apre perché sta scritto (nella guida):

Visualizza la finestra di dialogo standard Apri e consente all'utente di specificare un nome di file senza aprire effettivamente un file.

Prova, con il cursore sulla parola, circa così:

[...]Application.GetOpe**|**nFilename( [...]

                       ^

a premere il tasto F1. Compare la guida?

(Vedo che la soluzione già te l'ha fornita Norman, che saluto caramente.)