Daha önce excelle aktarma ile ilgili sorum olmuştur, yardımlarınız ile hallettim teşekkür ederim.
Access te olan verilerimi altta yazılı kod ile aktarmaya çalışıyorum fakat her satıra 1 numaradaki kaydı ekleyip sonsuz bir döngü içerisine giriyor, kayıtlarımı sırası ile alması ve bitince döngünün sonlanması için kodda ne gibi değişiklik yapmalıyım.
[code]
Dim i
Do Until rs2.EOF
excl.Range("A" & i).Value =
Dlookup ("id", "tblpersonel")
excl.Range("B" & i).Value = DLook