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