Экспорт Excel в PDF

Как изменить или экспортировать файлы Excel в PDF?

Ниже приведены примеры экспорта файлов Excel в PDF.

Вы можете скачать этот шаблон экспорта Excel в PDF здесь — Экспорт шаблона Excel в PDF

Пример # 1

Сохраните электронную таблицу как файл PDF!

Например, посмотрите на приведенные ниже данные или диаграмму, на которой показана иерархия отдела в организации.

Экспорт Excel в PDF Пример 1.1

Мы можем просто выбрать «Сохранить как» в разделе «Файл» и выбрать «Сохранить как тип как». «PDF».

Экспорт Excel в PDF, пример 1.2

Это все равно файл в формате PDF, но посмотрите, как он выглядит, когда вы его открываете.

Экспорт Excel в PDF, пример 1.3

В PDF он представлен на двух разных листах, что совершенно не имеет никакого смысла. Если вы просто используете «Сохранить как» и выбираете тип файла как PDF, это происходит, когда содержимое файла или электронной таблицы превышает размер одного листа PDF.

Для этого нам нужно выбрать область содержимого, которую мы пытаемся сохранить как файл PDF. Затем нажмите Ctrl + P , чтобы открыть под окном предварительного просмотра печати.

Экспорт Excel в PDF, пример 1.4

Пример 1.5

В разделе «Настройки» выберите «По размеру листа на одной странице».

Пример 1.6

Теперь нажмите «Сохранить как» в том же окне и выберите PDF в качестве типа файла.

Пример 1.2

Это поместит все данные на одну страницу PDF.

Пример 1.7

Это обычная техника, которую мы все регулярно использовали.

Однако что, если кнопка может создать PDF-файл электронной таблицы Excel ??? Да, это можно сделать с помощью кодирования VBA; выполните следующие действия, чтобы создать код VBA для преобразования листа Excel в PDF.

Пример # 2 — Использование кода VBA

Шаги по преобразованию листа Excel в PDF с помощью кода VBA.

Шаг 1: Объявите переменные в VBA, как показано ниже.

Экспорт Excel в PDF с использованием VBA, пример 2.1

Шаг 2: Теперь установите ссылку на книгу и лист на переменные «Ws» и «Wb».

Экспорт Excel с использованием VBA PDF, пример 2.2

Шаг 3: Чтобы дать файлу имя, нам нужно записать текущее время, то есть время во время выполнения кода. Установите время в переменной «SaveTime».

Экспорт Excel в PDF с использованием VBA, пример 2.3

Шаг 4: Теперь нам нужно сохранить файл PDF точно в том месте книги, над которой мы работаем. Присвойте это значение переменной «Сохранить путь».

Экспорт Excel в PDF с использованием VBA, пример 2.4

Шаг 5: Теперь нам нужно объединить имена файлов и время, чтобы создать уникальное имя файла.

Экспорт Excel в PDF с использованием VBA, пример 2.5

Шаг 6: Нам нужно предоставить возможность выбора пути назначения для сохранения файла.

Экспорт Excel в PDF с использованием VBA, пример 2.6

Шаг 7: Теперь нам нужно создать файл PDF.

Экспорт Excel в PDF с использованием VBA, пример 2.7

В случае возникновения какой-либо ошибки нам также необходимо с этим справиться. Итак, приведенный ниже код будет делать то же самое.

Пример 2.8

Ниже представлен полный код для вас.

Код:

Sub Excel_To_PDF()

   'Declare Variables
   Dim Ws As Worksheet
   Dim Wb As Workbook
   Dim SaveTime As String
   Dim SaveName As String
   Dim SavePath As String
   Dim FileName As String
   Dim FullPath As String
   Dim SelectFolder As Variant

   'Set Variables
   On Error GoTo EH
   Set Wb = ActiveWorkbook
   Set Ws = ActiveSheet

   'Record Current Time
   SaveTime = Format(Now(), "yyyy mm dd  _ hhmm")

   'Record Current Workbook Folder Path Address
   SavePath = Wb.Path
   If SavePath = "" Then
       SavePath = Application.DefaultFilePath
   End If
   SavePath = SavePath & ""

   'Give File a Name
   SaveName = "PDF"
   FileName = SaveName & "_" & SaveTime & ".pdf"

   'Instruct Where to save
   FullPath = SavePath & FileName

   'Enable folder picker to choose where to save the file
   SelectFolder = Application.GetSaveAsFilename _
       (InitialFileName:=FullPath, _
           FileFilter:="PDF Files (*.pdf), *.pdf", _
           Title:="Select Folder and FileName to save")

   'Create PDF File
   If SelectFolder <> "False" Then
      Ws.ExportAsFixedFormat _
         Type:=xlTypePDF, _
         FileName:=SelectFolder, _
         Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, _
         OpenAfterPublish:=False
    End If

exitHandler:
       Exit Sub
EH:
       MsgBox "Not Able to create PDF file"
       Resume exitHandler
End Sub

Скопируйте этот код и вставьте в модуль редактора Visual Basic, чтобы открыть редактор Visual Basic, нажмите Alt + F11. Когда мы запускаем этот код, нажимая клавишу F5, мы получаем следующий вариант.

Пример 2.9

Вы можете видеть, что ваш файл Excel теперь преобразован в PDF.

Пример 2

То, что нужно запомнить

  • Если данных недостаточно для одной страницы, PDF перенесет дополнительное содержимое на следующий лист.
  • Этот код создаст все содержимое рабочего листа в виде файла PDF.
  • После копирования кода макроса вам необходимо сохранить книгу как книгу с поддержкой макросов.

УЗНАТЬ БОЛЬШЕ >>

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *