Copia dati da cartella chiusa

Hai un problema con Excel?

Nuova discussione

Copia dati da cartella chiusa
di nunzio (utente non iscritto) data: 15/05/2017 18:20:46
Buon giorno.
Avendo la cartella Maggi.xlsm già aperta, copio Range("G9") del foglio ("Generale") nella cella Range("A6") del foglio attivo: esempio "Prova" , con il seguente codice.
Range("A6") = Workbooks("Maggi.xlsm").Sheets("Generale").Range("G9")

Ma, se il foglio ("Maggi.xlsm") non è aperto e possibile lo stesso copiare Range("G9") in Range("A6").
Per piacere potete darmi una mano.
Grazie.
Nunzio.

di patel data: 15/05/2017 20:48:28
prova questa

Sub OpenFileCopyRange2()
Set sh = ActiveSheet
fname = "C:maggi.xlsm" ' <<<<< modifica percordo
Workbooks.Open (fname)
sh.Range("A6") = Sheets("Generale").Range("G9") 
ActiveWorkbook.Close
End Sub

Vuoi Approfondire?