Buzz
Khám Phá Bí Mật: Chuyển Dữ Liệu Từ Word Sang Excel Đơn Giản Nhưng Hiệu Quả
Những Bước Đơn Giản Chuyển Form Dữ Liệu Từ Word Sang Excel
Trong hướng dẫn của Mytour, chúng ta sẽ sử dụng bảng tính kết quả với 2 trường SchoolName và Address, được lưu tại đường dẫn E:\Examples\Gradebook.xlsx
Bước 1: Thêm tab Developer cho Word. Bạn chỉ cần chọn Office button → Word options
Bước 2: Trong tab Popular → tích chọn Show Developer tab in the Ribbon → OK.
Bước 3: Chọn tab Developer → Legacy Tools → Text Form Field
Trên trang Word hiện nay đã có công cụ Text Form Field.
Bước 4: Nhấp đúp vào công cụ Text Form Field. Điền txtSchooName vào ô Bookmark → OK.
Bước 5: Tạo thêm 1 công cụ Text Form Field khác cho trường Address.
Bước 6: Điền txtAddress vào ô Bookmark → OK.
Bước 7: Nhấn tổ hợp phím Alt + F11 để mở VBE (Visual Basic Editor).
Bước 8: Chọn Insert → Module
Bước 9: Sao chép đoạn mã sau vào cửa sổ module. Sau đó, lưu lại và quay về Word.
Sub TransferToExcel()
'Chuyển một bản ghi từ các trường biểu mẫu sang bảng tính Excel.
Dim doc As Document
Dim strSchoolName As String
Dim strPhone As String
Dim strSQL As String
Dim cnn As ADODB.Connection
'Lấy dữ liệu.
Set doc = ThisDocument
On Error GoTo ErrHandler
strSchoolName = Chr(39) & doc.FormFields('txtSchoolName').Result & Chr(39)
strPhone = Chr(39) & doc.FormFields('txtPhone').Result & Chr(39)
'Xác định chuỗi SQL được sử dụng để chèn từng bản ghi trong bảng tính đích.
'Không được bỏ qua $ trong người định danh bảng.
strSQL = 'INSERT INTO [PhoneList$]' _
& ' (SchoolName, Phone)' _
& ' VALUES (' _
& strSchoolName & ', ' _
& strPhone _
& ')'
Debug.Print strSQL
'Xác định chuỗi kết nối và mở kết nối đến tệp bảng tính đích.
Set cnn = New ADODB.Connection
With cnn
.Provider = 'Microsoft.ACE.OLEDB.12.0'
.ConnectionString = 'Data Source=E:\Examples\Gradebook.xlsx;' & _
-'Extended Properties=Excel 8.0;'
.Open
Chuyển dữ liệu
Execute strSQL
End With
Set doc = Nothing
Set cnn = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number & ': ' & Err.Description, _
-vbOKOnly, 'Lỗi'
On Error GoTo 0
On Error Resume Next
cnn.Close
Set doc = Nothing
Set cnn = Nothing
End Sub
Bước 10: Click đúp vào Text Form Field của trường Address. Chọn ChuyểnSangExcel ở ô Thoát → OK.
Bây giờ, khi bạn nhấn phím Tab trên bàn phím, trường Address sẽ tự động sao chép dữ liệu từ hai trường SchoolName và Address đến tập tin Gradebook.xlsx với đường dẫn E:\Examples\Gradebook.xlsx. Nếu tên file Excel và đường dẫn khác, hãy chỉnh sửa trong đoạn mã để phù hợp.
Hiểu rõ về dữ liệu là chìa khóa để chuyển đổi mỗi bản ghi mới mà không gặp vấn đề nào. Đoạn mã ví dụ này cung cấp những kỹ năng cần thiết để bạn bắt đầu. Để điều chỉnh dữ liệu và đáp ứng các yêu cầu cụ thể, bạn cần nâng cao kỹ thuật.
Đó là hướng dẫn của Mytour về cách chuyển dữ liệu (Form) từ Word sang Excel. Nếu bạn muốn thực hiện theo chiều ngược lại, hãy tham khảo cách chuyển Excel sang Word, bạn có thể sao chép và chèn Excel vào Word.
