Başka Bir Excel Dosyasından Veri Almak

[Bülent]

Aşağıdaki kod ile başka bir Excel çalışma kitabındaki verileri alabiliriz:

Kod Seç Expand

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