Listbox click event

[molesy01]

Hi, hope someone can help with this. I have listbox1 that has multiple items. I would like to select an item by double clicking the selected item and open a file. I have the path of where the file is so just need the code when double clicking the selection.
thanks

 

[Yongle]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Workbooks.Open ("[COLOR=#ff0000]C:\Folder\SubFolder\[/COLOR]" & [COLOR=#0000cd]ListBox1.Value[/COLOR] & "[COLOR=#006400].xlsx[/COLOR]")
End Sub

1. Path to file ending with path separator
2. Value from listbox ,
3. File extension prefixed by .

 

[molesy01]

Hi, hope someone can help with this. I have listbox1 that has multiple items. I would like to select an item by double clicking the selected item and open a file. I have the path of where the file is so just need the code when double clicking the selection.
thanks

Hi Thanks for your reply but i cannot get it to work.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open ("C:\Users\Stephen\Dropbox\GuidanceNotesMastercustomUIcode" & ListBox1.Value & ".docx")
End Sub

 

[Yongle]

Include the path separator at end of file path

 

[Yongle]

It would have been helpful if you mentioned that you wanted to open a WORD document

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With CreateObject("word.Application")
        .documents.Open "C:[SIZE=4][COLOR=#ff0000]\[/COLOR][/SIZE]Folder[SIZE=4][COLOR=#ff0000]\[/COLOR][/SIZE]SubFolder[SIZE=4][COLOR=#ff0000]\[/COLOR][/SIZE]" & ListBox1.Value & ".docx"
        .Visible = True
        .Activate
    End With
End Sub

Don't forget to include path separator before the file name

To allow for both BOTH Excel and Word files then I suggest
- file name including extension are selected in the Listbox
- tell VBA to use Workbook.Open method if .XLSX
- tell VBA to use Documents.Open method if .DOCX

Above assumes that the ListBox is in Excel