[excel] importare dato da altro foglio

[ramset64]

Se scrivo Worksheets("Foglio1").Range("A1").FormulaLocal = "=Foglio1!H2"
ottengo ciò che è presente nel file attivo al foglio1 cella H2.

Ma se questo dato voglio prenderlo da un altro file aperto che si chiama Pippo credo di dover scrivere
Worksheets("Foglio1").Range("A1").FormulaLocal = "=[pippo.xlsm]Foglio1!H2"
ed invece ottengo sempre errore.

Qual è il codice corretto?
Grazie

[ramset64]

Se scrivo Worksheets("Foglio1").Range("A1").FormulaLocal = "=Foglio1!H2"
ottengo ciò che è presente nel file attivo al foglio1 cella H2.

Ma se questo dato voglio prenderlo da un altro file aperto che si chiama Pippo credo di dover scrivere
Worksheets("Foglio1").Range("A1").FormulaLocal = "=[pippo.xlsm]Foglio1!H2"
ed invece ottengo sempre errore.

Qual è il codice corretto?
Grazie

Mi rispondo da solo...

Worksheets("Foglio1").Range("A1").FormulaLocal = "='[Pippo.xlsm]Foglio1'!H2"

La vista incomincia a fare brutti scherzi!
Ciao

[Anthony47]

Per i meno esperti:
la sintassi Worksheets("Foglio1").Range("A1").FormulaLocal = "=[pippo.xlsm]Foglio1!H2" e' corretta se nome file e nome foglio non contengono spazi; altrimenti bisogna ricorrere al delimitatore di stringa "apice" (andrebbe bene anche il "doppio apice", che pero' e' piu' difficile da gestire in una stringa di per se separata da "doppio apice").

Ciao.

[ramset64]

Worksheets("Foglio1").Range("A1").FormulaLocal = "='[Pippo.xlsm]Foglio1'!H2"

Ma se volessi sostituire Pippo.xlsm con il nome del file attivo ?

NomeFile = ActiveWorkbook.Name
NomeFile= NomeFile & ".xlsm"

Worksheets("Foglio1").Range("A1").FormulaLocal = "='[NomeFile]Foglio1'!H2"

Sembrerebbe essere così.... sembrerebbe appunto!

[Anthony47]

La sintassi e' la seguente:

Codice: Seleziona tutto

Worksheets("Foglio1").Range("A1").FormulaLocal = "='[" & NomeFile & "]Foglio1'!H2"


Ciao