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

Консолідація кількох таблиць 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

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

1. Як запустити нову програму Word за допомогою VBA?
2. використання Set wdApp = New Word.Application щоб ініціалізувати новий екземпляр програми Word.
3. Як я можу вставити розрив сторінки в документ Word за допомогою VBA?
4. Вставити розрив сторінки за допомогою wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak.
5. Як додати таблицю до документа Word за допомогою VBA?
6. Додайте таблицю за допомогою wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol).
7. Як я можу відформатувати перший рядок таблиці як заголовок?
8. Встановіть перший рядок як заголовок за допомогою .Rows(1).HeadingFormat = True і зробити його жирним, використовуючи .Rows(1).Range.Font.Bold = True.
9. Як встановити рамки для таблиці в Word за допомогою VBA?
10. Встановити межі с wdTbl.Borders, вказуючи стилі для внутрішніх і зовнішніх ліній.
11. Як я можу зробити програму Word видимою для користувача у VBA?
12. Встановіть видимість за допомогою wdApp.Visible = True.
13. Яка команда використовується для додавання нового рядка до таблиці, якщо поточний рядок перевищує наявну кількість рядків?
14. Додати новий рядок за допомогою If (r - startRow + 2) > .Rows.Count Then .Rows.Add.
15. Як створити новий документ у Word за допомогою VBA?
16. Створіть новий документ за допомогою Set wdDoc = .Documents.Add.

Заключні думки

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