Kombiniranje više Excel tablica u jedan Word dokument s VBA

Hugo Bertrand

Petak, 19. srpnja 2024. u 18:20:03

Učinkovito spajanje Excel podataka u Word
Upravljanje podacima na različitim platformama može biti glomazan zadatak, osobito kada trebate kompajlirati više tablica iz Excela u Word dokument. Korištenjem VBA možete automatizirati ovaj proces, osiguravajući besprijekoran prijenos podataka uz zadržavanje željenog formata i strukture.
Ovaj članak istražuje VBA makronaredbu koja trenutno stvara tri odvojena Word dokumenta iz Excel tablica. Pokazat ćemo kako modificirati kod za izradu svih tablica u jednom Word dokumentu, s prijelomima stranica nakon svake tablice radi jasnoće i organizacije.

Naredba Opis

Set wdApp = New Word.Application Inicijalizira novu instancu Word aplikacije.

wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak Umeće prijelom stranice na kraj dokumenta.

.Rows(1).HeadingFormat = True Određuje da je prvi redak tablice redak zaglavlja.

.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol) Dodaje novu tablicu u dokument programa Word s navedenim redovima i stupcima.

With wdTbl.Borders Postavlja stil obruba za unutarnje i vanjske linije tablice.

wdApp.Visible = True Čini Word aplikaciju vidljivom korisniku.

If (r - startRow + 2) >If (r - startRow + 2) > .Rows.Count Then .Rows.Add Dodaje novi red u tablicu ako trenutni red premašuje postojeći broj redaka.

Set wdDoc = .Documents.Add Stvara novi dokument u Word aplikaciji.

Naredba	Opis
Set wdApp = New Word.Application	Inicijalizira novu instancu Word aplikacije.
wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak	Umeće prijelom stranice na kraj dokumenta.
.Rows(1).HeadingFormat = True	Određuje da je prvi redak tablice redak zaglavlja.
.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)	Dodaje novu tablicu u dokument programa Word s navedenim redovima i stupcima.
With wdTbl.Borders	Postavlja stil obruba za unutarnje i vanjske linije tablice.
wdApp.Visible = True	Čini Word aplikaciju vidljivom korisniku.
If (r - startRow + 2) >If (r - startRow + 2) > .Rows.Count Then .Rows.Add	Dodaje novi red u tablicu ako trenutni red premašuje postojeći broj redaka.
Set wdDoc = .Documents.Add	Stvara novi dokument u Word aplikaciji.

Razumijevanje VBA makronaredbe za kombiniranje tablica

Priložene skripte pokazuju kako automatizirati proces prijenosa podataka iz više Excel tablica u jedan Word dokument pomoću VBA. Glavni scenarij, , inicijalizira novu instancu Wordove aplikacije s i stvara novi dokument pomoću . Identificira retke u Excelu gdje tablice završavaju provjerom praznih ćelija i pohranjuje te pozicije u varijablama First i . To omogućuje skripti da zna gdje svaka tablica završava i počinje. Makro zatim stvara tablice u Wordu pomoću i popunjava te tablice podacima iz Excela.

Kako bi se osiguralo da je svaka tablica jasno odvojena, skripta umeće prijelom stranice nakon svake tablice koja koristi . The potprogram se poziva tri puta za generiranje i formatiranje svake tablice. Ovaj potprogram definira zaglavlja, popunjava retke i stupce i primjenjuje stilove obruba na tablice s i With wdTbl.Borders. Konačno, makronaredba postavlja vidljivost Wordove aplikacije na true with , osiguravajući da korisnik može vidjeti generirani dokument. Ovaj pristup učinkovito konsolidira više tablica iz Excela u jedan Word dokument, održavajući jasnoću i format.

Konsolidacija više Excel tablica u jedan Word dokument

Ova skripta pokazuje kako koristiti VBA u Excelu za kombiniranje više tablica u jedan Word dokument, zajedno s prijelomima stranica nakon svake tablice.

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

Spajanje Excel podataka u Word s VBA

Ova skripta koristi VBA za spajanje tablica s Excel lista u jedan Word dokument, osiguravajući pravilno oblikovanje i prijelome stranica.

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

Stvaranje i oblikovanje tablica u Wordu s VBA

Prilikom automatizacije prijenosa podataka iz Excela u Word pomoću VBA, ključno je razumjeti kako učinkovito upravljati tablicama i formatirati ih. Jedan od ključnih aspekata je osiguravanje ispravnog prijenosa podataka, uz održavanje strukture i čitljivosti. To zahtijeva razumijevanje VBA naredbi koje upravljaju stvaranjem tablice, oblikovanjem i umetanjem prijeloma stranica. Na primjer, naredba koristi se za dodavanje nove tablice u Word dokument, određujući broj redaka i stupaca na temelju Excel podataka.

Drugi važan element je formatiranje tablice. Naredbe kao što su podebljajte prvi red, označavajući zaglavlja, dok koristi se za postavljanje stilova obruba za unutarnje i vanjske linije tablice. Nadalje, umetanje prijeloma stranica bitno je kako bi se osiguralo da se svaka tablica pojavi na zasebnoj stranici, što se radi pomoću . Ove naredbe zajednički osiguravaju da je konačni dokument dobro organiziran i profesionalno oblikovan.

Često postavljana pitanja o VBA makronaredbama za Word i Excel

Kako mogu pokrenuti novu Word aplikaciju koristeći VBA?
Koristiti za pokretanje nove instance Word aplikacije.
Kako mogu umetnuti prijelom stranice u Word dokument koristeći VBA?
Umetnite prijelom stranice pomoću .
Kako mogu dodati tablicu u Word dokument koristeći VBA?
Dodajte tablicu pomoću .
Kako mogu oblikovati prvi redak tablice kao zaglavlje?
Postavite prvi redak kao zaglavlje s i podebljajte pomoću .
Kako mogu postaviti granice za tablicu u Wordu koristeći VBA?
Postavite granice s , određivanje stilova za unutarnje i vanjske linije.
Kako mogu učiniti Word aplikaciju vidljivom korisniku u VBA?
Postavite vidljivost pomoću .
Koja se naredba koristi za dodavanje novog retka u tablicu ako trenutni red premašuje postojeći broj redaka?
Dodajte novi red s .
Kako mogu stvoriti novi dokument u Wordu koristeći VBA?
Stvorite novi dokument s .

Kombiniranje više Excel tablica u jedan Word dokument pomoću VBA pojednostavljuje proces prijenosa podataka i oblikovanja. Automatizacijom izrade tablice, oblikovanja i prijeloma stranica, makronaredba osigurava da je konačni dokument dobro organiziran i profesionalno predstavljen. Ovaj pristup štedi vrijeme i smanjuje rizik od pogrešaka, što ga čini učinkovitim rješenjem za upravljanje i predstavljanje podataka na različitim platformama.