Copiare dati in un foglio chiuso

Question

Buon giorno a tutti.

Vorrei copiare due variabili in un foglio di una cartella chiusa.

Private Sub CommandButton1_Click()   

  Const sPath As String = "E:\AMMINISTRAZIONE\CondominiCartelleV\Condomini"' 

Nella cartella  Condomini esistono diverse cartelle tra cui:

"Cervi_17.xlsm"  e  "Cervi_19.xlsm"'

la cartella  "Cervi_19.xlsm" è quella attiva ( di lavoro)

 la cartella  "Cervi_17.xlsm" è quella chiusa

Nel foglio Enel della cartella "Cervi_19" ho due variabili: TotE e TotE1

vorrei copiare le due variabili in Range("F20")= TotE ed in Range("F22")= TotE1 nel

foglio Enel della cartella "Cervi_17" che è chiusa.

End Sub

 Io ho provato ma non riesco proprio.

Per piacere qualcuno può dirmi come fare.

Un grosso grazie a tutti.

Ciao.

Nunzio

Answer 1

prova una cosa tipo questa(se ho capito....):

Private Sub CommandButton1_Click()

Dim objExcel As Object

    Dim objWork As Object

    Dim objSh As Object

    Dim var1 As Double

Dim var2 As Double

    Set objExcel = CreateObject("Excel.Application")

    Set objWork = objExcel.Workbooks.Open( _

        ThisWorkbook.Path & "\Cervi_17.xlsm")

    Set objSh = objWork.Worksheets("Enel")

    var1 = 123.58

    var2 = 1257.58

    With objSh

        .Range("F20").Value = var1

        .Range("F22").Value = var2

    End With

    objWork.Save

    objWork.Close

    objExcel.Quit

    Set objSh = Nothing

    Set objWork = Nothing

    Set objExcel = Nothing

End Sub

Io non ho le tue variabili e non so come le hai *riempite*.... in grassetto quelle che ho utilizzato per la prova.

Il file è *aperto* ma non visibile e quindi chiuso una volta che è stato utilizzato.

Come hai scritto tu, immagino entrambe le cartelle nella stessa directory (quindi non ho bisogno di nessuna costante).

Answer 2

Ma grazie a te per il cortese riscontro ;-)

Ciao e alla prossima.

Answer 3

Ciao Mauro.

Ciao Norman.

Mauro come al solito (se ho capito....): ha capito benissimo.

Il tuo codice funziona perfettamente ed è quello che cercavo.

Tante, tante grazie a tutti per la disponibilità e la professionalità.

Ciao.

Nunzio.

Answer 4

Ciao Giovanni,

  Vorrei copiare due variabili in un foglio di una cartella chiusa.

Private Sub CommandButton1_Click()   

  Const sPath As String = "E:\AMMINISTRAZIONE\CondominiCartelleV\Condomini"' 

   Nella cartella  Condomini esistono diverse cartelle tra cui:

  "Cervi_17.xlsm"  e  "Cervi_19.xlsm"'

         la cartella  "Cervi_19.xlsm" è quella attiva ( di lavoro)

         la cartella  "Cervi_17.xlsm" è quella chiusa

   Nel foglio Enel della cartella "Cervi_19" ho due variabili: TotE e TotE1

   vorrei copiare le due variabili in Range("F20")= TotE ed in Range("F22")= TotE1 nel

   foglio Enel della cartella "Cervi_17" che è chiusa.

End Sub

 Io ho provato ma non riesco proprio.

Per piacere qualcuno può dirmi come fare.

Non si può copiare dati in un file Excel chiuso. Sarebbe necessario aprirlo, magari in modo nascosto sfruttando la proprietà  Application.Screenupdating, e quindi copiare i dati voluti in modo normale e richiudere il secondo file.

Se hai bisogno di aiuto con il codice, chiedi pure.

===

Regards,

Norman