Codice vba per salvare files



  • Codice vba per salvare files
    di Elisah (utente non iscritto) data: 11/05/2010

    Ho un file in cui c'è una macro.
    questo file si trova supponiamo in c:elisahelisah uffdocs. quindi un percorso lungo.
    questa macro produce un file. il problema è il suo salvataggio. vorrei che tale file fosse salvato nella stessa directory del file di partenza automaticamente. e questo deve valere se ad esempio il file di partenza cambia directory. ho usato il codice sotto ma mi salva in c:.
    c'è un modo perchè riconosca l'intero percorso?
    e nel caso volessi cambiare e metterlo in rete dovrebbe sempre riconoscere il path.
    è possibile?


     
    mDir = ActiveWorkbook.Path
        ActiveWorkbook.SaveAs Filename:=mDir & "Pippo.xls"
    



  • di Locate (utente non iscritto) data: 13/05/2010

    Ciao
    dico subito che non e' mia ma fatta in collaborazione in un altro forum
    questa funzione ti mette il path del file che stai usando in una cella che tu vuoi, quindi con la macro la copy come variabile e salvi in automatico, penso che funzioni anche in rete
    ------------
    =sinistra(cella("nomefile";indiretto("a1"));ricerca("]";cella("nomefile";indiretto("a1 ")))-1)
    ------------
    ciao da locate



  • di Elisah (utente non iscritto) data: 14/05/2010

    Grazie. ci provo.



  • di Ricky53 (utente non iscritto) data: 15/05/2010

    Ciao,

    quanto suggerito da locate lascia il carattere "[" nel dato ottenuto.

    prova la soluzione che ti invio

    comunque non mi torna quello che hai scritto: perchè dici che il tuo codice salva in "c:" ???

    provando mi ha salvato nel percrso ove si trova ilfile attivo.

    ciao da ricky53
     
    =SOSTITUISCI(SINISTRA(CELLA("nomefile"); TROVA("]"; CELLA("nomefile"))-1); "["; "")