Cách xuất dữ liệu từ Excel sang Word bằng VBA

Một số ví dụ về sao chép dữ liệu từ Excel sang Word bằng VBA

Đoạn mã dưới đây sẽ giúp bạn hiểu rõ hơn về sao chép dữ liệu từ Excel sang Word bằng VBA. Bạn hoàn toàn có thể sao chép một vùng dữ liệu Excel và dán nó vào tài liệu Word mới. Để sử dụng sau này, bạn hãy lưu tài liệu Word đó vào ổ đĩa. 

'VBA Code To Write to Copy data from Excel to A Document

Sub ExcelToWord()

   'Using Early Binding

    Dim wordApp As Word.Application

    Dim mydoc As Word.Document

    'Creating a new instance of word only if there no other instances

    Set wordApp = New Word.Application

    'Making word App Visible

    wordApp.Visible = True

    'Creating a new document

    Set mydoc = wordApp.Documents.Add()

    'copying the content from excel sheet

    ThisWorkbook.Worksheets("sheet1").Range("A1:g20").Copy

    'Pasting on the document

    mydoc.Paragraphs(1).Range.PasteExcelTable _

                               LinkedToExcel:=False, _

                               WordFormatting:=False, 

                               RTF:=False

    'saving the document

    mydoc.SaveAs2 "MyDoc"

    'closing the document

    mydoc.Close

    'Emptying the Clipboard 

    CutCopyMode = False

End Sub

Giải thích các bước sao chép dữ liệu Excel sang tệp Word bằng VBA

Dưới đây, NIIT-ICT Hà Nội sẽ giải thích rõ hơn về đoạn mã trên để bạn đọc hiểu rõ hơn về các bước sao chép dữ liệu Excel sang tệp Word bằng VBA. 

1. Tạo các biến của ứng dụng và loại tài liệu Word

 Dim wordApp As Word.Application

 Dim mydoc As Word.Document

Đây là 2 biến bắt buộc mà chúng ta đã khai báo. Để làm được điều này, chúng ta cần thêm tham chiếu vào ứng dụng Word trước đó. Cách thêm tham chiếu vào ứng dụng Word đơn giản, chỉ cần đi tới các công cụ trong menu => tùy chọn tham chiếu => tham chiếu Word.