Cách chuyển Form dữ liệu từ Word sang Excel


Chuyển dữ liệu từ Word sang Excel, bạn đã biết cách làm này chưa. Đây là thủ thuật khá hữu ích giúp bạn chuyển dữ liệu từ Word sang Excel để phục vụ các mục đích khác nhau.

Cách chuyển Form dữ liệu từ Word sang Excel

Trong bài viết Taimienphi hướng dẫn các bạn sẽ lấy ví dụ với bảng tính kết quả có 2 trường SchoolName và Address. Được lưu ở đường dẫn E:\Examples\Gradebook.xlsx

Bước 1: Thêm tab Developer cho Word. Chọn Office button Word options

Bước 2: Chọn tab Popular → tick chọn Show Developer tab in the Ribbon OK.

Bước 3: Chọn tab Developer Legacy Tools Text Form Field

Xuất hiện trên trang Word bây giờ là công cụ Text Form Field.

Bước 4: Double-click vào công cụ Text Form Field. Gõ txtSchooName vào ô BookmarkOK.

Bước 5: Tạo thêm 1 công cụ Text Form Field nữa cho trường Address.

Bước 6: txtAddress vào ô Bookmark OK.

Bước 7: Bấm tổ hợp phím Alt + F11 để khởi động VBE (Visual Basic Editor).

Bước 8: Vào Insert Module

Bước 9: Copy đoạn code sau vào cửa sổ module. Sau đó lưu và trở về Word.

 Sub TransferToExcel()

'Transfer a single record from the form fields to an Excel workbook.

Dim doc As Document

Dim strSchoolName As String

Dim strPhone As String

Dim strSQL As String

Dim cnn As ADODB.Connection

'Get data.

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)

'Define sql string used to insert each record in the destination workbook.

'Don't omit the $ in the sheet identifier.

strSQL = "INSERT INTO [PhoneList$]" _

& " (SchoolName, Phone)" _

& " VALUES (" _

& strSchoolName & ", " _

& strPhone _

& ")"

Debug.Print strSQL

‘Define connection string and open connection to destination workbook file.

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

Transfer data

Execute strSQL

End With

Set doc = Nothing

Set cnn = Nothing

Exit Sub

ErrHandler:

MsgBox Err.Number & ": " & Err.Description, _

-vbOKOnly, "Error"

On Error GoTo 0

On Error Resume Next

cnn.Close

Set doc = Nothing

Set cnn = Nothing

End Sub

Bước 10: Double-click vào Text Form Field của trường Address. Chọn TransferToExcel ở ô Exit OK.

Bây giờ, khi bạn bấm phím Tab trên bàn phím thì trường Address sẽ 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 như file excel và đường dẫn đến file của bạn khác thì bạn hãy sửa lại trong đoạn code cho đúng theo tên file và đường dẫn đến file excel của bạn.

Nắm được dữ liệu chính là chìa khóa để chuyển đổi mỗi bản ghi mới mà không nảy sinh vấn đề nghiêm trọng gì. Đoạn mã ví dụ chứa đựng các kĩ năng cần thiết giúp bạn bắt đầu. Bạn cần phải nâng cao kỹ thuật để điều chỉnh dữ liệu và một số các yêu cầu khác.

http://thuthuat.taimienphi.vn/chuyen-form-du-lieu-tu-word-sang-excel-1424n.aspx
Như vậy, Taimienphi.vn đã hướng dẫn các bạn xong cách chuyển dữ liệu (Form) từ word sang excel, nếu muốn chuyển ngược lại, các bạn có thể làm theo cách chuyển excel sang word, copy và chèn excel vào word.


Tác giả: Trần Văn Việt     (4.0★- 10 đánh giá)  ĐG của bạn?

  

Bài viết liên quan

Cách chuyển dữ liệu hình ảnh, video, âm thanh... từ iPhone cũ sang iPhone mới
Sử dụng Paste trong Excel, dùng Paste Special di chuyển dữ liệu trong bảng tính Excel
Chuyển PDF sang Word bằng Free PDF to Word Converter trên PC
Chuyển dữ liệu từ Windows XP sang Windows 7/8 bằng PCmover Free
Chuyển excel sang word, cách copy, chèn excel vào word
Từ khoá liên quan:

chuyển form dữ liệu từ word sang excel

, chuyển dữ liệu từ word sang excel,
SOFT LIÊN QUAN
  • PDF To Word Converter Pro

    Đổi đuôi dữ liệu sang PDF

    PDF To Word Converter Pro cho phép bạn tạo file PDF từ hơn 100 định dạng đầu vào khác nhau, với tốc độ chuyển đổi nhanh và trích xuất file với chất lượng tốt nhất. Bạn có thể chuyển đổi file ở chế độ hàng loạt, xem các t ...

Tin Mới

  • Cài và sử dụng Evernote cho Chrome

    Trên trình duyệt Google Chrome người dùng có một tiện ích khá thú vị là Evernote. Công cụ này sẽ thay bạn ghi chú thông tin, dữ liệu, công việc một cách nhanh chóng. Chỉ cần cài và sử dụng Evernote cho Chrome theo hướng dẫn sau đây, bạn sẽ tạo nhanh được file ghi chú trên Chrome.

  • Gõ tắt trong Unikey, mẹo soạn văn bản nhanh bằng Unikey

    Để gõ Tiếng Việt có dấu trên máy tính, người dùng cần phải sử dụng đến phần mềm hỗ trợ gõ tiếng Việt như Unikey. Là một phần mềm gõ tiếng Việt với nhiều chức năng thú vị giúp cho người dùng soạn thảo văn bản nhanh hơn.

  • Đếm số từ trên Notepad không cần word, dịch vụ trực tuyến?

    Thay vì sử dụng công cụ Word thì bạn sử dụng tới Notepad để soạn thảo văn bản vì nó thực sự nhẹ hơn và công việc của bạn không cần đến nhiều các tính năng mà Word đem lại. Tuy nhiên có một trở ngại mà Notepad mang đến đó là nó không có tính năng đếm số từ, đếm số ký tự. Vậy phải làm gì để có thể đếm số từ, số ký tự trên Notepad lúc cần? Hãy theo dõi bài viết dưới đây để tìm được câu trả lời nhé.

  • Phím tắt File Explorer trên Windows 10

    Không thể phủ nhận File Explorer ngày càng hoàn thiện trên Windows thông qua các thời kỳ. Trên Windows 10 File Explorer được cải tiến cũng như bổ sung rất nhiều tính năng mới giúp chúng ta truy xuất thư mục cũng như thao tác nhanh gấp bội phần. Và Taimienphi.vn sẽ giúp các bạn sử dụng nhanh hơn nữa với các phím tắt File Explorer trên Windows 10 nhé.


 Website tìm giá rẻ nhất thị trường web so sanh có nhiều mẫu hàng hóa giá rẻ để so sánh giá