Âîïðîñ ïî âûãðóçêå èç MSA 2003 â øàáëîí ýêñåëÿ (÷åðåç ÂÁÀ)
|
|
Ñðåäà, 13 Ìàÿ 2015 ã. 00:42
+ â öèòàòíèê
Âñåì ïðèâåò!
Ðåáÿòà, ïîäñêàæèòå ïîæàëóéñòà, êàê îñóùåñòâèòü âûãðóçêó â äàííîì ñëó÷àå:
Èìååòñÿ MDB áàçà, åñòü øàáëîí ñ ëèñòîì ïîä íàçâàíèåì 1.
Ýòîò ëèñò ýêñåëü 2003, ñîäåðæèò èíôó òèïà:
| àâòîð |
|---|
Ïîëå1 Ïîëå4 Ñòàòóñ1 Ñòàòóñ4
Ïîëå2 Ïîëå5 Ñòàòóñ2 Ñòàòóñ5
Ïîëå3 Ïîëå6 Ñòàòóñ3 Ñòàòóñ6 |
Ïîñêîëüêó Ïîëÿ â ýêñåëå = îáúåäèíåííûå ÿ÷åéêè, ÿ â øàáëîíå èì ïðèñâîèëà èìåíà (Âñòàâêà-Ïðèñâîèòü-Èìÿ (ïèøåì èìÿ) - Äîáàâèòü-Îê).
 Àêñåññå çàïðîñîì îòáèðàåòñÿ îïðåäåëåííîå êîë-âî çàïèñåé (ïóñòü áóäåò 15). Ïîëÿ: Ïîëå è Ñòàòóñ
Ìíå íàäî ñäåëàòü, ÷òîáû 1-ÿ ñòðîêà âñòàâëÿëà â øàáëîí ýêñåëÿ Ïîëå=Ïîëå1 è Ñòàòóñ=Ñòàòóñ1, äàëåå 2-ÿ ñòðîêà Ïîëå=Ïîëå2 è Ñòàòóñ=Ñòàòóñ2 è òä.
Äëÿ íà÷àëà ðåàëèçóþ íà 1 ëèñò, ïîòîì äîäóìàþ.
×òî äåëàþ:
1) Ôîðìèðóåì ðåêîðäñåò, âñå êàê ïîëîæåíî.
2) Êîäîì ÂÁÀ ïèøó
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
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-