Kết hợp nhiều bảng Excel thành một tài liệu Word bằng VBA

Hợp nhất nhiều bảng Excel thành một tài liệu Word

Tập lệnh này trình bày cách sử dụng VBA trong Excel để kết hợp nhiều bảng thành một tài liệu Word duy nhất, hoàn thành với các ngắt trang sau mỗi bảng.

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

Trộn dữ liệu Excel vào Word bằng VBA

Tập lệnh này sử dụng VBA để hợp nhất các bảng từ một trang tính Excel thành một tài liệu Word duy nhất, đảm bảo định dạng và ngắt trang chính xác.

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

Câu hỏi thường gặp về VBA Macro cho Word và Excel

1. Làm cách nào để khởi động ứng dụng Word mới bằng VBA?
2. Sử dụng Set wdApp = New Word.Application để khởi tạo một phiên bản mới của ứng dụng Word.
3. Làm cách nào tôi có thể chèn ngắt trang trong tài liệu Word bằng VBA?
4. Chèn ngắt trang bằng wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak.
5. Làm cách nào để thêm bảng vào tài liệu Word bằng VBA?
6. Thêm bảng bằng cách sử dụng wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol).
7. Làm cách nào tôi có thể định dạng hàng đầu tiên của bảng làm tiêu đề?
8. Đặt hàng đầu tiên làm tiêu đề với .Rows(1).HeadingFormat = True và làm cho nó đậm bằng cách sử dụng số 8.
9. Làm cách nào để đặt đường viền cho bảng trong Word bằng VBA?
10. Đặt đường viền với wdTbl.Borders, chỉ định kiểu cho các dòng bên trong và bên ngoài.
11. Làm cách nào tôi có thể hiển thị ứng dụng Word cho người dùng trong VBA?
12. Đặt mức độ hiển thị với wdApp.Visible = True.
13. Lệnh nào được sử dụng để thêm hàng mới vào bảng nếu hàng hiện tại vượt quá số hàng hiện có?
14. Thêm một hàng mới với If (r - startRow + 2) > .Rows.Count Then .Rows.Add.
15. Làm cách nào để tạo tài liệu mới trong Word bằng VBA?
16. Tạo một tài liệu mới với Set wdDoc = .Documents.Add.

suy nghĩ cuối cùng

Việc kết hợp nhiều bảng Excel vào một tài liệu Word bằng VBA sẽ hợp lý hóa quá trình truyền và định dạng dữ liệu. Bằng cách tự động tạo bảng, định dạng và ngắt trang, macro đảm bảo rằng tài liệu cuối cùng được tổ chức tốt và trình bày chuyên nghiệp. Cách tiếp cận này giúp tiết kiệm thời gian và giảm nguy cơ xảy ra lỗi, khiến nó trở thành giải pháp hiệu quả để quản lý và trình bày dữ liệu trên các nền tảng khác nhau.