bu kodlar ile tam istediğim gibi oldu aynı sıkıntıyı yaşayan arkadaş olursa işini görmesi için ekledim tekrar teşekkür ederim
Kod:
Dim i
i = 4
Do Until rs1.EOF
excl.Cells(i, "A") = rs1(0)
excl.Cells(i, "B") = rs1(1)
excl.Cells(i, "C") = rs1(2)
excl.Cells(i, "D") = rs1(3)
excl.Cells(i, "E") = rs1(4)
i = i + 1
rs1.MoveNext
Loop
rs1.Close