Risultati da 1 a 9 di 9

Discussione: apri folder (cartella) in windows



  1. #1
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    apri folder (cartella) in windows

    Buongiorno, vorrei creare un pulsante che mi apra in windows una cartella con un percorso specifico creato su una cella, e nel caso non esista la cartella mi restituisca un messaggio d'errore "la cartella non esiste".

    ho provato di tutto, .Open , .Show ma nulla da fare, in quanto se uso la sintassi Open, il link della cella B8 dovrebbe essere specifico di un file all'interno del percorso B8 con una determinata estensione. Io invece voglio solamente che mi apra la cartella in windows di quel percorso e che mi restituisca un messaggio se la cartella non esiste.

    Codice: 
    Sub ApriCartella()
    '
    ' apricart Macro
    '
    
    Dim iCart As String
    iCart = Range("B8").Value
    
    Open iCart For Random As FreeFile
    
    If Dir(iCart, vbDirectory) = "" Then
        MkDir iCart
        MsgBox "La cartella non esiste"
    End If
    
    End Sub
    Ho provato anche con l'hyperlinks, ma ovviamente mi crea una cella con il nome del percorso mentre io voglio solo aprirlo.
    Codice: 
    Sub hyperlink()
        Range("B18").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\Utente05\Downloads", _
            TextToDisplay:="C:\Users\Utente05\Downloads"
    End Sub
    Non confondere mancanza di talento per genialità.

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: apri folder (cartella) in windows

    Se ho capito bene, prova così:
    Codice: 
    Private Sub ApriCartella()
    Dim iCart As String
    Dim Domanda As String
    
    
    iCart = Range("b8")
    If Dir(iCart, vbDirectory) = "" Then
        Domanda = MsgBox("La cartella non esiste, la vuoi creare", vbQuestion, "ATTENZIONE")
        If Domanda = vbYes Then
            MkDir iCart
            ActiveWorkbook.FollowHyperlink Address:=iCart & "\", NewWindow:=True
        End If
        
    End If
    End Sub

  3. #3
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: apri folder (cartella) in windows

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Se ho capito bene, prova così:
    Codice: 
    Private Sub ApriCartella()
    Dim iCart As String
    Dim Domanda As String
    
    
    iCart = Range("b8")
    If Dir(iCart, vbDirectory) = "" Then
        Domanda = MsgBox("La cartella non esiste, la vuoi creare", vbQuestion, "ATTENZIONE")
        If Domanda = vbYes Then
            MkDir iCart
            ActiveWorkbook.FollowHyperlink Address:=iCart & "\", NewWindow:=True
        End If
        
    End If
    End Sub
    ho appena provato ma non esegue nulla.
    Non confondere mancanza di talento per genialità.

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: apri folder (cartella) in windows

    Ops. La riga ActiveWorkbook.Follow..... La devi spostare dopo End If
    E comunque la routine va integrata nel caso l'utente scelga "no".
    Ora sono con il cellulare, dopo davanti al PC la modifico

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  5. #5
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: apri folder (cartella) in windows

    intanto grazie, sto facendo delle prove ma anche spostando la riga ActiveWorkbook... dopo End If non mi apre nulla.
    Codice: 
    Private Sub ApriCartella()
    Dim iCart As String
    Dim Domanda As String
    
    
    iCart = Range("b8")
    If Dir(iCart, vbDirectory) = "" Then
        Domanda = MsgBox("La cartella non esiste, la vuoi creare", vbQuestion, "ATTENZIONE")
        If Domanda = vbYes Then
            MkDir iCart
        End If
        ActiveWorkbook.FollowHyperlink Address:=iCart & "\", NewWindow:=True
        
    End If
    
    End Sub
    Non confondere mancanza di talento per genialità.

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

    Re: apri folder (cartella) in windows

    cosa intendi per aprire la cartella ?
    esplorarla ? in tal caso cosa ci fai dopo ?
    crearla ?
    cosa c'è scritto nella cella B8 ?

  7. #7
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: apri folder (cartella) in windows

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    cosa intendi per aprire la cartella ?
    intendo aprire la cartella di windows (folder) ossia dove risiedono i file, da non confondersi con cartella di excel, ossia cartel.xlsx

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    esplorarla ? in tal caso cosa ci fai dopo ?
    dentro ci metto i file di disegno documenti PDF ecc. che non centrano nulla con il file excel.

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    crearla ?
    per crearla mi è già stato dato un aiuto su questo thread qua:
    http://www.forumexcel.it/forum/7-dom...a-nomefile-pdf

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    cosa c'è scritto nella cella B8 ?
    nella cella B8 c'è scritto il percorso dove si trova la cartella (es. C:\Users\Utente05\Downloads\100CNR\100-10-16 ) ed io necessito
    aprire questa cartella di windows una volta creata, senza dover andare su computer, fare doppio click sui vari percorsi per aprire e allegare i miei documenti.

    Sull'altro thread di cui sopra c'era poi il salva file.pdf e salva file copiasolovalori.xlsx

    In pratica mi sto creando un foglio per creare delle schede tecniche di macchinari dove attingere i dati di base da un database, inserirò manualmente un numero di matricola ed in base al tipo di macchina e nr matricola mi genererà un percorso univoco che mi creerà la cartella (cella B8), da qui poi desidero aprire la cartella, salvare una copia di questa scheda tecnica in pdf ed una copia dei soli valori (non formule o collegamenti) in xlsx.

    ciao
    Non confondere mancanza di talento per genialità.

  8. #8

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: apri folder (cartella) in windows

    Ecco la routine modificata:

    Codice: 
    Private Sub ApriCartella()
    Dim iCart As String
    Dim Domanda As String
    
    
    iCart = Range("b8")
    If Dir(iCart, vbDirectory) = "" Then
        Domanda = MsgBox("La cartella non esiste, la vuoi creare", vbQuestion + vbYesNo, "ATTENZIONE")
        If Domanda = vbYes Then
            MkDir iCart
        Else
            Exit Sub
        End If
    End If
    ActiveWorkbook.FollowHyperlink Address:=iCart & "\", NewWindow:=True
    
    
    End Sub

  9. I seguenti utenti hanno dato un "Like"


  10. #9
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: apri folder (cartella) in windows

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Ecco la routine modificata:

    Codice: 
    Private Sub ApriCartella()
    Dim iCart As String
    Dim Domanda As String
    
    
    iCart = Range("b8")
    If Dir(iCart, vbDirectory) = "" Then
        Domanda = MsgBox("La cartella non esiste, la vuoi creare", vbQuestion + vbYesNo, "ATTENZIONE")
        If Domanda = vbYes Then
            MkDir iCart
        Else
            Exit Sub
        End If
    End If
    ActiveWorkbook.FollowHyperlink Address:=iCart & "\", NewWindow:=True
    
    
    End Sub
    Sei un genio... funziona perfettamente
    Grazie mille :286:
    Non confondere mancanza di talento per genialità.

Discussioni Simili

  1. Macro copia File Folder / Subfolder in una Folder unica senza Subfolder
    Di aerdna nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 27/02/17, 19:28
  2. [Tutorial VBA] Application.FileDialog (Salva ed apri file e cartelle)
    Di dracoscrigno nel forum Imparando Excel & VBA - Tutorial di Excel-
    Risposte: 0
    Ultimo Messaggio: 09/02/17, 09:09
  3. [Risolto] Con VBA Cerca File in Cartella e copia in altra cartella
    Di ginofamilio nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 28/01/17, 13:50
  4. [Risolto] Apri maschera con ultimo inserimento
    Di fauly nel forum Domande su Microsoft Access
    Risposte: 24
    Ultimo Messaggio: 11/01/17, 18:22
  5. da una cartella A creare un pulsante nella cartella B ed associarlo ad una routine di B
    Di cinziorecoaro nel forum Domande su Excel VBA e MACRO
    Risposte: 0
    Ultimo Messaggio: 15/04/16, 14:17

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
  •