Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

Copiare i dati di un altro file excel

  • Messaggi
  • OFFLINE
    PenaCO
    Post: 5
    Registrato il: 05/08/2021
    Età: 28
    Utente Junior
    2013
    00 10/12/2021 11:25
    Buongiorno,

    ho un dubbio VBA, ma ci ho provato niente da fare.

    Praticamente devo copiare i valori di un altro file esempio c:\prova.xlsx (nome foglio "data"):

    devo copiare i valori dalla A2:T20


    E devo incollare in un altro file Estrazione.xlsx sulla cartella “Estratti” su A2.


    NOTA BENE: Deve eseguire vba all’apertura del file.
  • OFFLINE
    federico460
    Post: 2.525
    Registrato il: 10/10/2013
    Città: VICENZA
    Età: 69
    Utente Veteran
    365
    01 10/12/2021 12:47
    Ciao
    perchè fai due domande
    con lo stesso argomento?
    "ho un dubbio VBA, ma ci ho provato niente da fare"

    ma va!
    ci hai provato?
    ma quando mai
    [Modificato da federico460 10/12/2021 12:49]
  • OFFLINE
    alfrimpa
    Post: 4.795
    Registrato il: 21/06/2013
    Città: NAPOLI
    Età: 70
    Utente Master
    Excel 365
    01 10/12/2021 13:48
    Mostra quello che hai fatto e dimostra che ci hai provato.

    Alfredo
  • OFFLINE
    PenaCO
    Post: 6
    Registrato il: 05/08/2021
    Età: 28
    Utente Junior
    2013
    00 13/12/2021 10:45
    Re:
    alfrimpa, 10/12/2021 13:48:

    Mostra quello che hai fatto e dimostra che ci hai provato.




    Corretto?

    '========>>
    Option Explicit

    '-------->>
    Public Sub Tester()
    ThisWorkbooks.Worksheet("data").Range("A2:T20").Copy
    ThisWorkbooks.Worksheet("Estratti").Range("A2").PasteSpecial xlPasteValues
    End Sub
    '<<========
  • OFFLINE
    alfrimpa
    Post: 4.797
    Registrato il: 21/06/2013
    Città: NAPOLI
    Età: 70
    Utente Master
    Excel 365
    00 13/12/2021 12:08
    Re: Re:
    PenaCO (xH3d210805), 13/12/2021 10:45:




    Corretto?

    '========>>
    Option Explicit

    '-------->>
    Public Sub Tester()
    ThisWorkbooks.Worksheet("data").Range("A2:T20").Copy
    ThisWorkbooks.Worksheet("Estratti").Range("A2").PasteSpecial xlPasteValues
    End Sub
    '<<========



    Se fa quello che hai in mente si.



    Alfredo
  • OFFLINE
    Marius44
    Post: 966
    Registrato il: 24/06/2015
    Città: CATANIA
    Età: 80
    Utente Senior
    Excel2019
    00 13/12/2021 15:37
    Ciao

    Non può fare quello che chiedi al post #1 dove hai detto

    devo copiare i valori di un altro file esempio c:\prova.xlsx (nome foglio "data"):
    E devo incollare in un altro file Estrazione.xlsx sulla cartella “Estratti” su A2.



    Il codice che hai pubblicato funziona solo se NELLO STESSO FILE hai due Fogli denominati "dati" ed "Estratti"

    Ciao,
    Mario
  • OFFLINE
    PenaCO
    Post: 8
    Registrato il: 05/08/2021
    Età: 28
    Utente Junior
    2013
    00 13/12/2021 15:45
    Re:
    Marius44, 13/12/2021 15:37:

    Ciao

    Non può fare quello che chiedi al post #1 dove hai detto

    devo copiare i valori di un altro file esempio c:\prova.xlsx (nome foglio "data"):
    E devo incollare in un altro file Estrazione.xlsx sulla cartella “Estratti” su A2.



    Il codice che hai pubblicato funziona solo se NELLO STESSO FILE hai due Fogli denominati "dati" ed "Estratti"

    Ciao,
    Mario



    Sai cosa ho sbagliato? Infatti non funziona e sono 2 file diversi

    [Modificato da PenaCO 13/12/2021 15:46]
  • OFFLINE
    Marius44
    Post: 967
    Registrato il: 24/06/2015
    Città: CATANIA
    Età: 80
    Utente Senior
    Excel2019
    00 13/12/2021 15:59
    Ciao
    Come ti è stato già detto e ripetuto non è così che funzionano le richieste in UN Forum!
    E' già da qualche settimana che stai inondando buona parte dei Forum che si occupano di Excel, senza alcuna attenzione per quei Forum che, tassativamente, non accettano il Crossposting.

    Ti ho fatto notare che quel codice per quello che vuoi fare non funziona.
    Prova ad applicare quanto suggeritoti nel Forum Aiutamici

    Ciao,
    Mario
  • 15MediaObject0,0028