简单的合并文档示例 (Microsoft Access 2003)

• 下载脚本 - 692 B

引言

本文将描述如何轻松地从 Microsoft Access 2003 数据库中合并文档。

背景

从数据库创建各种 Word 文档并合并文档是一种非常常见的做法。大多数 VBA 开发人员都熟悉这种方法。 在本文中，我想演示如何通过执行 Transact SQL 语句从数据库表中获取记录，并将所有记录合并到文档中。

Using the Code

这是一种非常简单的方法。你只需要对 MailMerge.OpenDataSource 方法有一些基本的了解。

• MailMerge.OpenDataSource：将数据源附加到指定的文档，如果该文档还不是主文档，则将其变为主文档。

示例

Public Sub MergeDocument(strDocumentPath As String _
                      , strDocumentFile As String _
                      , strSQLStatement As String)
                      
On Error GoTo ErrorHandler

Dim ObjApplication As Word.Application
Dim ObjDocument As Word.Document

DoEvents

Dim strSourceName As String
Dim MergeSubType As WdMergeSubType

    strSourceName = "C:\MyDatabase.mdb"
    MergeSubType = wdMergeSubTypeWord2000
    
    Set ObjDocument = GetObject(strDocumentPath & strDocumentFile, "Word.Document")
    
    ObjDocument.Application.Visible = True
    
    DoEvents
    
    ObjDocument.MailMerge.OpenDataSource Name:=strSourceName, 
				SQLStatement:=strSQLStatement
    
    DoEvents
    
        With ObjDocument.MailMerge
            .Destination = wdSendToNewDocument
            .Execute Pause:=True
        End With

DoEvents

ObjDocument.Close wdDoNotSaveChanges
Set ObjDocument = Nothing
Set ObjApplication = Nothing

Exit_mergeDocument:
    Exit Sub

ErrorHandler:
    MsgBox Err.Description
    Resume Exit_mergeDocument

End Sub 

结论

我希望这个简单的示例对您有所帮助。

历史

• 2009 年 11 月 5 日：初始发布