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

Thống kê điểm chuẩn

Click here for Make money Online

Tham gia kênh Telegram kiếm tiền online ==> Click

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?
(Export Report access to word 2010)

Code:
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

Demo: Tại đây

Nguồn: Thuthuataccess.com

Guide Buy Sell bitcoin => Click here

Tham gia kênh Telegram kiếm tiền điện tử => Click here


Download document
Sell off ==> Click