Комбиновање више Екцел табела у један Ворд документ са ВБА

Hugo Bertrand
петак, 19. јул 2024. 19:18:47
VBA

Ефикасно спајање Екцел података у Ворд

Управљање подацима на различитим платформама може бити тежак задатак, посебно када је потребно да саставите више табела из Екцел-а у Ворд документ. Користећи ВБА, можете аутоматизовати овај процес, обезбеђујући беспрекоран пренос података уз одржавање жељеног формата и структуре.

Овај чланак истражује ВБА макро који тренутно креира три одвојена Ворд документа из Екцел табела. Показаћемо како да модификујете код да бисте произвели све табеле у једном Ворд документу, са преломима страница после сваке табеле ради јасноће и организације.

Цомманд Опис
Set wdApp = New Word.Application Иницијализује нову инстанцу Ворд апликације.
wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak Умеће прелом странице на крају документа.
.Rows(1).HeadingFormat = True Одређује да је први ред табеле ред заглавља.
.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol) Додаје нову табелу у Ворд документ са наведеним редовима и колонама.
With wdTbl.Borders Поставља стил ивице табеле унутар и споља.
wdApp.Visible = True Чини апликацију Ворд видљивом кориснику.
If (r - startRow + 2) >If (r - startRow + 2) > .Rows.Count Then .Rows.Add Додаје нови ред у табелу ако тренутни ред премашује постојећи број редова.
Set wdDoc = .Documents.Add Креира нови документ у Ворд апликацији.

Разумевање ВБА макроа за комбиновање табела

Достављене скрипте показују како да се аутоматизује процес преноса података из више Екцел табела у један Ворд документ помоћу ВБА. Главни сценарио, , иницијализује нову инстанцу Ворд апликације са и креира нови документ користећи . Он идентификује редове у Екцел-у где се табеле завршавају провером да ли постоје празне ћелије и чува ове позиције у променљивим First и . Ово омогућава скрипти да зна где се свака табела завршава и где почиње. Макро затим креира табеле у Ворду користећи и попуњава ове табеле подацима из Екцел-а.

Да би се осигурало да је свака табела јасно одвојена, скрипта убацује прелом странице након сваке употребе табеле . Тхе потпрограм се позива три пута да генерише и форматира сваку табелу. Овај потпрограм дефинише заглавља, попуњава редове и колоне и примењује стилове ивица на табеле са и With wdTbl.Borders. Коначно, макро поставља видљивост Ворд апликације на труе витх , осигуравајући да корисник може да види генерисани документ. Овај приступ ефикасно обједињује више табела из Екцел-а у један Ворд документ, одржавајући јасноћу и формат.

Обједињавање више Екцел табела у један Ворд документ

Ова скрипта показује како да користите ВБА у Екцел-у за комбиновање више табела у један Ворд документ, заједно са преломима страница након сваке табеле.

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

Спајање Екцел података у Ворд помоћу ВБА

Ова скрипта користи ВБА за спајање табела са Екцел листа у један Ворд документ, обезбеђујући правилно форматирање и преломе страница.

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

Креирање и форматирање табела у Ворд-у помоћу ВБА

Када аутоматизујете пренос података из Екцел-а у Ворд помоћу ВБА, кључно је разумети како ефикасно управљати табелама и форматирати их. Један кључни аспект је осигурање да се подаци преносе исправно, одржавајући и структуру и читљивост. Ово захтева разумевање ВБА команди које контролишу креирање табеле, форматирање и уметање прелома страница. На пример, команда се користи за додавање нове табеле у Ворд документ, одређујући број редова и колона на основу Екцел података.

Још један важан елемент је форматирање табеле. Команде као што су подебљајте први ред, означавајући заглавља, док користи се за постављање стилова ивица за унутрашње и спољне линије табеле. Штавише, уметање прелома страница је од суштинског значаја како би се осигурало да се свака табела појављује на засебној страници, што се ради помоћу . Ове команде заједно обезбеђују да коначни документ буде добро организован и професионално форматиран.

Често постављана питања о ВБА макроима за Ворд и Екцел

  1. Како да покренем нову Ворд апликацију користећи ВБА?
  2. Користите да бисте иницијализовали нову инстанцу Ворд апликације.
  3. Како могу да убацим прелом странице у Ворд документ користећи ВБА?
  4. Уметните прелом странице са .
  5. Како да додам табелу у Ворд документ користећи ВБА?
  6. Додајте табелу користећи .
  7. Како могу да форматирам први ред табеле као заглавље?
  8. Поставите први ред као заглавље са и учините то смелим користећи .
  9. Како да поставим границе за табелу у Ворд-у користећи ВБА?
  10. Поставите границе са , наводећи стилове за унутрашње и спољашње линије.
  11. Како могу да учиним Ворд апликацију видљивом кориснику у ВБА?
  12. Подесите видљивост помоћу .
  13. Која команда се користи за додавање новог реда у табелу ако тренутни ред премашује постојећи број редова?
  14. Додајте нови ред са .
  15. Како да направим нови документ у Ворд-у користећи ВБА?
  16. Креирајте нови документ са .

Комбиновање више Екцел табела у један Ворд документ помоћу ВБА поједностављује процес преноса података и форматирања. Аутоматизацијом креирања табеле, форматирања и прелома страница, макро обезбеђује да коначни документ буде добро организован и професионално представљен. Овај приступ штеди време и смањује ризик од грешака, што га чини ефикасним решењем за управљање и представљање података на различитим платформама.