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

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

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

 

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

 -Ñòàòèñòèêà

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


Èìïîðò äàííûõ ñ "íóæíîãî ëèñòà" êíèãè Excel â Acces

Âòîðíèê, 26 Àâãóñòà 2014 ã. 19:52 + â öèòàòíèê
Äîáðûé äåíü, çíàòîêè
îãðîìíàÿ ïðîñüáà ïîìî÷ü ðåøèòü ïðîáëåìó:
íåîáõîäèìî îñóùåñòâèòü èìïîðò äàííûõ ñ ëèñòà êíèãè Excel, êîòîðûé ñîäåðæèò îïðåäåëåííûå ñòîëáöû, â òàáëèöó Acces

Ïîäðîáíåé î çàäà÷å:
åñòü, ê ïðèìåðó, êíèãà1 Excel, â íåé ëèñòû ñ ïðîèçâîëüíûì íàçâàíèåì: Ëèñò1, Ãîðîä, Êíèãà, Ëèñò4, Ëèñò8...
íà ëèñòå Ëèñò8 åñòü òàáëèöà ñ ñòîëáöàìè: ÔÈÎ, ìåñòî_ðàáîòû, ìåñòî_ðåãèñòðàöèè. Ñ ýòîãî ëèñòà íåîáõîäèìî îñóùåñòâèòü èìïîðò â òàáëèöó Acces - ñîòðóäíèê. Çàòåì ñ êíèãè2 (êíèãè3, êíèãè4...) Excel íåîáõîäèìî îñóùåñòâèòü èìïîðò òåõ æå ñòîëáöîâ ÍÎ!! óæå ñ ëèñòà "Ãîðîäà_ñòðàíû", à êíèãà2 ñîäåðæèò ëèñòû: Ëèñò12, Ãîðîäà_ñòðàíû, Êíèãà_ãîðîäà, Ëèñò45, Ëèñò88.
Êàêèì îáðàçîì âîçìîæíî ïåðåáðàòü ëèñòû è âû÷ëåíèòü òîò, êîòîðûé ñîäåðæèò íóæíóþ èíôîðìàöèþ(ïî íàçâàíèþ ñòîëáöîâ), è îñóùåñòâèòü èìïîðò?
Âîò íàðàáîòàë êîä äëÿ ïåðåáîðà ëèñòîâ êíèãè:
Dim DAOEx As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Set DAOEx = CreateObject("excel.Application")
Set MyWo = DAOEx.Workbooks.Open("ýêñåëü ôàéë")
For Each mysheet In MyWo.Worksheets
ëèñò = mysheet.Name
Next mysheet
íî êàê âûáðàòü íóæíûé òî? ïîìîãèòå

http://www.sql.ru/forum/1112703/import-dannyh-s-nuzhnogo-lista-knigi-excel-v-acces


 

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

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

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

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