Садржај
Креирање Екцел радног листа у програму Аццесс може вам уштедети време када је потребно да извозите податке у Екцел радни лист. Висуал Басиц за апликације (ВБА) може бити моћан алат за аутоматизацију процеса у Мицрософт Оффице апликацијама. Уз ВБА можете користити Мицрософт Екцел апликацијски објект за креирање Екцел спреадсхеет-а из Аццесс-а. Екцел објекат је полазна тачка за остатак објектног модела. Извезите податке у Екцел брже тако што ћете податке сачувати директно у Екцел радном листу.
Упутства
Сачувајте податке на Екцел радном листу користећи ВБА (Јупитеримагес / Пхотос.цом / Гетти Имагес)-
Покрените Мицрософт Оффице Аццесс, кликните на "Бланк Датабасе" и кликните на дугме "Цреате" да бисте креирали празну базу података. Кликните на картицу "Алати за базе података" и кликните на "Висуал Басиц" да бисте отворили прозор Мицрософт Висуал Басиц. Кликните на мени "Инсерт" и кликните на "Модуле" да бисте убацили нови модул модула.
-
Кликните на мени "Тоолс" и кликните на "Референце". Превуците и означите поље поред "Мицрософт Екцел
Библиотека објеката "(Мицрософт Екцел објектна библиотека). Кликните на "ОК". -
Почните са уносом следећег кода у ВБА да бисте креирали нову под-процедуру:
Привате Суб цреатеСпреадСхеет ()
-
Наставите са уносом следећег кода да бисте направили три нове променљиве објекта које ће се користити за креирање Екцел радног листа:
Дим невЕкцелАпп Ас Екцел.Апплицатион Дим невВбк Ас Екцел.Воркбоок Дим невВкСхеет Ас Екцел.Ворксхеет
-
Додајте следећи код да бисте покренули Екцел и приказали га:
Постави невЕкцелАпп = Екцел.Апплицатион невЕкцелАпп.Висибле = Труе
-
Унесите следећи код да бисте додали нову радну свеску и радни лист:
Постави невВбк = невЕкцелАпп.Воркбоокс.Адд Сет невВкСхеет = невВбк.Ворксхеетс (1)
-
Додајте податке на нови радни лист тако што ћете откуцати следећи код:
невВкСхеет.Целлс (1, 1) .Валуе = "Нови радни лист ..."
-
Сачувајте нову радну свеску креирану уносом следећег кода:
невВкСхеет.СавеАс ("Ц: т
-
Уредите путању у претходном кораку и унесите директоријум и име датотеке по свом избору.
-
Унесите следећи код да бисте завршили под-процедуру:
Енд Суб
-
Притисните "Ф5" за покретање процедуре и креирање новог Екцел радног листа.