access導(dǎo)出數(shù)據(jù)表內(nèi)容到word文檔中

access是office的組件，既然是同一個母親，那么和Excel，word之間的交互顯然是非常方便的。

我們有時要把access的數(shù)據(jù)導(dǎo)出到Excel表格，也會把access數(shù)據(jù)導(dǎo)出到word中。

如下，把access中人員信息表的人員信息導(dǎo)入到word中，并生成表格：

On Error GoTo Err_Add
    Dim WdApp As Word.Application
    Dim WdDoc As Word.Document
    Dim StrAdr As String
    Dim Db As DAO.Database
    Dim rs As DAO.Recordset
    Set Db = CurrentDb
    Set rs = Db.OpenRecordset("員工信息")    
    StrAdr = CurrentProject.Path & "\示例1.docx"
    Set WdApp = GetObject(, "Word.Application")
    Set WdDoc = WdApp.Documents.Open(StrAdr)
    WdApp.Visible = True
    '在word中創(chuàng)建一個兩列的表格，并添加邊框
    WdDoc.Tables.Add Selection.Range, 1, 2
    For Each atable In WdDoc.Tables
        atable.Borders.OutsideLineStyle = wdLineStyleSingle
        atable.Borders.InsideLineStyle = wdLineStyleSingle
    Next atable
    '將Access數(shù)據(jù)表中的數(shù)據(jù)添加到創(chuàng)建的word表格中
    Set Db = CurrentDb
    Set rs = Db.OpenRecordset("員工信息")
    With WdApp.Selection
            .TypeText "姓名"    '添加表頭
            .MoveRight wdCell    '向右移動
            .TypeText "性別"
            .MoveRight wdCell
            Do While rs.EOF = False
                .TypeText rs![姓名]
                .MoveRight wdCell
                .TypeText rs![性別]
                .MoveRight wdCell
                rs.MoveNext
            Loop
    End With    
    WdApp.Selection.Rows.Delete  '刪除最后的空行
 
Err_Add:
    If Err = 429 Then
        Set WdApp = CreateObject("Word.Application")
        Resume Next
    End If
    WdDoc.Save
End Sub