-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Âîïðîñ ïî âûãðóçêå èç 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó