Risultati da 1 a 7 di 7

Discussione: Attivazione altro file



  1. #1

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

    Attivazione altro file

    Ciao a tutti

    Questa è una cosa che ho fatto in passato ma ora non ricordo assolutamente il modo

    Supponiamo di avere aperte Cartel1 e Cartel2

    Come faccio con una macro in Cartel1 attivare Cartel2?

    Grazie

    Alfredo

  2. #2
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Ciao Afrimpa Prova questo :

    Aprire tutti i files di una cartella(Directory) - VBA

    NOTA. La soluzione ed il codice sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dal codice o dalla soluzione proposta se usati impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.1 - Come aprire tutti i files di una cartella(qui C:\tuaCartella"), sommare i valori della colonna B del Foglio1 di ciascun file aperto e riportare il nome del file e la somma ottenuta nel Foglio1, colonne A e B del file che contiene il codice:Public Sub m()

    Codice: 
    'dichiaro le variabili
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim wk As Workbook
    Dim shMe As Worksheet
    Dim sh As Worksheet
    Dim lRigaMe As Long
    Dim lRiga As Long
    Dim s As String
    
    'impedisco lo sfarfallio dello schermo
    Application.ScreenUpdating = False
    
    'metto un riferimento alla cartella in cui
    'si trovano i files
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\TuaCartella")
    'metto un riferimento al foglio in cui incollerò
    'i risultati
    Set shMe = ThisWorkbook.Worksheets("Foglio1")
    'imposto la riga in cui iniziare a scrivere
    lRigaMe = 2
    
    'ciclo gli oggetti file della cartella
    For Each objFile In objFolder.Files
    
    'imposto a "" la variabile s
    s = ""
    'metto in s gli ultimi 4 caratteri del nome
    'del file che sto ciclando
    s = Right(objFile.Name, 4)
    
    Select Case s
    'se s è uguale ad una delle seguenti stringhe
    Case ".xls", "xlsm", "xlsx", "xlsb"
    'metto un riferimento al file che sto aprendo
    '(il file ciclato)
    Set wk = Workbooks.Open(objFile.Path)
    'metto un riferimento al suo Foglio1
    Set sh = wk.Worksheets("Foglio1")
    With sh
    'trovo l'ultima riga con valori della colobba B
    lRiga = .Range("B" & .Rows.Count).End(xlUp).Row
    'scrivo in A(n) del Foglio1 di questo file il nome del file ciclato
    shMe.Range("A" & lRigaMe).Value = .Parent.Name
    'scrivo in B(n) di questo file il totale della somma dei valori
    'della colonna B del Foglio1 del file ciclato
    shMe.Range("B" & lRigaMe).Value = _
    Evaluate("=SUM(" & .Name & "!B1:B" & lRiga & ")")
    'aumento di 1 il valore della variabile
    'per scrivere alla riga successiva
    lRigaMe = lRigaMe + 1
    End With
    'Set a Nothing della variabile oggetto
    Set sh = Nothing
    'chiudo il file ciclato
    wk.Close
    'Set a Nothing della variabile oggetto
    Set wk = Nothing
    End Select
    
    Next
    
    'ripristino lo schermo
    Application.ScreenUpdating = True
    
    'Set a Nothing delle variabili oggetto
    Set shMe = Nothing
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
    
    End Sub
    Ciao
    Ultima modifica fatta da:Gerardo Zuccalà; 26/02/16 alle 23:08

  3. #3
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    813
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53
    Se i due file sono già stati salvati e riaperti puoi usare questo codice in Cartel1:
    Codice: 
    Sub test()
    
        Workbooks("Cartel2.xls").Activate
        Range("A1").Select
    
    End Sub

  4. #4

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6795
    Versione Office
    2013
    Likes ricevuti
    719
    Likes dati
    164
    Ringrazio Rollis e Maurizio per i loro interventi ed anche Baloon_50 che mi ha contattato in privato.

    Alfredo

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ringrazio Rollis e Maurizio per i loro interventi ed anche Baloon_50 che mi ha contattato in privato.

    Alfredo
    Ciao Alfredo se è andato tutto ok puoi per piacere mettere [RISOLTO]

    Grazie e... alla prossima

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    No PM per problemi di di excel!
    Grazie

  7. I seguenti utenti hanno dato un "Like"


  8. #7
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    ... che mi ha contattato in privato.
    A mio modestissimo parere, questo non dovrebbe essere lo spirito di Forum.
    Io interpreto Forum come uno scambio di conoscenze messe a disposizione di tutta la Comunità.

    Per messaggi privati cerco di privilegiare altri stumenti.

    Questa è una mia interpretazione molto personale e come tale opinabile.


    Tanto è dovuto.

    Giuseppe

    Edit: chiedo scusa a Gerardo ma, controllando gli orari di invio, c'è stata contemporaneità.
    Windows XP Excel 2000 - Windows 10 Excel 2013

Discussioni Simili

  1. Copia Incolla su altro file senza portare i riferimenti del vecchio File
    Di CarloM nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 05/02/17, 18:36
  2. [Risolto] Stampare da un file excel fogli di lavoro presenti su un altro file excel
    Di Lorex nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 09/12/16, 20:21
  3. Msgbox per attivazione macro
    Di max72 nel forum Domande su Excel VBA e MACRO
    Risposte: 41
    Ultimo Messaggio: 06/09/16, 01:22
  4. Copia fogli da un file ad un altro
    Di Keishusan nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 01/07/16, 12:20
  5. Come caricare una form da un file ad un altro File
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 27
    Ultimo Messaggio: 03/06/16, 09:48

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
  •