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
Xu hướng mới của trí tuệ nhân tạo (AI) trong năm 2025

Cập nhật các xu hướng mới nhất về trí tuệ nhân tạo AI năm 2025 như GPT-5, video AI, giáo dục thông minh và chiến lược AI tại Việt Nam. Trí

Xem thêm
AI và 5 ứng dụng thực tiễn trong năm 2025

Năm 2025 đánh dấu một bước ngoặt quan trọng trong hành trình ứng dụng trí tuệ nhân tạo (AI) vào đời sống và công việc. Những tiến bộ trong công nghệ đã

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