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
Focus Cell trong Excel – Tính năng giúp tăng khả năng điều hướng

Đã bao giờ bạn lạc trôi giữa hàng trăm dòng, hàng ngàn cột trên Excel… mà không biết mình đang ở đâu? Nếu “mất phương hướng” là cảm giác quen thuộc

Xem thêm
Trí tuệ nhân tạo AI là gì? Khái niệm, phân loại và vai trò trong cuộc sống

Trong thời đại cách mạng công nghiệp 4.0, trí tuệ nhân tạo AI đang trở thành một phần không thể thiếu trong nhiều lĩnh vực của cuộc sống. Từ các trợ

Xem thêm
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
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