VBA open workbook onclick listbox

[tunde011]

Hello all, I am hoping you point me in the right path here. How do I open a workbook when a value in the listbox is clicked?

Thankyou

[AndreRet]

Use the following -

'opening workbook
Workbooks.Open Filename:="c:\book1.xls"

'your code

'your code


'below code for saving and closing the workbook
Workbooks("book1.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close

[AndreRet]

Has this solved your problem Tunde011? If so, please mark this as solved, found at the bottom of this page, thanks.:)

[tunde011]

Thanks for the code, although I already know how to open a workbook, I some how worked it out myself and this is for any other fellow that come across this in the future. When items on the Listbox are clicked, it opens the associated workbook

Private sub ListBox1_Click()

Dim i As Integer

For i= 0 To ListBox1.ListCount -1

  If ListBox1.Selected(i) Then

        ' Provided your ListBox1 has an item called Apple
        ' i.e I had ListBox1.AddItem("apple") previously.

        If ListBox1.List(i) = "Apple" Then         
          Workbooks.Open("C:\apple.xls"), ReadOn:=False
        End If

        If ListBox1.List(i) = "Google" Then
        Workbooks.Open("C:\google.xls"), ReadOn:=False
        End If

     

  End If

Next i

End Sub

[AndreRet]

Thanks. Nice code there.