Risultati da 1 a 11 di 11

Discussione: hiperlink listbox



  1. #1
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    hiperlink listbox

    ciao a tutti, questa sera mi serve che nella listbox che è nella userform del file allegato mi carichi i file della directory che viene indicato nella cella H2.
    questo già lo fa, però mi servirebbe che i files avessero un hiperlink in modo che se clicco sopra mi apre il file.
    grazie mille, come sempre, in anticipo per qualunque aiuto.
    File Allegati File Allegati

  2. #2
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: hiperlink listbox

    questo il codice con cui attivo la listbox
    Codice: 
    Private Sub UserForm_Initialize()
        Dim fileList() As String
        Dim fName As String
        Dim fPath As String
        Dim I As Integer
        
        fPath = Sheets("Foglio1").Range("H2").Text
         
        fName = Dir(fPath & "*.*")
        While fName <> ""
            I = I + 1
            ReDim Preserve fileList(1 To I)
            fileList(I) = fName
            fName = Dir()
        Wend
        If I = 0 Then
            MsgBox "No files found"
            Exit Sub
        End If
        For I = 1 To UBound(fileList)
            Me.ListBox1.AddItem fileList(I)
        Next
    End Sub

  3. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6759
    Versione Office
    2013
    Likes ricevuti
    714
    Likes dati
    164

    Re: hiperlink listbox

    Ciao Camillo

    Non c'è bisogno di collegamenti ipertestuali (tra l'altro non credo si possano inserire in una listbox); basta collegare all'evento clic sulla listbox l'apertura del file prescelto.

    Domani cerco di buttar giù il codice.

    Alfredo

  4. #4
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: hiperlink listbox

    Grazie mille Alfredo! è comunque tutta sera che ci provo. sto gironzolando anche in rete per cercare ispirazione ma ... al momento senza successo.

  5. #5
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: hiperlink listbox

    Fatto! ho trovato una pagina tutor sul portale di office.
    allegato.
    grazie mille!
    File Allegati File Allegati

  6. #6

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6759
    Versione Office
    2013
    Likes ricevuti
    714
    Likes dati
    164

    Re: hiperlink listbox

    Ciao Camillo

    Contento che hai risolto ma ti propongo comunque la mia soluzione senza collegamenti ipertestuali con i quali, almeno a me, compare quel "fastidioso" avvertimento sulla loro potenziale pericolosità

    Questo il da associare alla listbox

    Codice: 
    Private Sub ListBox1_Click()
    Dim myPath As String
    myPath = Range("h2").Value & "\"
    Workbooks.Open Filename:=myPath & Me.ListBox1.Value
    End Sub
    Alfredo

  7. #7

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

    Re: hiperlink listbox

    @alfrimpa: Ciao Alfredo, una precisazione. La tua routine apre solo cartelle di Excel mentre con l'hyperlink di @Nessi apre di tutto (.pdf, .mp4, .jpg ecc.).

    @Nessi: La tua routine senza qualche correzione non va: in quanto la variabile sPath risulta vuota, magari dichiarandola in testa al Modulo, tutte le macro all'interno del Modulo stesso la riconoscono.

    Poi un suggerimento, visto che hai usato una matrice per caricare l'elenco dei file nella cartella, l'oggetto ListBox supporta la proprietà List che permette di caricare l'intera matrice senza fare il ciclo.

    Codice: 
    Option Explicit
    Dim fPath As String
    
    
    Private Sub ListBox1_Click()
        ActiveWorkbook.FollowHyperlink _
            Address:=fPath & Me.ListBox1.Text, _
            NewWindow:=True
    End Sub
    
    
    Private Sub UserForm_Initialize()
        Dim fileList() As String
        Dim fName As String
        Dim I As Integer
        
        fPath = Sheets("Foglio1").Range("H2").Text & "\"
         
        fName = Dir(fPath & "*.*")
        While fName <> ""
            I = I + 1
            ReDim Preserve fileList(1 To I)
            fileList(I) = fName
            fName = Dir()
        Wend
        If I = 0 Then
            MsgBox "No files found"
            Exit Sub
        End If
        Me.ListBox1.List = fileList
        'For I = 1 To UBound(fileList)
        '    Me.ListBox1.AddItem fileList(I)
        'Next
    End Sub

  8. #8

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6759
    Versione Office
    2013
    Likes ricevuti
    714
    Likes dati
    164

    Re: hiperlink listbox

    Si certo Rubik avevo supposto che volesse aprire solo file Excel

    C'è modo di impedire la visualizzazione del warning dei collegamenti ipertestuali?

    Ricordo che in passato ci avevo provato con DisplayAlerts ma senza successo.

    Alfredo

  9. #9

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

    Re: hiperlink listbox

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Si certo Rubik avevo supposto che volesse aprire solo file Excel

    C'è modo di impedire la visualizzazione del warning dei collegamenti ipertestuali?

    Ricordo che in passato ci avevo provato con DisplayAlerts ma senza successo.

    Alfredo
    Se voleva aprire solo file di Excel nella ricerca (dir) avrebbe scritto *.xlsx mentre lui ha ricercato tutto (*. *).
    Per quanto riguarda il messaggio, credo che non si possa fare niente in quanto è un impostazione del S.O. (ma non ne sono certo)

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  10. #10
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: hiperlink listbox

    ma grazie ad entrambi! perdonate se rispondo solo ora ma stamani sono stato impegnato in esterna al lavoro.
    Dunque: si in effetti per l'utilizzo che ne devo fare mi serve che apra solo due tipi di file, excel (.xls e xlsx) e pdf. avendo trovato complicata l'impostazione sono ripiegato sul *.*.
    per quanto riguarda invece la variabile sPath nell'esempio manca ma poiché il contesto è incluso in uno più ampio nel sistema che uso funziona senza.
    anzi, se aggiungo la stringa Dim sPath in testa alla routine mi va in conflitto con altre variabili e mi dà errore di runtime. Dice che manca definizione di vari oggetti nella userform_initialize.

  11. #11

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6759
    Versione Office
    2013
    Likes ricevuti
    714
    Likes dati
    164

    Re: hiperlink listbox

    Purtroppo ti devi "sorbire" ogni volta il warning dei collegamenti ipertestuali.

    Alfredo

Discussioni Simili

  1. ControlFormat in Listbox
    Di Textomb nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 03/01/17, 11:02
  2. Come popolare una ListBox
    Di aurelio125 nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 11/11/16, 01:24
  3. [Risolto] Listbox-Combobox
    Di marc63 nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 26/10/16, 23:44
  4. [Risolto] Ripulire ListBox
    Di giugar nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 17/10/16, 11:29
  5. Ancora su listbox multiselect
    Di alfrimpa nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 30/06/16, 12:08

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
  •