Tùy chọn
Export dữ liệu sang Word ( Nhiều dòng trong sub)
- Export dữ liệu sang Word ( Nhiều dòng trong sub)
-
Export dữ liệu sang Word ( Nhiều dòng trong sub)
danhxetnghiem > 20-03-14, 02:25 PM
Cho mình hỏi: Làm sao để Export dữ liệu ra Word mà cấu trúc sắp xếp vẩn giống y như trong Reports.
(Mình rắc rối ở chổ xuất ra Word, mỗi lần xuất ra xong phải chỉnh sửa quá trời mới được giống như trong reports, mà đường kẻ ô lại không có, có anh chị nào cao siêu xin giúp đở. Xin cảm ơn!) -
RE: Export dữ liệu sang Word
Xuân Thanh > 20-03-14, 04:10 PM
Trên thanh menu có công cụ xuất report ra word đó, bạn thử nghiên cứu xem
Thân mến -
RE: Export dữ liệu sang Word
ttm20062008 > 20-03-14, 04:58 PM
Export thấy cách sắp xếp vẫn giữ nguyên, đường kẻ thì không thấy -
RE: Export dữ liệu sang Word
nhannt4 > 20-03-14, 08:18 PM
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. -
RE: Export dữ liệu sang Word
hugox03 > 20-03-14, 11:30 PM
Good ! Thanks nhannt4 !
Có Cách viết nào ngắn hơn xíu nữa không ?
Nếu code dùng chung các mẫu thì tốt nhất ! -
RE: Export dữ liệu sang Word
maidinhdan > 20-03-14, 11:32 PM
up file lên đây, ngày mai sửa cho, chứ mắc công làm demo lắm. -
RE: Export dữ liệu sang Word
hugox03 > 21-03-14, 02:47 AM
-
RE: Export dữ liệu sang Word
maidinhdan > 21-03-14, 12:49 PM
(21-03-14, 02:47 AM)hugox03 Đã viết: File
https://www.mediafire.com/?644shdz245blj1j
bạn giúp mình chuyển sang word với !
Đã làm xong, Link của bạn đây: http://www.mediafire.com/download/4d26fr...N-QLBH.rar
Góp ý: sao không sử dụng report luôn. Vì Hóa đơn có gì đâu mà cần nối với word.
Code nút xuất[/code]
Mã:Private Sub cmdXuat_Click()
Dim oApp As Object, doc As Object
Dim strDocName As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\DataMauBH" & "\formMauhoadon.dot"
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("txttenkhachhang").Result = IIf(Me.TenKH.Value <> "", Me.TenKH, ".....")
doc.FormFields("txtdvct").Result = IIf(Me.Text65.Value <> "", Me.Text65, ".....")
doc.FormFields("Text1").Result = [Forms]![F_Banhang]![CTHD]![Text1]
doc.FormFields("Text2").Result = [Forms]![F_Banhang]![CTHD]![Text2]
doc.FormFields("Text3").Result = [Forms]![F_Banhang]![CTHD]![Text3]
doc.FormFields("Text4").Result = [Forms]![F_Banhang]![CTHD]![Text4]
doc.FormFields("Text5").Result = [Forms]![F_Banhang]![CTHD]![Text5]
doc.FormFields("Text6").Result = [Forms]![F_Banhang]![CTHD]![Text6]
doc.FormFields("Text7").Result = [Forms]![F_Banhang]![CTHD]![Text7]
oApp.ActiveDocument.SaveAs Filename:=CurrentProject.Path & "\" & Me.SoHD.Value & ".doc"
Set oApp = Nothing
MsgBox "Xuat data thanh cong"
End Sub -
RE: Export dữ liệu sang Word
nhannt4 > 21-03-14, 02:35 PM
(21-03-14, 12:49 PM)maidinhdan Đã viết:
(21-03-14, 02:47 AM)hugox03 Đã viết: File
https://www.mediafire.com/?644shdz245blj1j
bạn giúp mình chuyển sang word với !
Đã làm xong, Link của bạn đây: http://www.mediafire.com/download/4d26fr...N-QLBH.rar
Góp ý: sao không sử dụng report luôn. Vì Hóa đơn có gì đâu mà cần nối với word.
Code nút xuất[/code]
Mã:Private Sub cmdXuat_Click()
Dim oApp As Object, doc As Object
Dim strDocName As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\DataMauBH" & "\formMauhoadon.dot"
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("txttenkhachhang").Result = IIf(Me.TenKH.Value <> "", Me.TenKH, ".....")
doc.FormFields("txtdvct").Result = IIf(Me.Text65.Value <> "", Me.Text65, ".....")
doc.FormFields("Text1").Result = [Forms]![F_Banhang]![CTHD]![Text1]
doc.FormFields("Text2").Result = [Forms]![F_Banhang]![CTHD]![Text2]
doc.FormFields("Text3").Result = [Forms]![F_Banhang]![CTHD]![Text3]
doc.FormFields("Text4").Result = [Forms]![F_Banhang]![CTHD]![Text4]
doc.FormFields("Text5").Result = [Forms]![F_Banhang]![CTHD]![Text5]
doc.FormFields("Text6").Result = [Forms]![F_Banhang]![CTHD]![Text6]
doc.FormFields("Text7").Result = [Forms]![F_Banhang]![CTHD]![Text7]
oApp.ActiveDocument.SaveAs Filename:=CurrentProject.Path & "\" & Me.SoHD.Value & ".doc"
Set oApp = Nothing
MsgBox "Xuat data thanh cong"
End Sub
Hình như Code của bạn chưa đúng, dữ liệu chỉ xuất ra có 1 dòng.