• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Export dữ liệu sang Word ( Nhiều dòng trong sub)

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • Export dữ liệu sang Word ( Nhiều dòng trong sub)
• Export dữ liệu sang Word ( Nhiều dòng trong sub)

• RE: Export dữ liệu sang Word

  nhannt4 > 26-03-14, 12:15 PM

  (26-03-14, 01:25 AM)hugox03 Đã viết: Còn việc này mình muốn hỏi nữa !
  hàng ( Tổng Cộng : )
  +Nếu mình muốn thêm 1 hàng nữa như : tiền thuế , đã đưa , còn lại (Tổng cộng + Thuế - Đã trả = còn lại ). Thì mình sữa hoặc thêm chỗ nào vậy ?
  
  

  Mã PHP:

  i = 2
    Tong = 0
    Do While Not rst.EOF
                
        doc.ActiveDocument.Tables(2).Cell(i, 1).Range.text = rst.Fields![MaHH].Value
        doc.ActiveDocument.Tables(2).Cell(i, 2).Range.text = rst.Fields![TenHH].Value
        doc.ActiveDocument.Tables(2).Cell(i, 3).Range.text = rst.Fields![Maloaihang].Value
        doc.ActiveDocument.Tables(2).Cell(i, 4).Range.text = rst.Fields![SoLuong].Value
        doc.ActiveDocument.Tables(2).Cell(i, 5).Range.text = rst.Fields![Donvi].Value
        doc.ActiveDocument.Tables(2).Cell(i, 6).Range.text = Format(rst.Fields![DonGia].Value, "##,##0")
        doc.ActiveDocument.Tables(2).Cell(i, 7).Range.text = Format(rst.Fields![ThanhTien].Value, "##,##0")
        Tong = Tong + rst.Fields![ThanhTien].Value
        i = i + 1
        
        rst.MoveNext
                
        If Not rst.EOF Then doc.ActiveDocument.Tables(2).Rows.Add
        
    Loop
    doc.ActiveDocument.Tables(2).Rows.Add
    doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Merge MergeTo:=doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=6)
    doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.Font.Size = 13
    doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.Font.Italic = False
    doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.Font.Bold = True
    doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.text = Form_FormTam.lbTongcong.Caption
    doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=2).Range.Font.Bold = True
    doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=2).Range.text = Format(Tong, "##,##0") 


  
  1. Trong Code thêm 3 biến (Tongthue, tongdua, tongcon) rồi tham khảo cách xử lý biến Tong ở trên để áp dụng vào.
  2. Tham khảo đoạn code sau dòng "Loop" để thêm các dòng vào cho phù hợp.
  
  P/s: Ngoài ra bạn còn phải chỉnh code để tạo ra table tblInhoadon cho phù hợp thực tế nữa.
  
  Chúc thành công.

• RE: Export dữ liệu sang Word

  hugox03 > 27-03-14, 02:20 AM

  Xong !
  Cho mình hỏi thêm xíu . Nếu muốn add hình ( có đường dẫn ) vào hóa đơn thì thêm code nào nữa ?
  
  Ứng dụng báo giá có hình ảnh !

• RE: Export dữ liệu sang Word

  nhannt4 > 27-03-14, 09:32 AM

  (27-03-14, 02:20 AM)hugox03 Đã viết: Xong !
  Cho mình hỏi thêm xíu . Nếu muốn add hình ( có đường dẫn ) vào hóa đơn thì thêm code nào nữa ?
  
  Ứng dụng báo giá có hình ảnh !

  
  Cái này chưa làm nhưng sẽ nghiên cứu theo yêu cầu của bạn! Chắc là được.

• RE: Export dữ liệu sang Word

  vuthaiha90 > 26-07-16, 05:08 PM

  (20-03-14, 08:18 PM)nhannt4 Đã viết: Gợi ý:
  - Thường thì bạn query để xuất ra Report đúng không? Thế thì bạn sử dụng câu lệnh trong VBA dạng "SELECT ... INTO <table> WHERE... ORDER BY..." để tạo ra một table từ dữ liệu của Query (tất nhiên là được sắp xếp giống hết Query.
  - Dùng Code VBA để đọc từ dòng của table và xuất ra Word, xuất ra theo Field hoặc theo dòng của table đều được (tuy có chậm (vì tương tác với chương trình ngoài) nhưng rất đẹp (vì định dạng Word mà!)).
  
  Đây là file Demo của mình.
  
  P/S: Do mình sử dụng MS Word 2010 nên nếu bạn sử dụng MS Word 2003 xuất ra sẽ bị lỗi. Cách khắc phục là vào cửa sổ VBA -> chọn Tools -> References... -> Rồi đánh dấu vào Microsoft Word x (với x là phiên bản MS Word máy bạn đang sử dụng).
  
  Chúc thành công.

  
  Bác ơi, em ấn nút xuất word bị báo lỗi code: Dim dbs As Database mặc dù đã chọn tool/references/microsoft word 11

• RE: Export dữ liệu sang Word

  maidinhdan > 26-07-16, 05:37 PM

  (26-07-16, 05:08 PM)vuthaiha90 Đã viết:

  (20-03-14, 08:18 PM)nhannt4 Đã viết: Gợi ý:
  - Thường thì bạn query để xuất ra Report đúng không? Thế thì bạn sử dụng câu lệnh trong VBA dạng "SELECT ... INTO <table> WHERE... ORDER BY..." để tạo ra một table từ dữ liệu của Query (tất nhiên là được sắp xếp giống hết Query.
  - Dùng Code VBA để đọc từ dòng của table và xuất ra Word, xuất ra theo Field hoặc theo dòng của table đều được (tuy có chậm (vì tương tác với chương trình ngoài) nhưng rất đẹp (vì định dạng Word mà!)).
  
  Đây là file Demo của mình.
  
  P/S: Do mình sử dụng MS Word 2010 nên nếu bạn sử dụng MS Word 2003 xuất ra sẽ bị lỗi. Cách khắc phục là vào cửa sổ VBA -> chọn Tools -> References... -> Rồi đánh dấu vào Microsoft Word x (với x là phiên bản MS Word máy bạn đang sử dụng).
  
  Chúc thành công.

  
  Bác ơi, em ấn nút xuất word bị báo lỗi code: Dim dbs As Database mặc dù đã chọn tool/references/microsoft word 11

  
  Tác giả đã viết là:

  Trích dẫn:P/S: Do mình sử dụng MS Word 2010 nên nếu bạn sử dụng MS Word 2003 xuất ra sẽ bị lỗi. Cách khắc phục là vào cửa sổ VBA -> chọn Tools -> References... -> Rồi đánh dấu vào Microsoft Word x (với x là phiên bản MS Word máy bạn đang sử dụng).

  
  
  Bạn đang sử dụng Access phiên bản nào? 2003,2007 hay 2013?
  
  Xem bài viết này để biết chọn thư viện cho đúng với Access của bạn: Hướng Dẫn [Tổng hợp] Tham chiếu Thư viện Access và Lỗi Missing
  
  Dòng nào bắt đầu có chữ Missing thì bỏ chọn nó, và chọn lại phiên bản thấp hơn. như là
  
  Missing: Microsoft Access 14.0 Object Library ---> Nếu đang xài Access 2003 thì chọn lại Microsoft Access 11.0 Object Library
  
  
  
  Thân mến!

• RE: Export dữ liệu sang Word ( Nhiều dòng trong sub)

  nmthien2410 > 29-07-16, 09:00 PM

  Các Pro có cách nào khi xuất ra word, kiểu số hiển thị là 5.000.000 không? em làm xuất ra 5,000,000 không à!

• RE: Export dữ liệu sang Word ( Nhiều dòng trong sub)

  jeck09nt > 01-08-16, 11:08 AM

  Bạn vào Regional and language Options trong Control Panel để điều chỉnh dấu "," thành "."

• RE: Export dữ liệu sang Word

  mrtoanbin > 20-01-18, 07:55 PM

  (20-03-14, 08:18 PM)nhannt4 Đã viết: Gợi ý:
  - Thường thì bạn query để xuất ra Report đúng không? Thế thì bạn sử dụng câu lệnh trong VBA dạng "SELECT ... INTO <table> WHERE... ORDER BY..." để tạo ra một table từ dữ liệu của Query (tất nhiên là được sắp xếp giống hết Query.
  - Dùng Code VBA để đọc từ dòng của table và xuất ra Word, xuất ra theo Field hoặc theo dòng của table đều được (tuy có chậm (vì tương tác với chương trình ngoài) nhưng rất đẹp (vì định dạng Word mà!)).
  
  Đây là file Demo của mình.
  
  P/S: Do mình sử dụng MS Word 2010 nên nếu bạn sử dụng MS Word 2003 xuất ra sẽ bị lỗi. Cách khắc phục là vào cửa sổ VBA -> chọn Tools -> References... -> Rồi đánh dấu vào Microsoft Word x (với x là phiên bản MS Word máy bạn đang sử dụng).
  
  Chúc thành công.

  
  Xin giải quyết bài tập mình với. Code bạn viết mình còn gà chưa hiểu được để áp dụng.
  Trong đó: + tbl là bảng chứa thông tin cơ bản của 01 nhân viên
                 + qtct là bảng chứa thông tin về quá trình công tác của 01 nhân viên
                 + qtdt là bảng chứa thông tin về quá trình đào tạo của 01 nhân viên
  Các bảng có mối quan hệ thông qua Field MASV.
  Cần một phiếu lý lịch trích ngang: + Các thông tin cơ bản tại bảng tbl trình bày xuống từng dòng như trong Word
                                                   + Quá trình công tác và đào tạo của mỗi nhân viên trình bày bằng table trong Word
  Cảm ơn quá trời luôn, mình đang cần xuất như trên, tìm được bài của bạn mừng quá mà chưa hiểu, nhờ giúp
  Bài tập của mình ĐÂY ạ!
• Bài trước Bài tiếp