Како променити или извести Екцел датотеке у ПДФ?
Испод су примери извоза екцел датотека у ПДФ.
Пример # 1
Сачувајте табелу као ПДФ датотеку!
На пример, погледајте доленаведене податке или графикон који приказује хијерархију одељења у организацији.
Можемо само одабрати Саве Ас из опције Филе и одабрати Саве ас као „ПДФ“.
Ово би и даље била датотека у ПДФ-у, али погледајте како изгледа када је отворите.
У ПДФ-у се налази у два различита листа, што апсолутно нема никаквог смисла. Ако само користите Сачувај као и одаберете тип датотеке као ПДФ, то се дешава када је садржај датотеке или прорачунске табеле више од површине за уклапање у један ПДФ лист.
За ово, оно што треба да урадимо је да изаберемо подручје садржаја које покушавамо да сачувамо као ПДФ датотеку. Затим притисните Цтрл + П да бисте се отворили испод прозора за преглед штампе.
У оквиру Поставке одаберите „Постави лист на једну страницу“.
Сада кликните Саве Ас у истом прозору и одаберите ПДФ као тип датотеке.
Ово ће уклопити целокупне податке у једну ПДФ страницу.
Ово је уобичајена техника коју смо сви редовно користили.
Међутим, шта ако дугме може да створи ПДФ датотеку табеле Екцел ??? Да, то се може постићи коришћењем ВБА кодирања; следите кораке у наставку да бисте креирали ВБА код за претварање Екцел листа у ПДФ.
Пример # 2 - Коришћење ВБА кода
Кораци за претварање Екцел листа у ПДФ помоћу ВБА кода.
Корак 1: Пријавите променљиве у ВБА, као што је приказано доле.
Корак 2: Сада поставите референцу радне свеске и радног листа на променљиве „Вс“ и „Вб.“
Корак 3: Да бисмо датотеци дали име, потребно је да забележимо тренутно време, односно време у време покретања кода. Подесите време на променљиву „СавеТиме“.
Корак 4: Сада морамо да сачувамо ПДФ датотеку на тачном месту радне свеске на којој радимо. Доделите ову вредност променљивој „Сачувај путању“.
Корак 5: Сада морамо да комбинујемо имена датотека и време да бисмо креирали јединствено име датотеке.
Корак 6: Морамо да дамо могућност избора одредишне путање да бисмо сачували датотеку.
Корак 7: Сада треба да креирамо ПДФ датотеку.
У случају да дође до било какве грешке, морамо решити и ово. Дакле, доњи код ће учинити исто.
Испод је целокупан код за вас.
Шифра:
Суб Екцел_То_ПДФ () 'Деклариши променљиве Дим Вс ас Воркхеет Дим Вб Ас Воркбоок Дим СавеТиме Ас Стринг Дим СавеНаме Ас Стринг Дим СавеПатх Ас Стринг Дим ФилеНаме Ас Стринг Дим ФуллПатх Ас Стринг Дим СелецтФолдер Ас Вариант' Сет Вариаблес Он Еррор ГоТо ЕХ Сет Вб = АцтивеВоркбоок Сет Вс = АцтивеСхеет 'Рецорд Цуррент Тиме СавеТиме = Формат (Нов (), "ииии мм дд _ ххмм")' Рецорд Цуррент Боок Фолдер Патх Аддресс СавеПатх = Вб.Патх Иф СавеПатх = "" тхен СавеПатх = Апплицатион.ДефаултФилеПатх Енд Иф СавеПатх = СавеПатх & " " 'Дајте имену датотеку СавеНаме = "ПДФ" ФилеНаме = СавеНаме & "_" & СавеТиме & ".пдф"' Упутите Где желите сачувати ФуллПатх = СавеПатх & ФилеНаме 'Омогућите бирач мапа да бисте изабрали где да сачувате датотека СелецтФолдер = Апликација.ГетСавеАсФиленаме _ (ИнитиалФилеНаме: = ФуллПатх, _ ФилеФилтер: = "ПДФ датотеке (* .пдф), * .пдф", _ Наслов: = "Изаберите мапу и име датотеке за чување") 'Направи ПДФ датотеку ако је СелецтФолдер "Фалсе", а затим Вс .ЕкпортАсФикедФормат _ Тип: = клТипеПДФ, _Назив датотеке: = СелецтФолдер, _ Квалитет: = клКуалитиСтандард, _ ИнцлудеДоцПропертиес: = Тачно, _ ИгнореПринтАреас: = Фалсе, _ ОпенАфтерПублисх: = Фалсе Енд Иф екитХандхлер: ЕкитБагХандлер: Аит направи ПДФ датотеку "Настави излазХандлер Енд Суб= Фалсе, _ ОпенАфтерПублисх: = Фалсе Енд Иф екитХандлер: Екит Суб ЕХ: МсгБок "Нот Абле то цреате ПДФ филе" Ресуме екитХандлер Енд Суб= Фалсе, _ ОпенАфтерПублисх: = Фалсе Енд Иф екитХандлер: Екит Суб ЕХ: МсгБок "Нот Абле то цреате ПДФ филе" Ресуме екитХандлер Енд Суб
Копирајте овај код и налепите у модул Висуал Басиц Едитора да бисте отворили едитор висуал басиц притисните алт = "" + Ф11. Када покренемо овај код притиском на тастер Ф5, добићемо следећу опцију.
Можете видети да је ваша датотека Екцел претворена у ПДФ.
Ствари које треба запамтити
- Ако подаци не одговарају довољно за једну страницу, ПДФ ће додатни садржај пребацити на следећи лист.
- Овај код ће створити целокупан садржај радног листа као ПДФ датотеку.
- Када копирате макро код, морате да сачувате радну свеску као Мацро-Енаблед Воркбоок.
