Помоћу доње процедуре можете увести податке из Аццесс табеле на радни лист.
Под АДОИмпортФромАццессТабле (ДБФуллНаме Ас Стринг, _ ТаблеНаме Ас Стринг, ТаргетРанге Ас Ранге) 'Пример: АДОИмпортФромАццессТабле "Ц: \ Име фасцикле \ ДатаБасеНаме.мдб", _ "Име табеле", Опсег ("Ц1") АД Цн. Као АДОДБ.Рецордсет, интЦолИндек Ас Интегер Сет ТаргетРанге = ТаргетРанге.Целлс (1, 1) 'отворите базу података Сет цн = Нев АДОДБ.Цоннецтион цн.Опен "Провидер = Мицрософт.Јет.ОЛЕДБ.4.0; Дата Соурце =" & _ ДБФуллНаме & ";" Подесите рс = Нови АДОДБ.Рецордсет Са рс 'отворите скуп записа. Отворите ТаблеНаме, цн, адОпенСтатиц, адЛоцкОптимистиц, адЦмдТабле' сви записи '. Отворите "СЕЛЕЦТ * ФРОМ" & ТаблеНаме & _ "ВХЕРЕ [ФиелдНаме] =' МиЦритериа '", цн,,, адЦмдТект 'филтер снима РС2ВС рс, ТаргетРанге' записује податке из скупа записа на радни лист '' опционални приступ за Екцел 2000 или новији (РС2ВС није неопходан) 'За интЦолИндек = 0 За рс.Фиелдс.Цоунт - 1' имена поља 'ТаргетРанге.Оффсет (0, интЦолИндек) .Валуе = рс.Фиелдс (интЦолИндек) .Назив' Нект 'ТаргетРанге.Оффсет (1, 0) .ЦопиФромРецордсет рс' подаци скупа података завршавају са рс.Цлосе Сет рс = Ништа цн.Цлосе Сет цн = Ништа Крај Суб
Примери макроа претпостављају да је ваш ВБА пројекат додао референцу у библиотеку објеката АДО.
То можете учинити из ВБЕ -а одабиром менија Алати, Референце и одабиром Мицрософт
АцтивеКс Дата Објецтс к.к Библиотека објеката.
Користите АДО ако можете бирати између АДО и ДАО за увоз или извоз података.