Macro vba-Alternativa al salva con nome :__

Question

Salve a tutti,

ho una cartella excel con all'interno 12 fogli, avrei l'esigienza di copiare questa file xls in un percorso di rete, poi in base a dei parametri di un foglio chiamato settaggi, nelle copie devo cancellare i fogli che non servono

Praticamente nella macro il flusso delle operazioni è :

Parto dal Xls originale, faccio un salva con nome , a questo punto il file xls attivo è il salvataggio , inizio a cancellare i fogli che non mi interessano. E fin qui tutto bene. Però poi dovrei tornare nella cartella xls originale, fare un altro salva con nome in un altro percorso di rete, e cancellare altri fogli. Il problema qual'è ?

Che in questo secondo giro, il foglio originale non è più attivo , ma il secondo salva con nome me lo fa partendo dal primo salva con nome e quindi già decurtato di "n" fogli.

Come posso fare in alternativa al salva con nome ?

grazie mille

Answer 1

Dopo aver salvato la cartella modificata, chiudila e riapri la cartella originaria dalla macro, cioè:

    Dim sStrToCall As String

    Dim nRet

    'chiudo l'applicazione contentente la cartella salvata con save as

    Application.Quit

    'richiamo l'applicazione excel passandogli la cartella iniziale

    sStrToCall = Chr(34) & "C:\Programmi\Microsoft Office\OFFICE11\excel.exe" & Chr(34) & _

        " " & Chr(34) & nome_cartella_iniziale & Chr(34)

    nRet = Shell(sStrToCall, vbNormalFocus)

Ciao, Ste'