Risultati da 1 a 10 di 10

Discussione: Aprire un file mantenendolo "nascosto"



  1. #1
    L'avatar di Keishusan
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Rimini
    Messaggi
    35
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Aprire un file mantenendolo "nascosto"

    Salve a tutti,
    vorrei aprire un file ma senza farlo vedere, oltre a questo cosa dovrei aggiungere?

    Codice: 
    Workbooks.Open Filename:="Nomefile.xlsx"
    Grazie ancora a chi mi aiuterà

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

    Re: Aprire un file mantenendolo "nascosto"

    Codice: 
    Sub apri()
    
    Dim exlApp As Excel.Application
    Dim exlWb As Excel.Workbook
    Set exlApp = CreateObject("Excel.Application")
    Set exlWb = exlApp.Workbooks.Open("F:\Download\Pippo.xls")
    'exlWb.Activate
    exlWb.Sheets(1).Range("b2") = "prova"
    exlWb.Close savechanges:=True
    Set exlWb = Nothing
    exlApp.Quit
    Set exlApp = Nothing
    End Sub

  3. #3
    L'avatar di Keishusan
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Rimini
    Messaggi
    35
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Aprire un file mantenendolo "nascosto"

    Grazie mille, ma mi sono accorto che facendo così le macro che necessitano del file aperto non funzionano, mi da errore come se fosse chiuso.

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

    Re: Aprire un file mantenendolo "nascosto"

    come le lanci le macro del file che apri ?
    Codice: 
    --------------- per lanciare macro di un altro workbook aperto
    nn = ActiveWorkbook.Name
    Application.Run "'" & nn & "'!nomemacro"
    se non riesci allega i file.

  5. #5
    L'avatar di Keishusan
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Rimini
    Messaggi
    35
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Aprire un file mantenendolo "nascosto"

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    come le lanci le macro del file che apri ?
    Codice: 
    --------------- per lanciare macro di un altro workbook aperto
    nn = ActiveWorkbook.Name
    Application.Run "'" & nn & "'!nomemacro"
    se non riesci allega i file.

    Non ho capito questa ultima parte di codice.

    Ho una macro sul "file2" che fa delle operazioni sul "file1". Chiaramente il "file1" deve essere aperto per eseguire la macro.

    All'inizio della mia macro faccio aprire il "file1", ma con il tuo codice iniziale è come se il file fosse chiuso e non fosse mai stato aperto.

    Grazie ancora

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

    Re: Aprire un file mantenendolo "nascosto"

    il codice che ti ho proposto lancia dal file1 macro residenti nel file2.

  7. #7
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Aprire un file mantenendolo "nascosto"

    ciao,
    intanto un carissimo saluto a Patel

    Potresti provare una strada come questa:

    nell'evento Open del file2 (il primo che apri)
    Codice: 
    Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    
    Workbooks.Open Filename:="C:\tuo_percorso\cartel1.xlsm"
    
    esegui_codice ' esegue la macro esegui_codice nella quale metti il codice che ti pare  e/o la sostituisci e/o ne aggiungi un'altra
    Application.ScreenUpdating = True
    End Sub
    Codice: 
    Sub esegui_codice()
    
    Application.ScreenUpdating = False
    
    'cambia il valore della cella A1 del file1
    'lo nasconde
    'ed attiva il file2
    
    Workbooks("cartel1.xlsm").Sheets("foglio1").Range("a1").Value = 3
    ActiveWindow.Visible = False
    
    Workbooks("cartel2.xlsm").Activate
    ActiveWindow.Visible = True
    
    Application.ScreenUpdating = True
    End Sub
    poi inserisci un CommandButton nel file2 e gli dai il codice per visualizzare il file1:

    Codice: 
    Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    
    Workbooks("cartel2.xlsm").Activate
    ActiveWindow.Visible = false
    Workbooks("cartel1.xlsm").Activate
    ActiveWindow.Visible = True
    
    Application.ScreenUpdating = True
    End Sub
    e fai la stessa cosa per il file 1 per tornare al file2 di apertura

    Codice: 
    Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    
    Workbooks("cartel1.xlsm").Activate
    ActiveWindow.Visible = False
    Workbooks("cartel2.xlsm").Activate
    ActiveWindow.Visible = True
    
    Application.ScreenUpdating = True
    End Sub
    e praticamente salti da un file all'altro secondo le necessità del momento.

    Ciao
    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  8. #8
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Aprire un file mantenendolo "nascosto"

    Ciao a tutti
    Divento vecchio, mà interpretare certe domande diventa sempre più difficile.
    >>>Ho una macro sul "file2" che fa delle operazioni sul "file1".
    Da qui capisco che "file2" è quello aperto e "file1" sia quello chiuso
    Ora ScreenUpdating = False, Ti farà sempre vedere a monitor il file aperto.
    Mentre il codice sarà in esecuzione non potrai fare nulla.
    Tranne con questo esempio che ho messo dei MSGBOX, in teoria il file aperto apre quello chiuso e scrive tre volte "ciao", alla fine lo richiude.
    Codice: 
    Option Explicit
    Sub prova()
    Dim X
    Application.ScreenUpdating = False
    Dim sh1 As Worksheet: Set sh1 = Worksheets("Foglio1") ' file e foglio aperto
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "CALCOLA SCADENZA.xlsx" 'file chiuso
    Dim wk2 As Workbook: Set wk2 = Workbooks("CALCOLA SCADENZA.xlsx") ' da cambiare casomai
    Dim sh2 As Worksheet: Set sh2 = wk2.Worksheets("Foglio1") ' file e foglio chiuso
        For X = 1 To 3
            MsgBox "visualizzi il messagio e scrivo in A, riappare il msg ancora " & 3 - X & " volte"
            sh2.Cells(X, 1) = "Ciao" & X
        Next X
    wk2.Close savechanges:=True
    Application.ScreenUpdating = True
    Set sh1 = Nothing
    Set sh2 = Nothing
    Set wk2 = Nothing
    End Sub
    Ps. Naturale che il codice che devi eseguire sia scritto bene, usando sh1 e sh2 come riferimento
    Ex sh1.cells(1,1) = sh2.cells(1,1)

  9. I seguenti utenti hanno dato un "Like"


  10. #9
    L'avatar di Keishusan
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Rimini
    Messaggi
    35
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Aprire un file mantenendolo "nascosto"

    Grazie a tutti!

  11. #10
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Aprire un file mantenendolo "nascosto"

    quale soluzione hai adottato?

    Ciao
    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

Discussioni Simili

  1. [Risolto] Ordinare con la funzione "piccolo"..ma "portandosi dietro" anche altri dati affiancati
    Di mauri73 nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 05/02/17, 14:57
  2. [Risolto] Come leggere la seguente formula =SE.ERRORE(INDIRETTO("'"&A1&"'!K1";1);""))
    Di sitolofi nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 20/12/16, 14:54
  3. [Risolto] inserire dei dati da un file "protocollo" al file dell'operatore "Angela"
    Di raffaelealta nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 24/11/16, 21:39
  4. [Risolto] Codice non funzionante dopo il passaggio da "Windows" a "Mac"...
    Di joondeep nel forum Foglio di calcolo su altre Piattaforme
    Risposte: 13
    Ultimo Messaggio: 12/03/16, 21:09
  5. Collegamento "foglio elenco" e "fogli singoli"
    Di Maurizio76 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 23/11/15, 10:14

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
  •