Како креирати табелу у Екцелу из Аццесса користећи ВБА

Аутор: Roger Morrison
Датум Стварања: 18 Септембар 2021
Ажурирати Датум: 8 Може 2024
Anonim
Сводные таблицы Excel с нуля до профи за полчаса + Дэшборды! | 1-ое Видео курса "Сводные Таблицы"
Видео: Сводные таблицы Excel с нуля до профи за полчаса + Дэшборды! | 1-ое Видео курса "Сводные Таблицы"

Садржај

Креирање Екцел радног листа у програму Аццесс може вам уштедети време када је потребно да извозите податке у Екцел радни лист. Висуал Басиц за апликације (ВБА) може бити моћан алат за аутоматизацију процеса у Мицрософт Оффице апликацијама. Уз ВБА можете користити Мицрософт Екцел апликацијски објект за креирање Екцел спреадсхеет-а из Аццесс-а. Екцел објекат је полазна тачка за остатак објектног модела. Извезите податке у Екцел брже тако што ћете податке сачувати директно у Екцел радном листу.


Упутства

Сачувајте податке на Екцел радном листу користећи ВБА (Јупитеримагес / Пхотос.цом / Гетти Имагес)

    Упутства

  1. Покрените Мицрософт Оффице Аццесс, кликните на "Бланк Датабасе" и кликните на дугме "Цреате" да бисте креирали празну базу података. Кликните на картицу "Алати за базе података" и кликните на "Висуал Басиц" да бисте отворили прозор Мицрософт Висуал Басиц. Кликните на мени "Инсерт" и кликните на "Модуле" да бисте убацили нови модул модула.

  2. Кликните на мени "Тоолс" и кликните на "Референце". Превуците и означите поље поред "Мицрософт Екцел Библиотека објеката "(Мицрософт Екцел објектна библиотека). Кликните на "ОК".

  3. Почните са уносом следећег кода у ВБА да бисте креирали нову под-процедуру:


    Привате Суб цреатеСпреадСхеет ()

  4. Наставите са уносом следећег кода да бисте направили три нове променљиве објекта које ће се користити за креирање Екцел радног листа:

    Дим невЕкцелАпп Ас Екцел.Апплицатион Дим невВбк Ас Екцел.Воркбоок Дим невВкСхеет Ас Екцел.Ворксхеет

  5. Додајте следећи код да бисте покренули Екцел и приказали га:

    Постави невЕкцелАпп = Екцел.Апплицатион невЕкцелАпп.Висибле = Труе

  6. Унесите следећи код да бисте додали нову радну свеску и радни лист:

    Постави невВбк = невЕкцелАпп.Воркбоокс.Адд Сет невВкСхеет = невВбк.Ворксхеетс (1)

  7. Додајте податке на нови радни лист тако што ћете откуцати следећи код:

    невВкСхеет.Целлс (1, 1) .Валуе = "Нови радни лист ..."

  8. Сачувајте нову радну свеску креирану уносом следећег кода:

    невВкСхеет.СавеАс ("Ц: т

  9. Уредите путању у претходном кораку и унесите директоријум и име датотеке по свом избору.


  10. Унесите следећи код да бисте завршили под-процедуру:

    Енд Суб

  11. Притисните "Ф5" за покретање процедуре и креирање новог Екцел радног листа.