Risultati da 1 a 7 di 7

Discussione: Aprire, modificare, salvare e chiudere il file indicato nella cella



  1. #1
    L'avatar di kellington90
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Italia
    Messaggi
    31
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    2

    Aprire, modificare, salvare e chiudere il file indicato nella cella

    Salve, vorrei creare una macro che apra un file che si trova nel percorso indicato in una cella del file che sto visualizzando (per esempio cella C1 dove c'è scritto C:\Cartella\Files\file.xls), e vada a fare alcune operazioni (per questa parte non ho bisogno di codice) , dopo di che lo salva e lo chiude, aprendone un secondo in cella C2 (percorso per esempio C:\Cartella\Files\file2.xls) e faccia la stessa identica cosa..

    Riassumendo:

    -Apre il file indicato in cella C1
    -Fa copia del range A5:A10 del foglio da cui parte la macro, e la incolla nel foglio del file aperto (quello indicato in cella C1)
    -Salva
    -Chiude

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6797
    Versione Office
    2013
    Likes ricevuti
    719
    Likes dati
    164

    Re: Aprire, modificare, salvare e chiudere il file indicato nella cella

    Ciao kellington

    Solo come inizio ti allego una macro che ho scritto per un utente di altro forum.

    Codice: 
    Sub macro()
    Dim SorgAur As Long
    Dim SorgDur As Long
    Dim BaseAur As Long
    Dim BaseDur As Long
    Dim myPath As String
    Dim cartella As String
    Dim nomefile As String
    Application.ScreenUpdating = False
    cartella = Range("B4").Value
    Range("a9:a100").ClearContents
    Range("d9:d100").ClearContents
    myPath = ActiveWorkbook.Path & "\"
    nomefile = ActiveWorkbook.Name
    Workbooks.Open myPath & cartella
    Windows(cartella).Activate
    SorgAur = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    SorgDur = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
    Range("a7:a" & SorgAur).Copy
    Windows(nomefile).Activate
    BaseAur = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    ActiveWorkbook.ActiveSheet.Range("a" & BaseAur + 2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Windows(cartella).Activate
    Range("d7:d" & SorgDur).Copy
    Windows(nomefile).Activate
    BaseDur = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
    ActiveWorkbook.ActiveSheet.Range("d" & BaseDur + 2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Windows(cartella).Activate
    ActiveWorkbook.Close
    Range("a8").Select
    Application.ScreenUpdating = True
    End Sub
    In essa, pur essendo molto diversa da quella che dovresti fare tu, troverai utili spunti per andare avanti.

    Qualora non riuscissi, domani proverò a farla "ad personam".

    Alfredo

  3. #3
    L'avatar di kellington90
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Italia
    Messaggi
    31
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    2

    Re: Aprire, modificare, salvare e chiudere il file indicato nella cella

    Grazie alfrimpa proverò a studiarmi il codice e a modificarmelo un po!
    Nel frattempo se qualcuno vuole tirare giu un breve codice che fa solo ciò espresso sopra, lo ringrazio molto in anticipo.. intanto provo con questo di alfrimpa

  4. #4
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Aprire, modificare, salvare e chiudere il file indicato nella cella

    dai, sforzati un poco, si tratta soltanto di eliminare il superfluo e modificare qualcosa, è il modo giusto per imparare

  5. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6797
    Versione Office
    2013
    Likes ricevuti
    719
    Likes dati
    164

    Re: Aprire, modificare, salvare e chiudere il file indicato nella cella

    Allora kellington sei riuscito nell'intento? :166:

    Alfredo

  6. #6
    L'avatar di kellington90
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Italia
    Messaggi
    31
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    2

    Re: Aprire, modificare, salvare e chiudere il file indicato nella cella

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Allora kellington sei riuscito nell'intento? :166:

    Alfredo
    Ciao Alfrimpa...... piu' o meno :D

  7. #7
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Aprire, modificare, salvare e chiudere il file indicato nella cella

    cosa c'è che non va ? siamo qui ad aiutarti

  8. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. Salvare dati su file esterno senza aprire il file di destinazione
    Di Vincenzo Damiani nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 19/11/16, 09:28
  2. Salvare il file nella stessa posizione dov'è presente la cartella excel
    Di Lety88 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 05/05/16, 09:34
  3. Macro per creare/aprire/chiudere file
    Di Sbarba nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 29/04/16, 15:52
  4. apriree chiudere file per aggiornamento collegamenti senza visualizzarli
    Di patel nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 13/04/16, 11:02
  5. Excel non mi fa salvare il file
    Di stefano1987 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 15/01/16, 13:56

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •