excel avd vb

[waqasshahid79]

i want to connect the excel in vb.just like an access database.

 

[kevinclark]

One method

Private Sub Sample()
'You'll need to Set Reference to
'Microsoft Excel 9.0 Object Library
Dim xlApp As Object
Dim xlWb As Excel.Workbook
Dim strTmp As String

Set xlApp = CreateObject("Excel.Application&quot
xlApp.AskToUpdateLinks = False
xlApp.DisplayAlerts = False

Set xlWb = xlApp.Workbooks.Open("C:\Development\Excel\book1.xls&quot


xlWb.Sheets("Sheet1&quot.Select
strTmp = CStr(xlWb.Sheets("Sheet1&quot.Cells(1, 1).Value)
'or if you rather
'strTmp = Cstr(xlWb.Sheets("Sheet1&quot.Range("A1&quot.value
MsgBox strTmp

xlWb.Close
Set xlApp = Nothing
End Sub