Združevanje več Excelovih tabel v en Wordov dokument z VBA

Združevanje več Excelovih tabel v en Wordov dokument z VBA
Združevanje več Excelovih tabel v en Wordov dokument z VBA
Hugo Bertrand
Petek, 19. julij 2024 19:23:18

Učinkovito spajanje Excelovih podatkov v Word

Upravljanje podatkov na različnih platformah je lahko okorno opravilo, zlasti če morate sestaviti več tabel iz Excela v Wordov dokument. Z uporabo VBA lahko avtomatizirate ta proces in zagotovite nemoten prenos podatkov, hkrati pa ohranite želeno obliko in strukturo.

Ta članek raziskuje makro VBA, ki trenutno ustvari tri ločene Wordove dokumente iz Excelovih tabel. Prikazali bomo, kako spremeniti kodo za izdelavo vseh tabel v enem Wordovem dokumentu, s prelomi strani za vsako tabelo zaradi jasnosti in organizacije.

Ukaz Opis
Set wdApp = New Word.Application Inicializira nov primerek aplikacije Word.
wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak Vstavi prelom strani na koncu dokumenta.
.Rows(1).HeadingFormat = True Podaja, da je prva vrstica tabele vrstica glave.
.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol) V Wordov dokument doda novo tabelo z določenimi vrsticami in stolpci.
With wdTbl.Borders Nastavi slog obrobe za notranje in zunanje črte tabele.
wdApp.Visible = True Uporabniku naredi aplikacijo Word vidno.
If (r - startRow + 2) >If (r - startRow + 2) > .Rows.Count Then .Rows.Add Doda novo vrstico v tabelo, če trenutna vrstica presega obstoječe število vrstic.
Set wdDoc = .Documents.Add Ustvari nov dokument v aplikaciji Word.

Razumevanje makra VBA za združevanje tabel

Priloženi skripti prikazujejo, kako avtomatizirati postopek prenosa podatkov iz več Excelovih tabel v en Wordov dokument z uporabo VBA. Glavni scenarij, Sub ConsolidateTablesInOneDocument(), inicializira nov primerek aplikacije Word z Set wdApp = New Word.Application in ustvari nov dokument z uporabo Set wdDoc = .Documents.Add. Identificira vrstice v Excelu, kjer se tabele končajo, tako da preveri, ali so prazne celice, in te položaje shrani v spremenljivke. First in Second. To omogoča skriptu, da ve, kje se vsaka tabela konča in začne. Makro nato ustvari tabele v Wordu z uporabo .Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol) in te tabele zapolni s podatki iz Excela.

Za zagotovitev, da je vsaka tabela jasno ločena, skript vstavi prelom strani za vsako uporabo tabele wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak. The CreateTable podprogram se pokliče trikrat, da ustvari in oblikuje vsako tabelo. Ta podprogram definira glave, zapolni vrstice in stolpce ter uporabi sloge obrob za tabele z .Rows(1).Range.Font.Bold = True in With wdTbl.Borders. Končno, makro nastavi vidnost aplikacije Word na true with wdApp.Visible = True, ki zagotavlja, da lahko uporabnik vidi ustvarjeni dokument. Ta pristop učinkovito združuje več tabel iz Excela v en Wordov dokument, pri čemer ohranja jasnost in obliko.

Združevanje več Excelovih tabel v en Wordov dokument

Ta skript prikazuje, kako uporabiti VBA v Excelu za združevanje več tabel v en Wordov dokument, skupaj s prelomi strani za vsako tabelo.

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

Združevanje Excelovih podatkov v Word z VBA

Ta skript uporablja VBA za združevanje tabel iz Excelovega lista v en Wordov dokument, kar zagotavlja pravilno oblikovanje in prelome strani.

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

Ustvarjanje in oblikovanje tabel v Wordu z VBA

Pri avtomatiziranju prenosa podatkov iz Excela v Word z uporabo VBA je ključno razumeti, kako učinkovito upravljati in oblikovati tabele. Eden ključnih vidikov je zagotavljanje pravilnega prenosa podatkov, ohranjanje strukture in berljivosti. To zahteva razumevanje ukazov VBA, ki nadzorujejo ustvarjanje tabele, oblikovanje in vstavljanje prelomov strani. Na primer ukaz Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol) se uporablja za dodajanje nove tabele v Wordov dokument, ki določa število vrstic in stolpcev na podlagi Excelovih podatkov.

Drug pomemben element je oblikovanje tabele. Ukazi kot npr .Rows(1).Range.Font.Bold = True naj bo prva vrstica krepka, kar označuje glave, medtem ko wdTbl.Borders se uporablja za nastavitev slogov obrob za notranje in zunanje črte tabele. Poleg tega je vstavljanje prelomov strani bistveno za zagotovitev, da se vsaka tabela pojavi na ločeni strani, kar se izvede z wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak. Ti ukazi skupaj zagotavljajo, da je končni dokument dobro organiziran in profesionalno oblikovan.

Pogosto zastavljena vprašanja o makrih VBA za Word in Excel

  1. Kako zaženem novo Wordovo aplikacijo z VBA?
  2. Uporaba Set wdApp = New Word.Application za inicializacijo novega primerka aplikacije Word.
  3. Kako lahko v Wordov dokument vstavim prelom strani z VBA?
  4. Vstavite prelom strani z wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak.
  5. Kako dodam tabelo v dokument Word s pomočjo VBA?
  6. Dodajte tabelo z uporabo wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol).
  7. Kako lahko prvo vrstico tabele oblikujem kot glavo?
  8. Nastavite prvo vrstico kot glavo z .Rows(1).HeadingFormat = True in ga poudarite z uporabo .Rows(1).Range.Font.Bold = True.
  9. Kako nastavim obrobe za tabelo v Wordu z VBA?
  10. Postavite meje z wdTbl.Borders, ki določa sloge za notranje in zunanje črte.
  11. Kako lahko naredim aplikacijo Word vidno uporabniku v VBA?
  12. Nastavite vidnost z wdApp.Visible = True.
  13. Kateri ukaz se uporabi za dodajanje nove vrstice v tabelo, če trenutna vrstica presega obstoječe število vrstic?
  14. Dodajte novo vrstico z If (r - startRow + 2) > .Rows.Count Then .Rows.Add.
  15. Kako ustvarim nov dokument v Wordu z uporabo VBA?
  16. Ustvarite nov dokument z Set wdDoc = .Documents.Add.

Končne misli

Združevanje več Excelovih tabel v en Wordov dokument z uporabo VBA poenostavi postopek prenosa in oblikovanja podatkov. Z avtomatizacijo ustvarjanja tabel, oblikovanja in prelomov strani makro zagotavlja, da je končni dokument dobro organiziran in profesionalno predstavljen. Ta pristop prihrani čas in zmanjša tveganje za napake, zaradi česar je učinkovita rešitev za upravljanje in predstavitev podatkov na različnih platformah.