' Exceli referances/microsfot excel object library actif et
' Excel nesnesini kullanabilmemizi sağlayan tanımlamalar
Dim ExlObj1 As New Excel.Application
Dim ExWb1 As New Excel.Workbook
Dim ExWs1 As New Excel.Worksheet
Set ExWb1 = ExlObj1.Workbooks.Open(App.Path & "\Raporlar.xls") ' buraya excelin adı aynı klasörde olsun
Set ExWs1 = ExlObj1.ActiveSheet
Dim bilgi
bilgi = Trim(ExWs1.Cells(1, 1)) '1.satır 1.sütunu alır
ExWb1.Close
Set ExlObj1 = Nothing
Set ExWb1 = Nothing
Set ExWs1 = Nothing