2
Contributors
4
Replies
5
Views
6 Years
Discussion Span
Last Post by AndreRet
Featured Replies
  • 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 [CODE] Private sub ListBox1_Click() … Read More

0

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
0

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

1

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

Edited by tunde011: n/a

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.