Làm cách nào để liệt kê tất cả các bảng tổng hợp từ một sổ làm việc?

Giả sử bạn có một sổ làm việc lớn chứa nhiều bảng tổng hợp, bây giờ, bạn muốn liệt kê tất cả các bảng tổng hợp trong sổ làm việc này, có được không? Tất nhiên, mã VBA sau trong bài viết này sẽ giúp bạn. Để biết thêm thông tin chi tiết, mời bạn đọc tham khảo bài viết dưới đây.

Liệt kê tất cả các bảng tổng hợp từ một sổ làm việc với mã VBA

Liệt kê tất cả các bảng tổng hợp từ một sổ làm việc với mã VBA

Mã VBA sau có thể giúp bạn liệt kê tất cả các tên bảng tổng hợp cùng với các thuộc tính của chúng, chẳng hạn như phạm vi dữ liệu nguồn, tên trang tính, ngày làm mới, v.v.

1. Mở sổ làm việc của bạn mà bạn muốn liệt kê tất cả các bảng tổng hợp.

2. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Liệt kê tất cả các bảng tổng hợp từ một sổ làm việc

Sub ListPivotsInfor()
'Update 20141112
    Dim St As Worksheet
    Dim NewSt As Worksheet
    Dim pt As PivotTable
    Dim I, K As Long
    Application.ScreenUpdating = False
    Set NewSt = Worksheets.Add
    I = 1: K = 2
    With NewSt
        .Cells(I, 1) = "Name"
        .Cells(I, 2) = "Source"
        .Cells(I, 3) = "Refreshed by"
        .Cells(I, 4) = "Refreshed"
        .Cells(I, 5) = "Sheet"
        .Cells(I, 6) = "Location"
        For Each St In ActiveWorkbook.Worksheets
            For Each pt In St.PivotTables
                I = I + 1
                .Cells(I, 1).Value = pt.Name
                .Cells(I, 2).Value = pt.SourceData
                .Cells(I, 3).Value = pt.RefreshName
                .Cells(I, 4).Value = pt.RefreshDate
                .Cells(I, 5).Value = St.Name
                .Cells(I, 6).Value = pt.TableRange1.Address
            Next
        Next
        .Activate
    End With
    Application.ScreenUpdating = True
End Sub

4. Sau đó nhấn F5 để chạy mã này, tất cả các tên bảng tổng hợp, phạm vi dữ liệu nguồn, tên trang tính và các thuộc tính khác được liệt kê trong một trang tính mới được đặt ở phía trước trang tính đang hoạt động của bạn như ảnh chụp màn hình sau:

Các bài liên quan:

Làm cách nào để kiểm tra xem bảng tổng hợp có tồn tại trong sổ làm việc không?

Làm cách nào để thêm nhiều trường vào bảng tổng hợp?