Cerca.vert su file chiuso con VBA

Question

Buona sera a tutti.

È la prima volta che scrivo su questa Community e sono un appassionato di Excel/VBA 

Desidererei sapere se è possibile con del codice VBA eseguire un cerca.vert su un file chiuso.

In sostanza con l'istruzione Application.WorksheetFunction.VLookup(dato, matrice, n, false) come si deve fare (se possibile) memorizzare nella variabile di tipo Range matrice un intervallo di un file chiuso residente su HD.

Con il file aperto la cosa è tranquillamente possibile ma con uno chiuso, per quanti sforzi abbia fatto, non ci sono riuscito.

Vi ringrazio

Alfredo

Answer 1

Grazie Maurizio per la tua conferma.

Non credo che arriveranno comunicazioni contrarie; ci ho "sbattuto" la testa per diverso tempo senza cavare un ragno dal buco.

Però è strano che i programmatori di Excel di Microsoft non abbiano previsto questa possibilità; non sono un esperto ma non penso che sarebbe stato eccessivamente complicato realizzare tale opportunità visto che con il file aperto è possibile farlo.

Grazie di nuovo.

Alfredo

Answer 2

Ciao Alfredo,

per quel che so io, no, non è possibile. Attendiamo eventuali comunicazioni contrarie.

Answer 3

Buona serata Maurizio ed innanzitutto grazie della risposta e dell'attenzione.

Quindi mi confermi che non è possibile in VBA (come sospettavo) utilizzare la classica:

Application.WorkSheetFunction (quale che sia la funzione) per recuperare un dato da file chiuso?

Grazie

Alfredo

Answer 4

Ciao alfrimpa,

prova così:

Public Sub a()

Dim wsh     As Excel.Worksheet

Dim wshTmp  As Excel.Worksheet

Dim rngTmp  As Excel.Range

Dim strValore         As String

Dim strMatriceTabella As String

Dim strIndice         As String

Dim strIntervallo     As String

Dim strFormula        As String

Dim vntRet            As Variant

      With Application.ThisWorkbook.Worksheets

        Set wsh = .Item("Foglio1")

        Set wshTmp = .Add

      End With

      Set rngTmp = wshTmp.Range("A1")

      strValore = wsh.Range("B5").Address(0, 0, External:=True)

      strMatriceTabella = "'D:\Percorso[Dati.xlsx]Foglio1'!B5:C11"

      strIndice = "2"

      strIntervallo = "0"

      strFormula = "=VLOOKUP(" & strValore & "," & _

                                 strMatriceTabella & "," & _

                                 strIndice & "," & _

                                 strIntervallo & ")"

      rngTmp.Formula = strFormula

      vntRet = rngTmp.Value

      With Application

        .DisplayAlerts = False

        wshTmp.Delete

        .DisplayAlerts = True

      End With

      MsgBox strFormula & vbNewLine & vntRet

      Set rngTmp = Nothing

      Set wshTmp = Nothing

      Set wsh = Nothing

End Sub

EDIT:

Sostituisci:

      MsgBox strFormula & vbNewLine & vntRet

con:

      If IsError(vntRet) Then

        MsgBox strFormula & vbNewLine & "#N/D"

      Else

        MsgBox strFormula & vbNewLine & vntRet

      End If