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