Як перетворити аркуш Excel на таблицю власних слів за допомогою VBA

У цій статті ми раді запропонувати вам спосіб перетворити робочий аркуш Excel на рідну таблицю Word за допомогою VBA.

Файли Office приймають різні формати. Час від часу ви стикаєтеся з потребою конвертувати файли з одного формату в інший. Наприклад, конвертація між файлом Excel та документом Word є однією з найбільш затребуваних. Власне, ми обговорювали цю тему в одній з наших попередніх статей: 5 простих способів перенесення табличних даних Excel у ваше слово

Сьогодні існує набагато швидший макро-спосіб вилучення книги Excel у документ Word. І весь вміст на робочому аркуші буде перетворено в рідну таблицю Word.

Встановіть і запустіть макрос Word

Ми запустимо макрос у Word. Оскільки частина коду в макросі передбачає запуск об'єкта Excel, вам потрібно додати посилання на бібліотеку об'єктів.

1. Перш за все, відкрийте новий порожній документ Word.
2. І натисніть “Alt + F11”, щоб відкрити редактор VBA у програмі Word.
3. Потім натисніть «Звичайний» у лівій колонці.
4. Потім натисніть «Вставити» та виберіть «Модуль».
5. Тепер ви отримали новий модуль. Двічі клацніть на ньому, щоб відкрити.
6. Потім перейдіть на вкладку «Інструменти» на панелі меню.
7. У спадному меню виберіть “Посилання”.
8. У вікні «Звичайні посилання» встановіть прапорець «Бібліотека об’єктів Microsoft Excel 14.0» та натисніть кнопку «ОК».
9. Далі скопіюйте та вставте такі коди в новий модуль:

Sub ExtractWorksheetsToWordDocument()
  Dim objExcel As Excel.Application
  Dim objWorkbook As Excel.Workbook
  Dim objWorksheet As Excel.Worksheet
  Dim objTable As Table
  Dim dlgFile As FileDialog
  Dim strFileName As String
 
  Application.ScreenUpdating = False
 
  ' Select an Excel file from Browse window.
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
 
  With dlgFile
    If .Show = -1 Then
      strFileName = .SelectedItems(1)
    Else
      MsgBox "No file is selected! Please select the target file."
      Exit Sub
    End If
  End With
 
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open(strFileName)
  objExcel.Visible = False
 
  ' Step through each worksheet in the Excel file and extract data to each _
  individual section in Word document.
  For Each objWorksheet In ActiveWorkbook.Worksheets
    objWorksheet.UsedRange.Copy
    ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Paste
    ActiveDocument.Range.InsertAfter objWorksheet.Name
    If Not objWorksheet.Name = Worksheets(Worksheets.Count).Name Then
      With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
        .Collapse Direction:=wdCollapseEnd
        .InsertBreak Type:=wdSectionBreakNextPage
      End With
    End If
  Next objWorksheet
 
  For Each objTable In ActiveDocument.Tables
    objTable.Borders.Enable = True
  Next objTable
 
  ' Close the Excel application using the Quit method.
  objExcel.Application.Quit
  ' Release the object variables.
  Set objWorksheet = Nothing
  Set objWorkbook = Nothing
  Set objExcel = Nothing

  Application.ScreenUpdating = True
End Sub

10. Натисніть «Виконати» або натисніть «F5».
11. Тепер є вікно "Огляд". Просто виберіть файл Excel і натисніть «OK».

Ось результат:

Переконайтеся, що ваші документи все ще працюють

Можливо, на вашому комп’ютері зберігаються сотні документів. Із часом про них легко забути. І коли ви пам’ятаєте, як їх перевірили в якийсь момент, виявляєте лише недоступними. Тоді вам слід негайно вдатися до інструменту ремонтний док.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправити xlsx та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com