• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Liên kết dữ liệu Excel sang Word

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

Moderator: tungblt

NguyenNgocSon
Thành viên chính thức
Thành viên chính thức
Posts: 17
Joined: Fri 04/04/2008 3:25 am
Has thanked: 3 times

Liên kết dữ liệu Excel sang Word

Postby NguyenNgocSon » Fri 26/03/2010 9:08 pm

Chào cả nhà! Mình có vấn đề này muốn hỏi mọi người. Mình đang có một bảng tính trong excel đã tính toán và có các số liệu. Bây giờ mình muốn cập nhật dữ liệu đó tự động sang Word có Macro nào hỗ trợ không nhỉ? Vì mình làm báo cáo nội dung thì không thay đổi chỉ có số liệu các tháng là thay đổi nên muốn cập nhập dữ liệu đó tự động sang Word. Cám ơn mọi người !
Thân !!!



User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: Liên kết dữ liệu Excel sang Word

Postby truongphu » Sat 27/03/2010 3:57 pm

Bạn có thể chạy code Macro (Module), UserForm (VBA) hay Form (VB6), tất cả đều tương đồng;
lệnh chạy macro là tổ hợp phím tắt, lệnh chạy trên VBA hay VB6 là nhấn command

1- Nếu viết trên VB6 thì chèn 2 thư viện Word và Excel, ví dụ sau đây tôi viết trên VB6 có chèn sẵn
nếu viết trên VBA/Word hay macro/Word thì chỉ cần chèn thư viện Excel; và ngược lại
2- File word đính kèm có nội dung String đầu tiên, tiếp đó là một table có 1 cell, Table nầy để chứa nội dung từ Excel
3- Code như sau:
  1. ' Khai báo 2 biê'n u'ng dung Word
  2. Dim www As New Word.Application
  3. Dim ddd As New Document
  4. ' Khai báo 2 biê'n u'ng dung Excel
  5. Dim eee As New Excel.Application
  6. Dim bbb As New Workbook
  7.  
  8. Private Sub Command1_Click()
  9. ' Mo' file excel
  10. Set bbb = eee.Workbooks.Open(App.Path & "\book1.xls")
  11. ' Copy nôi dung các ô chon lu'a
  12. bbb.Worksheets("sheet1").Range("A1", "D5").Copy
  13.  
  14. ' Mo file Word
  15. Set ddd = <!-- w --><a class="postlink" href="http://www.Documents.Open(App.Path">www.Documents.Open(App.Path</a><!-- w --> & "\aaa.doc")
  16. With www
  17. ' chon table 1 cell
  18. ddd.Tables(1).Rows(1).Select
  19. ddd.Tables(1).Cell(1, 1).Select
  20. ' dán nôi dung tu'` copy Excel o' trên
  21. .Selection.PasteExcelTable False, False, False
  22.  
  23. End With
  24.  
  25. 'Lu'u word
  26. ddd.Save
  27. ' Thoát word và excel trong bô nho'
  28. <!-- w --><a class="postlink" href="http://www.Quit">www.Quit</a><!-- w -->
  29. eee.Quit
  30. End Sub
Attachments
word chèn giá tri vào table.rar
(15.47 KiB) Downloaded 963 times
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

cn05057
Posts: 1
Joined: Thu 25/02/2010 11:47 am

Re: Liên kết dữ liệu Excel sang Word

Postby cn05057 » Mon 12/04/2010 2:57 pm

Cám ơn anh TruongPhu về bài này, anh ơi tư vấn giùm em chương trình quản lý cửa hiệu cầm đồ. Theo em được biết sơ qua về nó như sau:
CẦM ĐỒ:
việc người đi vay tiền giao đồ vật của mình cho người cho vay giữ làm vật bảo đảm tiền vay. Quyền sở hữu hợp pháp đối với tài sản đó vẫn thuộc người đi CĐ để vay. Đến hạn, người đi vay phải trả cho chủ nợ đủ vốn và lãi thì được thu hồi đồ vật của mình.



Nếu quá hạn không trả được nợ thì chủ nợ có quyền giữ lại hay đem bán tài sản đó để thu hồi tiền nợ.

Cám ơn anh nhiều, anh có thể cho em số điện thoại liên lạc, em đang làm đề tài tốt nghiệp mong anh giúp em

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: Liên kết dữ liệu Excel sang Word

Postby truongphu » Fri 16/04/2010 7:20 pm

cn05057 wrote:tư vấn giùm em chương trình quản lý cửa hiệu cầm đồ


Bạn nên xây dựng một file csdl, vd access rồi từ đấy thiết kế form Vb6 hay VbA access
Vì bạn làm đề tài TN nên phải viết file csdl nghiêm túc, có đủ lý luận khi thiết kế các Table...

Do chuyện nầy tôi không rành, nên tôi chỉ trình bày sơ lược chung cho một table:
Table QuanLyCD có các field ID (autonumber), NgayCD (date), NguoiCD (text), MonDo (text), TriGia (number), Laisuat (single), NgayDenHan (date), TongTien (number), TrahayKhong (boolean), GhiChu (memo)

Tùy theo yêu cầu truy vấn mà xây dựng các form liên quan nội dung, vd Form TongQuat, Form DenHanTra ...vv

Bạn cứ xây dựng thử Project và csdl, có thể gởi lên để tham khảo ý kiến các anh có chuyên môn về quản lý và csdl
Chúc bạn thành công
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


Return to “Visual Basic for Application (VBA)”

Who is online

Users browsing this forum: No registered users and 2 guests