CodeItBetter Programming Another VB Programming Blog

'MS Office - How to get data from Excel Worksheet

'Add a Command Button to your form and set reference to Microsoft Excel xx.x Object Library

Private Sub Command1_Click()
    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook
    Set xlw = xl.Workbooks.Open("C:\Temp\Book11.xls")
    xlw.Sheets("Sheet1").Select
    MsgBox xlw.Application.Cells(2, 3).Value
    xlw.Close False
    Set xlw = Nothing
    Set xl = Nothing
End Sub