Sao chép dữ liệu một hay nhiều bảng từ Word sang Excel bằng VBA

Trong trường hợp bạn có một hay nhiều bảng dữ liệu trong Word, muốn chuyển sang Excel, ta có thể sử dụng VBA. Dưới đây là đoạn mã giúp bạn có thể chuyển bảng dữ liệu từ Word sang Excel.

Sub ExtractTablesToExcel ()

Dim oExcelApp As Excel.Application, oExcelWrkBook As Excel.Workbook
Dim oTbl As Table, oTbls As Tables
Dim nRows As Integer, rngPaste As Excel.Range, nPasteRow As Integer

‘tạo sổ làm việc excel’
Set oExcelApp = CreateObject (“Excel. Application “)
Set oExcelWrkBook = oExcelApp.Workbooks.Open(“path/filename”)
oExcelWrkBook.Application.Vosystem = True

nRows = 1
nPasteRow = 1
Set oTbls = ThisDocument.Tables

For Each oTbl Trong oTbls
oTbl.Select
Selection.Copy

Set rngPaste = oExcelWrkBook.Worksheets (1) .Cells (nPasteRow, 1)
rngPaste.PasteSpecial (xlPasteValues)
nRows =
oTbl.Rows +.Count nPasteRow. nRows + 1

Next oTbl

oExcelWrkBook.Worksheets (1)

.Activate Set oExcelApp = Nothing
Set oExcelWrkBook = Nothing
Set oTbls = Nothing

End Sub

Sau khi thực hiện và chạy đoạn mã VBA trên, bảng dữ liệu sẽ được sao chép từ Word sang Excel.

Chúc bạn thành công!

Xem thêm

Các Macro Excel và mẹo hữu ích tiết kiệm thời gian

Cách sử dụng công thức Excel trong Word

Combo khóa học: Excel For Professionals

5 cách tìm hàng cuối cùng bằng Excel VBA

 

Để lại một bình luận

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *

1 + 1 = ? (Nhập Haii để trả lời đúng)

Bài viết liên quan
Truy vấn lồng (Subquery) trong SQL – Bí kíp giúp xử lý và truy xuất dữ liệu với mức độ phức tạp cao

Truy vấn lồng (Subquery) là một trong những công cụ hiệu quả trong SQL, giúp xử lý và truy xuất dữ liệu với mức độ phức tạp cao hơn so với

Xem thêm
[HOẠT ĐỘNG CỘNG ĐỒNG] Cuộc thi Doanh nhân tập sự – CLB Kỹ năng Doanh nhân (ACTION CLUB) – CSII Đại học Ngoại Thương TP. HCM (FTU2)

Ngày 21/06/2025 vừa rồi, với danh vị là Nhà tài trợ Học bổng – UniTrain hân hạnh tham dự chung kết cuộc thi Doanh nhân tập sự. Cuộc thi với quy

Xem thêm
Hàm TRIMRANGE() – Hàm xóa giá trị trống “đỉnh” hơn cả TRIM.

Như bạn đã biết hàm TRIM() trong Excel giúp loại bỏ các ký tự trống (khoảng trắng). Tương tự vậy hàm TRIMRANGE() được sử dụng để xóa các giá trị trống khỏi một phạm vi

Xem thêm
[HOẠT ĐỘNG CỘNG ĐỒNG] Cuộc thi Financial Student Contest (FSC) mùa 13 – CLB Tài chính – Chứng khoán (SeSC) – Đại học Ngoại Thương CSII TP. HCM (FTU2)

Chiều tối ngày 13/06/2025, Chung kết cuộc thi Financial Student Contest (FSC) mùa 13 do CLB Tài chính – Chứng khoán (SeSC) thuộc Đại học Ngoại Thương CSII TP. HCM (FTU2)

Xem thêm