Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Selezione da tastiera percorso in cui salvare tanti file

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Selezione da tastiera percorso in cui salvare tanti file

Postdi umaga » 31/08/10 14:20

Ciao,
avrei una domanda per voi...
Per motivi che non sto qui a spiegare, nella realizzazione di una macro in Excel che salva dei file txt ho una situazione di questo tipo:


Dato che:
- i file da salvare sono tanti
- voglio che siano salvati con i nomi che dico io
- dispongo già tali nomi sotto forma di strighe

Voglio chiedere da tastiera - una volta per tutte - il "percorso" comune in cui voglio salvare dei file. Dove per percorso intendo un qualcosa del tipo "C:\Progetti\2010\Agosto\". Senza cioè il nome del file, che come detto sarebbe troppo lungo impostare per tutti quanti i file che devo creare, visto che sono tanti.
Grazie mille, spero di essermi spiegato bene. Ciao
umaga
Newbie
 
Post: 6
Iscritto il: 19/07/10 21:57

Sponsor
 

Re: Selezione da tastiera percorso in cui salvare tanti file

Postdi maxmula » 31/08/10 15:07

Assicurati di aver visualizzato la barra "Strumenti di Controllo"; da lì crea un pulsante sul tuo foglio (io l'ho chiamato PICK_OUTPUTPATH) ed assegnagli il seguente codice:

Codice: Seleziona tutto
Private Sub PICK_OUTPUTPATH_Click()
    CURRENTFOLDER = CurDir
    SETFOLDER = Range("H27").Value
   
    a = APRI_FOLDER(SETFOLDER, "Select OUTPUT Folder")
    If a <> False Then
        Range("H27").Formula = a
    End If
End Sub


Quest è invece la funzione APRI_FOLDER (che ti conviene salvare in un modulo a parte):


Codice: Seleziona tutto
Function APRI_FOLDER(INITIALPATH, Optional WINDOW_TITLE = "Select folder")
'PRESO IN DIRETTA DALLA gUIDA DI eXCEL
'Stop
   PERCORSO = CurDir
    'VEDIAMO SE LA CARTELLA ESISTE
     P = CHECK_PATH(INITIALPATH, True)
    ChDir (P & "\")
   Dim lngCount As Long

    ' Open the file dialog
   ' Application.FileDialog(msoFileDialogFolderPicker).

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Select folder"
        .InitialFileName = INITIALPATH
        .InitialView = msoFileDialogViewDetails
        .ButtonName = "Select this folder"
        .Show ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            SCELTA = .SelectedItems(lngCount)
        Next lngCount

    End With
   
    ChDir (PERCORSO)
       
    If SCELTA = "" Then SCELTA = INITIALPATH
   
    If Right(SCELTA, 1) <> "\" Then SCELTA = SCELTA & "\"
   
    APRI_FOLDER = SCELTA

End Function


Nella mia macro il percorso viene salvato in cella H27... ovviamente dovrai sostituire questo indirizzo con uno che ti fa comodo.

Ciao!
MAx
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: Selezione da tastiera percorso in cui salvare tanti file

Postdi maxmula » 31/08/10 15:35

Dimenticavo: per salvare i file di testo ti sarà sufficiente concatenare il percorso di default col nome file (ricordati di aggiungere un carattere "\" tra il percorso ed il nome file!)

Ciao,
MAx
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34


Torna a Applicazioni Office Windows


Topic correlati a "Selezione da tastiera percorso in cui salvare tanti file":


Chi c’è in linea

Visitano il forum: Anthony47 e 6 ospiti