MSA 2003 ( ) |
1 4 1 4 2 5 2 5 3 6 3 6 |
Dim i As Integer For i = 1 To rs1.RecordCount xlApp.Sheets(1).Range("(i)").value = rs1![] xlApp.Sheets(1).Range("(i)").value = rs1![]
http://www.sql.ru/forum/1156210/vopros-po-vygruzke-iz-msa-2003-v-shablon-ekselya-cherez-vba