Об’єднання кількох таблиць Excel в один документ Word за допомогою VBA

Hugo Bertrand
пʼятниця, 19 липня 2024 р. о 19:34:11
VBA

Ефективне об’єднання даних Excel у Word

Керування даними на різних платформах може бути громіздким завданням, особливо коли потрібно скомпілювати кілька таблиць із Excel у документ Word. Використовуючи VBA, ви можете автоматизувати цей процес, забезпечуючи безперебійну передачу даних із збереженням бажаного формату та структури.

У цій статті розглядається макрос VBA, який зараз створює три окремі документи Word із таблиць Excel. Ми продемонструємо, як змінити код, щоб створити всі таблиці в одному документі Word із розривами сторінок після кожної таблиці для ясності та організації.

Команда опис
Set wdApp = New Word.Application Ініціалізує новий екземпляр програми Word.
wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak Вставляє розрив сторінки в кінці документа.
.Rows(1).HeadingFormat = True Вказує, що перший рядок таблиці є рядком заголовка.
.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol) Додає нову таблицю до документа Word із зазначеними рядками та стовпцями.
With wdTbl.Borders Встановлює стиль рамки для внутрішніх і зовнішніх ліній таблиці.
wdApp.Visible = True Робить програму Word видимою для користувача.
If (r - startRow + 2) >If (r - startRow + 2) > .Rows.Count Then .Rows.Add Додає новий рядок до таблиці, якщо поточний рядок перевищує наявну кількість рядків.
Set wdDoc = .Documents.Add Створює новий документ у програмі Word.

Розуміння макросу VBA для об’єднання таблиць

Надані сценарії демонструють, як автоматизувати процес перенесення даних із кількох таблиць Excel в один документ Word за допомогою VBA. Основний сценарій, , ініціалізує новий екземпляр програми Word за допомогою і створює новий документ за допомогою . Він визначає рядки в Excel, де закінчуються таблиці, перевіряючи наявність порожніх клітинок, і зберігає ці позиції в змінних First і . Це дозволяє сценарію знати, де закінчується і починається кожна таблиця. Потім макрос створює таблиці в Word за допомогою і заповнює ці таблиці даними з Excel.

Щоб переконатися, що кожна таблиця чітко відокремлена, сценарій вставляє розрив сторінки після кожної використаної таблиці . The підпрограма викликається тричі для створення та форматування кожної таблиці. Ця підпрограма визначає заголовки, заповнює рядки та стовпці та застосовує стилі меж до таблиць із і With wdTbl.Borders. Нарешті, макрос встановлює для видимості програми Word значення true with , гарантуючи, що користувач може бачити згенерований документ. Цей підхід ефективно об’єднує кілька таблиць із Excel в один документ Word, зберігаючи чіткість і формат.

Консолідація кількох таблиць Excel в один документ Word

Цей сценарій демонструє, як використовувати VBA в Excel для об’єднання кількох таблиць в один документ Word із розривами сторінок після кожної таблиці.

Sub ConsolidateTablesInOneDocument()
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim wdTbl As Word.Table
    Dim xlSht As Worksheet
    Dim lRow As Integer, lCol As Integer
    Dim r As Integer, c As Integer
    Dim Blanks As Integer, First As Integer, Second As Integer
    lRow = Sheets("Feedback Sheets").Range("A1000").End(xlUp).Row - 2
    Blanks = 0
    i = 1
    Do While i <= lRow
        Set rRng = Worksheets("Feedback Sheets").Range("A" & i)
        If IsEmpty(rRng.Value) Then
            Blanks = Blanks + 1
            If Blanks = 1 Then First = i
            If Blanks = 2 Then Second = i
        End If
        i = i + 1
    Loop
    Set xlSht = ActiveSheet: lCol = 5
    With wdApp
        .Visible = True
        Set wdDoc = .Documents.Add
        Call CreateTable(wdDoc, xlSht, 1, First, lCol)
        wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak
        Call CreateTable(wdDoc, xlSht, First + 1, Second, lCol)
        wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak
        Call CreateTable(wdDoc, xlSht, Second + 1, lRow, lCol)
    End With
End Sub
Sub CreateTable(wdDoc As Word.Document, xlSht As Worksheet, startRow As Integer, endRow As Integer, lCol As Integer)
    Dim wdTbl As Word.Table
    Dim r As Integer, c As Integer
    Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)
    With wdTbl
        .Rows(1).Range.Font.Bold = True
        .Rows(1).HeadingFormat = True
        .Cell(1, 1).Range.Text = "Header 1"
        If lCol > 1 Then .Cell(1, 2).Range.Text = "Header 2"
        If lCol > 2 Then .Cell(1, 3).Range.Text = "Header 3"
        For r = startRow To endRow
            If (r - startRow + 2) > .Rows.Count Then .Rows.Add
            For c = 1 To lCol
                .Cell(r - startRow + 2, c).Range.Text = xlSht.Cells(r, c).Text
            Next c
        Next r
    End With
    With wdTbl.Borders
        .InsideLineStyle = wdLineStyleSingle
        .OutsideLineStyle = wdLineStyleDouble
    End With
End Sub

Об’єднання даних Excel у Word за допомогою VBA

Цей сценарій використовує VBA для об’єднання таблиць із аркуша Excel в один документ Word, забезпечуючи правильне форматування та розриви сторінок.

Sub MergeTablesIntoWord()
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim wdTbl As Word.Table
    Dim xlSht As Worksheet
    Dim lRow As Integer, lCol As Integer
    Dim r As Integer, c As Integer
    Dim Blanks As Integer, First As Integer, Second As Integer
    lRow = Sheets("Feedback Sheets").Range("A1000").End(xlUp).Row - 2
    Blanks = 0
    i = 1
    Do While i <= lRow
        Set rRng = Worksheets("Feedback Sheets").Range("A" & i)
        If IsEmpty(rRng.Value) Then
            Blanks = Blanks + 1
            If Blanks = 1 Then First = i
            If Blanks = 2 Then Second = i
        End If
        i = i + 1
    Loop
    Set xlSht = ActiveSheet: lCol = 5
    With wdApp
        .Visible = True
        Set wdDoc = .Documents.Add
        Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)
        PopulateTable wdTbl, xlSht, 1, First, lCol
        wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak
        Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)
        PopulateTable wdTbl, xlSht, First + 1, Second, lCol
        wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak
        Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)
        PopulateTable wdTbl, xlSht, Second + 1, lRow, lCol
    End With
End Sub
Sub PopulateTable(wdTbl As Word.Table, xlSht As Worksheet, startRow As Integer, endRow As Integer, lCol As Integer)
    Dim r As Integer, c As Integer
    With wdTbl
        .Rows(1).Range.Font.Bold = True
        .Rows(1).HeadingFormat = True
        .Cell(1, 1).Range.Text = "Header 1"
        If lCol > 1 Then .Cell(1, 2).Range.Text = "Header 2"
        If lCol > 2 Then .Cell(1, 3).Range.Text = "Header 3"
        For r = startRow To endRow
            If (r - startRow + 2) > .Rows.Count Then .Rows.Add
            For c = 1 To lCol
                .Cell(r - startRow + 2, c).Range.Text = xlSht.Cells(r, c).Text
            Next c
        Next r
    End With
    With wdTbl.Borders
        .InsideLineStyle = wdLineStyleSingle
        .OutsideLineStyle = wdLineStyleDouble
    End With
End Sub

Створення та форматування таблиць у Word за допомогою VBA

Під час автоматизації передачі даних із Excel у Word за допомогою VBA надзвичайно важливо розуміти, як ефективно керувати та форматувати таблиці. Одним із ключових аспектів є забезпечення правильної передачі даних із збереженням структури та читабельності. Це вимагає розуміння команд VBA, які керують створенням таблиці, форматуванням і вставкою розривів сторінок. Наприклад, команда використовується для додавання нової таблиці до документа Word із зазначенням кількості рядків і стовпців на основі даних Excel.

Ще одним важливим елементом є форматування таблиці. Такі команди, як зробити перший рядок жирним, вказуючи на заголовки, а використовується для встановлення стилів меж як для внутрішніх, так і для зовнішніх ліній таблиці. Крім того, вставлення розривів сторінок є важливим для того, щоб кожна таблиця відображалася на окремій сторінці, що робиться за допомогою . Разом ці команди гарантують, що остаточний документ буде добре організований і професійно відформатований.

Поширені запитання про макроси VBA для Word і Excel

  1. Як запустити нову програму Word за допомогою VBA?
  2. використання щоб ініціалізувати новий екземпляр програми Word.
  3. Як я можу вставити розрив сторінки в документ Word за допомогою VBA?
  4. Вставити розрив сторінки за допомогою .
  5. Як додати таблицю до документа Word за допомогою VBA?
  6. Додайте таблицю за допомогою .
  7. Як я можу відформатувати перший рядок таблиці як заголовок?
  8. Встановіть перший рядок як заголовок за допомогою і зробити його жирним, використовуючи .
  9. Як встановити рамки для таблиці в Word за допомогою VBA?
  10. Встановити межі с , вказуючи стилі для внутрішніх і зовнішніх ліній.
  11. Як я можу зробити програму Word видимою для користувача у VBA?
  12. Встановіть видимість за допомогою .
  13. Яка команда використовується для додавання нового рядка до таблиці, якщо поточний рядок перевищує наявну кількість рядків?
  14. Додати новий рядок за допомогою .
  15. Як створити новий документ у Word за допомогою VBA?
  16. Створіть новий документ за допомогою .

Об’єднання кількох таблиць Excel в один документ Word за допомогою VBA спрощує процес передачі та форматування даних. Автоматизуючи створення таблиць, форматування та розриви сторінок, макрос гарантує, що кінцевий документ буде добре організований і професійно представлений. Такий підхід економить час і знижує ризик помилок, що робить його ефективним рішенням для керування та представлення даних на різних платформах.