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
Khám phá hàm Lag và Lead trong SQL

Trong phân tích dữ liệu, hàm LAG() và LEAD() sẽ là công cụ hỗ trợ đắc lực cho việc so sánh giá trị hiện tại với giá trị liền trước hoặc liền

Xem thêm
[RECAP] Training Top 20 – myInsight – MDS Datathon Challenge 2025 – CLB Toán ứng dụng & Khoa học dữ liệu (MDS) – Đại học Ngoại Thương CSII TP. HCM (FTU2)

Tối ngày 18/05/2025, buổi training dành riêng cho Top 20 đội thi xuất sắc nhất cuộc thi myInsight – MDS Datathon Challenge 2025 đã diễn ra vô cùng thành công thông

Xem thêm
Khám Phá Tính Năng Nhóm và Phân Nhóm Dữ Liệu trong Power BI

Trong quá trình xây dựng biểu đồ, Power BI Desktop sẽ tự động tổng hợp dữ liệu thành các nhóm dựa trên các giá trị có trong tập dữ liệu gốc.

Xem thêm
[RECAP] Chuỗi Workshop MARKET-A – CLB Chứng khoán SCUE – Đại học Kinh tế TP. HCM (UEH)

Chiều ngày 15/05/2025 vừa rồi, UniTrain đã hân hạnh có mặt với vai trò là Nhà tài trợ Bạc tại buổi Workshop 2: OPTIVEST thuộc chuỗi chương trình Workshop MARKET-A do

Xem thêm