Łączenie wielu tabel Excela w jeden dokument Word za pomocą VBA

VBA

Efektywne łączenie danych Excela z Wordem

Zarządzanie danymi na różnych platformach może być uciążliwym zadaniem, zwłaszcza gdy trzeba skompilować wiele tabel z programu Excel do dokumentu programu Word. Stosując VBA, możesz zautomatyzować ten proces, zapewniając płynny transfer danych przy zachowaniu pożądanego formatu i struktury.

W tym artykule omówiono makro VBA, które obecnie tworzy trzy oddzielne dokumenty programu Word na podstawie tabel programu Excel. Pokażemy, jak zmodyfikować kod, aby utworzyć wszystkie tabele w jednym dokumencie programu Word, z podziałami stron po każdej tabeli dla przejrzystości i organizacji.

Komenda Opis
Set wdApp = New Word.Application Inicjuje nowe wystąpienie aplikacji Word.
wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak Wstawia podział strony na końcu dokumentu.
.Rows(1).HeadingFormat = True Określa, że ​​pierwszy wiersz tabeli jest wierszem nagłówka.
.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol) Dodaje nową tabelę do dokumentu programu Word z określonymi wierszami i kolumnami.
With wdTbl.Borders Ustawia styl obramowania tabeli wewnątrz i na zewnątrz linii.
wdApp.Visible = True Sprawia, że ​​aplikacja Word jest widoczna dla użytkownika.
If (r - startRow + 2) >If (r - startRow + 2) > .Rows.Count Then .Rows.Add Dodaje nowy wiersz do tabeli, jeśli bieżący wiersz przekracza istniejącą liczbę wierszy.
Set wdDoc = .Documents.Add Tworzy nowy dokument w aplikacji Word.

Zrozumienie makra VBA do łączenia tabel

Dostarczone skrypty demonstrują, jak zautomatyzować proces przenoszenia danych z wielu tabel Excela do jednego dokumentu Worda przy użyciu VBA. Główny skrypt, , inicjuje nową instancję aplikacji Word za pomocą i tworzy nowy dokument za pomocą . Identyfikuje wiersze w programie Excel, w których kończą się tabele, sprawdzając, czy komórki są puste, i przechowuje te pozycje w zmiennych First I . Dzięki temu skrypt wie, gdzie kończy się i zaczyna każda tabela. Następnie makro tworzy tabele w programie Word za pomocą i wypełnia te tabele danymi z programu Excel.

Aby zapewnić wyraźne oddzielenie każdej tabeli, skrypt wstawia podział strony po każdym użyciu tabeli . The podprogram jest wywoływany trzy razy w celu wygenerowania i sformatowania każdej tabeli. Ten podprogram definiuje nagłówki, wypełnia wiersze i kolumny oraz stosuje style obramowania do tabel I With wdTbl.Borders. Na koniec makro ustawia widoczność aplikacji Word na true with , zapewniając użytkownikowi możliwość zobaczenia wygenerowanego dokumentu. Takie podejście skutecznie konsoliduje wiele tabel z programu Excel w jeden dokument programu Word, zachowując przejrzystość i format.

Konsolidacja wielu tabel programu Excel w jeden dokument programu Word

Ten skrypt demonstruje, jak używać języka VBA w programie Excel do łączenia wielu tabel w jeden dokument programu Word, wraz z podziałami stron po każdej tabeli.

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

Łączenie danych Excela z Wordem za pomocą VBA

Skrypt ten wykorzystuje język VBA do łączenia tabel z arkusza programu Excel w jeden dokument programu Word, zapewniając prawidłowe formatowanie i podziały stron.

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

Tworzenie i formatowanie tabel w programie Word za pomocą języka VBA

Automatyzując przesyłanie danych z Excela do Worda za pomocą VBA, ważne jest, aby zrozumieć, jak efektywnie zarządzać i formatować tabele. Jednym z kluczowych aspektów jest zapewnienie prawidłowego przesyłania danych, zachowując zarówno strukturę, jak i czytelność. Wymaga to zrozumienia poleceń języka VBA sterujących tworzeniem, formatowaniem i wstawianiem podziałów tabeli. Na przykład polecenie służy do dodania nowej tabeli do dokumentu Word, określając liczbę wierszy i kolumn na podstawie danych Excel.

Kolejnym ważnym elementem jest formatowanie tabeli. Komendy takie jak pogrubienie pierwszego wiersza, wskazując nagłówki, podczas gdy służy do ustawiania stylów obramowania zarówno wewnętrznych, jak i zewnętrznych linii tabeli. Ponadto wstawianie podziałów stron jest niezbędne, aby każda tabela pojawiła się na osobnej stronie, co odbywa się za pomocą polecenia . Polecenia te wspólnie zapewniają, że dokument końcowy będzie dobrze zorganizowany i profesjonalnie sformatowany.

Często zadawane pytania dotyczące makr VBA dla programów Word i Excel

  1. Jak uruchomić nową aplikację Word przy użyciu VBA?
  2. Używać aby zainicjować nową instancję aplikacji Word.
  3. Jak wstawić podział strony w dokumencie programu Word za pomocą języka VBA?
  4. Wstaw podział strony za pomocą .
  5. Jak dodać tabelę do dokumentu programu Word za pomocą VBA?
  6. Dodaj tabelę za pomocą .
  7. Jak sformatować pierwszy wiersz tabeli jako nagłówek?
  8. Ustaw pierwszy wiersz jako nagłówek za pomocą i pogrubienie za pomocą .
  9. Jak ustawić obramowanie tabeli w programie Word przy użyciu języka VBA?
  10. Ustaw granice za pomocą , określając style linii wewnętrznych i zewnętrznych.
  11. Jak sprawić, by aplikacja Word była widoczna dla użytkownika w VBA?
  12. Ustaw widoczność za pomocą .
  13. Jakiego polecenia używa się do dodania nowego wiersza do tabeli, jeśli bieżący wiersz przekracza istniejącą liczbę wierszy?
  14. Dodaj nowy wiersz za pomocą .
  15. Jak utworzyć nowy dokument w programie Word przy użyciu VBA?
  16. Utwórz nowy dokument za pomocą .

Połączenie wielu tabel Excela w jeden dokument Worda przy użyciu VBA usprawnia proces przesyłania i formatowania danych. Automatyzując tworzenie tabeli, formatowanie i podziały stron, makro zapewnia, że ​​dokument końcowy jest dobrze zorganizowany i profesjonalnie zaprezentowany. Takie podejście oszczędza czas i zmniejsza ryzyko błędów, dzięki czemu jest wydajnym rozwiązaniem do zarządzania i prezentacji danych na różnych platformach.