Äîáðûé äåíü, çíàòîêè
îãðîìíàÿ ïðîñüáà ïîìî÷ü ðåøèòü ïðîáëåìó:
íåîáõîäèìî îñóùåñòâèòü èìïîðò äàííûõ ñ ëèñòà êíèãè 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