Método MailMerge.OpenDataSource (Word)
Anexa uma fonte de dados ao documento especificado, que se torna um documento principal, se ainda não existir um.
Sintaxe
expression. OpenDataSource
( _Name_
, _Format_
, _ConfirmConversions_
, _ReadOnly_
, _LinkToSource_
, _AddToRecentFiles_
, _PasswordDocument_
, _PasswordTemplate_
, _Revert_
, _WritePasswordDocument_
, _WritePasswordTemplate_
, _Connection_
, _SQLStatement_
, _SQLStatement1_
, _OpenExclusive_
, _SubType_
)
expressão Obrigatório. Uma variável que representa um objeto 'MailMerge'.
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
Name | Obrigatório | String | O nome de arquivo da fonte de dados. Você pode especificar um arquivo Microsoft Query (.qry) em vez de especificar uma fonte de dados, uma sequência de conexão e uma sequência de consulta. |
Format | Opcional | Variant | O conversor de arquivo usado para abrir o documento. Pode ser uma das seguintes constantes WdOpenFormat. Para especificar um formato de arquivo externo, use a propriedade OpenFormat com o objeto FileConverter para determinar o valor a ser usado com esse argumento. |
ConfirmConversions | Opcional | Variantes | True para exibir a caixa de diálogo Converter Arquivo se o arquivo não estiver no formato do Microsoft Word. |
ReadOnly | Opcional | Variantes | True para abrir a fonte de dados como somente leitura. |
LinkToSource | Opcional | Variant | True para executar a consulta especificada por Connection e SQLStatement toda vez que o documento principal for aberto. |
AddToRecentFiles | Opcional | Variant | True para adicionar o nome de arquivo à lista de arquivos usados recentemente na parte inferior do menu arquivo. |
PasswordDocument | Opcional | Variantes | A senha usada para abrir a fonte de dados. (Consulte os Comentários abaixo.) |
PasswordTemplate | Opcional | Variantes | A senha usada para abrir o modelo. (Consulte os Comentários abaixo.) |
Revert | Opcional | Variant | Controla o que acontece se o nome é o nome de arquivo de um documento aberto. True para descartar as alterações não salvas no documento aberto e reabra o arquivo; False para ativar o documento aberto. |
WritePasswordDocument | Opcional | Variantes | A senha usada para salvar alterações no documento. (Consulte os Comentários abaixo.) |
WritePasswordTemplate | Opcional | Variantes | A senha usada para salvar alterações no modelo. (Consulte os Comentários abaixo.) |
Connection | Opcional | Variantes | Um intervalo dentro do qual a consulta especificada por SQLStatement será executada. (Consulte os Comentários abaixo.) |
SQLStatement | Opcional | Variant | Define opções de consulta para recuperação de dados. (Consulte os Comentários abaixo.) |
SQLStatement1 | Opcional | Variant | Se a sequência de consulta for maior que 255 caracteres, SQLStatement especificará a primeira parte da sequência e SQLStatement1 especificará a segunda parte. (Consulte os Comentários abaixo.) |
OpenExclusive | Opcional | Variant | True para abrir exclusivamente. |
Subtype | Opcional | Variantes | Pode ser uma das constantes WdMergeSubType. |
Comentários
Para determinar as sequências de consulta e conexão ODBC, defina manualmente as opções de consulta e use a propriedade QueryString para retornar a sequência de conexão. A tabela seguinte inclui algumas palavras-chave SQL frequentemente usadas.
Palavra-chave | Descrição |
---|---|
DSN | O nome da fonte de dados ODBC |
UID | A identificação de logon do usuário |
PWD | A senha especificada pelo usuário |
DBQ | O nome de arquivo do banco de dados |
FIL | O tipo de arquivo |
Para instruir o Word a usar o mesmo método de conexão que em versões anteriores do Word (DDE (Dynamic Data Exchange) para Microsoft Office Access e fontes de dados do Microsoft Office Excel) use SubType:=wdMergeSubTypeWord2000
.
A maneira como você especifica o intervalo depende de como os dados são recuperados. Por exemplo:
Ao recuperar dados através de ODBC (Open Database Connectivity), você especifica uma sequência de caracteres de conexão.
Ao recuperar dados do Excel usando troca dinâmica de dados (DDE), você especifica um intervalo nomeado.
Ao recuperar dados do Access, você especifica a palavra "Table" ou "Query" seguida pelo nome de uma tabela ou consulta.
Importante
Evite usar senhas codificadas em seus aplicativos. Se um aplicativo for necessário em um procedimento, solicite a senha do usuário, armazene-a em uma variável e então use a variável em seu código. Para obter as melhores práticas recomendadas sobre como fazer isso, consulte Notas de segurança para desenvolvedores de soluções do Office.
Exemplo
Este exemplo cria um novo documento principal e anexa a tabela Orders de um banco de dados do Access chamado "Northwind.mdb".
Dim docNew As Document
Set docNew = Documents.Add
With docNew.MailMerge
.MainDocumentType = wdFormLetters
.OpenDataSource _
Name:="C:\Program Files\Microsoft Office" & _
"\Office\Samples\Northwind.mdb", _
LinkToSource:=True, AddToRecentFiles:=False, _
Connection:="TABLE Orders"
End With
Este exemplo cria um novo documento principal e anexa a planilha do Excel chamada Names.xls. O argumento Connection recupera dados do intervalo chamado "Sales".
Dim docNew As Document
Set docNew = Documents.Add
With docNew.MailMerge
.MainDocumentType = wdCatalog
.OpenDataSource Name:="C:\Documents\Names.xls", _
ReadOnly:=True, _
Connection:="Sales"
End With
Este exemplo usa ODBC para anexar o banco de dados do Access chamado "Northwind.mdb" ao documento ativo. O argumento SQLStatement seleciona os registros da tabela Customers.
Dim strConnection As String
With ActiveDocument.MailMerge
.MainDocumentType = wdFormLetters
strConnection = "DSN=MS Access Databases;" _
& "DBQ=C:\Northwind.mdb;" _
& "FIL=RedISAM;"
.OpenDataSource Name:="C:\NorthWind.mdb", _
Connection:=strConnection, _
SQLStatement:="SELECT * FROM Customers"
End With
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de