Sub ExcelDosyasindanVeriAl()
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\ExcelSitesi\Test.xlsx")
satir = 1
Do Until objExcel.Cells(satir, 1).Value = ""
ThisWorkbook.ActiveSheet.Range("A" & satir).Value = objExcel.Cells(satir, 1).Value
ThisWorkbook.ActiveSheet.Range("B" & satir).Value = objExcel.Cells(satir, 2).Value
satir = satir + 1
Loop
End Sub