Başka Bir Excel Dosyasından Veri Almak

Başlatan Bülent, Ekm 08, 2017, 04:13 ÖS

« önceki - sonraki »

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Bülent

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

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