Kombinace více tabulek Excelu do jednoho dokumentu Word s VBA

Konsolidace více tabulek aplikace Excel do jednoho dokumentu aplikace Word

Tento skript ukazuje, jak používat jazyk VBA v Excelu ke spojení více tabulek do jednoho dokumentu aplikace Word, doplněný o konce stránek za každou tabulkou.

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

Sloučení dat aplikace Excel do aplikace Word s VBA

Tento skript využívá VBA ke sloučení tabulek z listu aplikace Excel do jednoho dokumentu aplikace Word, což zajišťuje správné formátování a zalomení stránek.

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

Časté otázky o makrech VBA pro Word a Excel

1. Jak spustím novou aplikaci Word pomocí jazyka VBA?
2. Použití Set wdApp = New Word.Application inicializovat novou instanci aplikace Word.
3. Jak mohu vložit konec stránky do dokumentu aplikace Word pomocí jazyka VBA?
4. Vložit konec stránky s wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak.
5. Jak přidám tabulku do dokumentu aplikace Word pomocí jazyka VBA?
6. Přidejte tabulku pomocí wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol).
7. Jak mohu naformátovat první řádek tabulky jako záhlaví?
8. Nastavte první řádek jako záhlaví pomocí .Rows(1).HeadingFormat = True a udělejte to odvážným použitím .Rows(1).Range.Font.Bold = True.
9. Jak nastavím ohraničení tabulky ve Wordu pomocí VBA?
10. Nastavte hranice pomocí wdTbl.Borders, určující styly pro vnitřní a vnější čáry.
11. Jak mohu zviditelnit aplikaci Word pro uživatele ve VBA?
12. Nastavte viditelnost pomocí wdApp.Visible = True.
13. Jaký příkaz se používá k přidání nového řádku do tabulky, pokud aktuální řádek překročí počet existujících řádků?
14. Přidejte nový řádek pomocí If (r - startRow + 2) > .Rows.Count Then .Rows.Add.
15. Jak vytvořím nový dokument ve Wordu pomocí VBA?
16. Vytvořte nový dokument pomocí Set wdDoc = .Documents.Add.

Závěrečné myšlenky

Kombinace více tabulek aplikace Excel do jednoho dokumentu aplikace Word pomocí jazyka VBA zjednodušuje proces přenosu a formátování dat. Automatizací vytváření tabulek, formátování a zalomení stránek makro zajišťuje, že konečný dokument bude dobře organizovaný a profesionálně prezentován. Tento přístup šetří čas a snižuje riziko chyb, což z něj činí efektivní řešení pro správu a prezentaci dat na různých platformách.