Risultati da 1 a 14 di 14

Discussione: Copiare il nome del file che si sta visualizzando con una macro



  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

    Copiare il nome del file che si sta visualizzando con una macro

    Buona sera a tutti,

    Secondo voi è possibile creare una macro che alla pressione di una combinazione di tasti (da impostare a piacimento) copi il nome del file che si sta visualizzando (e magari lo chiuda persino) ?

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923

    Re: Copiare il nome del file che si sta visualizzando con una macro

    Ciao,
    alle macro puoi assegnare i "tasti di scelta rapida", quindi direi proprio che si può fare ma rimane da capire dove vuoi copiare il nome del file.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  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: Copiare il nome del file che si sta visualizzando con una macro

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao,
    alle macro puoi assegnare i "tasti di scelta rapida", quindi direi proprio che si può fare ma rimane da capire dove vuoi copiare il nome del file.
    Buona sera cromagno.. allora, sarebbe gia ottima la macro se copiasse il nome e lo tenesse in memoria (cosi che poi successivamente posso premere ctrl+v dove voglio e incollare il testo del nome). Altrimenti, sulla cella A1 del File "ListaAlfa.xlsb" (nome fisso).
    E' possibile?

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923

    Re: Copiare il nome del file che si sta visualizzando con una macro

    Ciao,
    prova così:

    Codice: 
    Sub Copia_Nome_File()
    Dim percorso As String, Nome As String
    
    
    percorso = ThisWorkbook.Path & "\"
    Nome = ThisWorkbook.Name
    Application.ScreenUpdating = False
    On Error GoTo errore
    Workbooks.Open(percorso & "ListaAlfa.xlsb").Worksheets("Foglio1").Range("A1").Value = Nome
    ActiveWorkbook.Close True
    Application.ScreenUpdating = True
    MsgBox "Nome file copiato!"
    Exit Sub
    
    
    errore:
    MsgBox "Qualcosa è andato storto. Assicurarsi che il file ListaAlfa.xlsb esista!", vbCritical
    Application.ScreenUpdating = True
    End Sub
    Per assegnare i "tasti di scelta rapida" si va nella scheda "Sviluppo", si clicca sopra l'icona "Macro",
    dalla finestra che si apre seleziona la macro e clicca sul pulsante "Opzioni...",
    aggiungi la lettera o il numero da associare al tasto CTRL.

    N.B.
    nel codice ho supposto che il file "ListaAlfa.xlsb" si trovi nella stessa cartella, in caso contrario cambia la variabile "percorso".
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  5. #5
    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: Copiare il nome del file che si sta visualizzando con una macro

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao,
    prova così:

    Codice: 
    Sub Copia_Nome_File()
    Dim percorso As String, Nome As String
    
    
    percorso = ThisWorkbook.Path & "\"
    Nome = ThisWorkbook.Name
    Application.ScreenUpdating = False
    On Error GoTo errore
    Workbooks.Open(percorso & "ListaAlfa.xlsb").Worksheets("Foglio1").Range("A1").Value = Nome
    ActiveWorkbook.Close True
    Application.ScreenUpdating = True
    MsgBox "Nome file copiato!"
    Exit Sub
    
    
    errore:
    MsgBox "Qualcosa è andato storto. Assicurarsi che il file ListaAlfa.xlsb esista!", vbCritical
    Application.ScreenUpdating = True
    End Sub
    Per assegnare i "tasti di scelta rapida" si va nella scheda "Sviluppo", si clicca sopra l'icona "Macro",
    dalla finestra che si apre seleziona la macro e clicca sul pulsante "Opzioni...",
    aggiungi la lettera o il numero da associare al tasto CTRL.

    N.B.
    nel codice ho supposto che il file "ListaAlfa.xlsb" si trovi nella stessa cartella, in caso contrario cambia la variabile "percorso".
    Grazie Cromagno, mi piace un sacco come risolvi le cose perchè ci aggiungi sempre i msgbox !! :)
    Quindi se il file è sempre nella stessa identica directory basterebbe scrivere (per esempio):

    percorso = C:\Users\Desktop

    La devo provare però sembra faccia qualcosa di leggermente diverso da cio' che avevo in mente, ma se mi sto sbagliando ti prego di scusarmi.. in sostanza vorrei che si, copiasse il nome del file all'interno di "ListaAlfa.xlsb" ma che poi chiudesse il file primario (quello da cui ho preso il nome) .. leggendo un po' il codice, a me sembra che chiuda il file "listaalfa.xlsb".. ripeto, se mi sto sbagliando chiedo venia! :)



    P.S. se invece il file ListaAlfa lo dovessi tenere sempre aperto e quindi non c'è bisogno di aprirlo ogni volta, il codice per far si che il nome venga copiato direttamente è questo?:

    Workbooks.("ListaAlfa.xlsb").Worksheets("Foglio1").Range("A1").Value = Nome

  6. #6

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923

    Re: Copiare il nome del file che si sta visualizzando con una macro

    Ciao,

    per la prima domanda...si, il percorso la variabile "percorso" la puoi modificare in quel modo ma non dimenticarti le virgolette (il percorso del file deve essere una stringa di testo) e il back-slash finale :

    Codice: 
    percorso = "C:\Users\Desktop\"
    Hai ragione anche per il fatto della chiusura (avevo capito volessi quello :223: ).
    Se vuoi chiudere il file che ha copiato il nome (quindi quello con la macro) e lasciare aperto il file "ListaAlfa.xlsb".... è abbastanza semplice da correggere.
    Fammi sapere.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  7. #7
    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: Copiare il nome del file che si sta visualizzando con una macro

    Si cromagno esattamente come hai scritto alla fine.. ma non ti voglio assillare a quest'ora della notte, gia tanto grazie per il tuo preziosissimo aiuto! E' sempre bello scoprire vba!

    A me verrebbe da dire, all'inizio

    Chiudere = Thisworkbook
    Workbooks.chiudere.close true

    Ma sono sicuro che la sintassi è sbagliata.. ahah

  8. #8

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923

    Re: Copiare il nome del file che si sta visualizzando con una macro

    Prova così:

    Codice: 
    Sub Copia_Nome_File()
    Dim percorso As String, Nome As String, Cartelle_lavoro As Workbook
    Dim Questo_File As Workbook, x
    
    
    Set Questo_File = ThisWorkbook
    percorso = ThisWorkbook.Path & "\"
    Nome = ThisWorkbook.Name
    Application.ScreenUpdating = False
    
    
    For Each Cartelle_lavoro In Workbooks
    x = Cartelle_lavoro.Name
        If Cartelle_lavoro.Name = "ListaAlfa.xlsb" Then
            Workbooks("ListaAlfa.xlsb").Worksheets("Foglio1").Range("A1").Value = Nome
            GoTo fatto:
        End If
    Next
    
    
    On Error GoTo errore
    Workbooks.Open(percorso & "ListaAlfa.xlsb").Worksheets("Foglio1").Range("A1").Value = Nome
    fatto:
    MsgBox "Nome file copiato!"
    Questo_File.Close True
    Application.ScreenUpdating = True
    Exit Sub
    
    
    errore:
    MsgBox "Qualcosa è andato storto. Assicurarsi che il file ListaAlfa.xlsb esista!", vbCritical
    Application.ScreenUpdating = True
    End Sub
    In pratica controlla il nome di tutti i file aperti e se trova che "ListaAlfa.xlsb" è già aperto, copia il nome direttamente, altrimenti lo apre (dal percorso che modificherai) e copia il nome. In entrambi i casi, chiude il file da cui hai lanciato la macro.
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  9. #9
    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: Copiare il nome del file che si sta visualizzando con una macro

    Grazie veramente! Essendo che mi serve il file aperto, tralascierò la parte dove apre il file e userò solo la restante.. ottimo, veramente!
    Penso che possa essere utile anche per altri, in operazioni di routine puo' tornare utile!
    Segno come risolta : )

    Buona notte!

  10. #10

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923

    Re: Copiare il nome del file che si sta visualizzando con una macro

    Ok,
    grazie del riscontro.

    Notte.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  11. #11
    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: Copiare il nome del file che si sta visualizzando con una macro

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ok,
    grazie del riscontro.

    Notte.
    Buongiorno Cromagno, vorrei chiederti un paio di cose a proposito di questa macro che gia cosi funziona.
    Io vorrei fare in modo che questa macro sia disponibile in tutti i file che aprirò da questo momento in poi, e mi pare di aver capito di dover inserirla nel file "personal".
    Ora, essendo nel file personal, il codice deve cambiare un po' ? Mi riferisco sopratutto a quando setta "this workbook" (si riferisce a QUEL workbook dove è presente la macro ovvero personal?).
    Grazie in anticipo

  12. #12

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923

    Re: Copiare il nome del file che si sta visualizzando con una macro

    Citazione Originariamente Scritto da kellington90 Visualizza Messaggio
    Buongiorno Cromagno, vorrei chiederti un paio di cose a proposito di questa macro che gia cosi funziona.
    Io vorrei fare in modo che questa macro sia disponibile in tutti i file che aprirò da questo momento in poi, e mi pare di aver capito di dover inserirla nel file "personal".
    Ora, essendo nel file personal, il codice deve cambiare un po' ? Mi riferisco sopratutto a quando setta "this workbook" (si riferisce a QUEL workbook dove è presente la macro ovvero personal?).
    Grazie in anticipo
    Ciao,
    non credo ci sia da modificare nulla, in quanto chiudendo "Questo_File" stai chiudendo effettivamente il file da cui è stato lanciato il codice.
    Non ho mai provato per poterne essere sicuro ma dovrebbe essere così.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  13. #13
    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: Copiare il nome del file che si sta visualizzando con una macro

    Ciao Cromagno, come va ? Non ho piu ripreso questa macro e quindi non ho piu provato se funzionasse al 100% oppure no.. Per quanto riguarda ciò che scrissi qualche post fa, ovvero che vorrei che la macro fosse disponibile in tutti i file, non riesco a venirne a capo.

    Allora, io ho inserito la macro (un po' piu corta poichè ho bisogno solo che mi copia e incolla il nome del workbook che sto visualizzando in quel momento, alla pressione di una combo di tasti) in personal.xlsb ma la macro cosa fa ? mi copia e incolla il nome "personal.xlsb" nella cella a1 ! e non il nome del file che sto "visualizzando".. che cosa dovrei cambiare ? Non posso inserire la macro ad hoc in ogni singolo file ... vorrei semplicemente fosse "universale" .. cosa sbaglio ?

    Grazie cromagno ! o chiun

  14. #14
    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: Copiare il nome del file che si sta visualizzando con una macro

    Ciao, ho risolto.. Anzichè SEt QUESTO_FILE = thisworkbook ho settato "activeworkbook" ! E ora funziona.. Grazie comunque, senza il tuo codice iniziale non avrei potuto fare di meglio

Discussioni Simili

  1. terminare macro visualizzando un foglio
    Di nemoclipru nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 12/03/17, 19:52
  2. Salvare file non con stesso nome
    Di saralberto nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 19/02/17, 22:57
  3. Registrare file con nome nelle macro
    Di LUIGI65 nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 27/01/17, 21:29
  4. Macro per aprire un file con nome sempre variabile
    Di kellington90 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 21/05/16, 13:30
  5. Aggiornamento automatico nome file
    Di Toketta nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 29/10/15, 19:58

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
  •