Share via

Método DoCmd.TransferText (Access)

  • Artigo

O método TransferText executa a ação TransferText no Visual Basic.

Sintaxe

expression.TransferText (TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodePage)

expression Uma variável que representa um objeto DoCmd.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
TransferType Optional AcTextTransferType O tipo de transferência que você deseja fazer. Você pode importar dados de, exportar dados para ou vincular aos dados em arquivos de texto de largura fixa ou em arquivos HTML. O valor padrão é acImportDelim. Somente os tipos de transferência acImportDelim, acImportFixed, acExportDelim, acExportFixed ou acExportMerge têm suporte em um projeto do Microsoft Access (.adp).
SpecificationName Opcional Variantes Uma expressão de cadeia de caracteres que é o nome de uma especificação de importação ou de exportação que você criou e salvou no banco de dados atual. Para um arquivo de texto de largura fixa, você deverá especificar um argumento ou usar um arquivo schema.ini, que deverá ser armazenado na mesma pasta que o arquivo de texto importado, vinculado ou exportado.

Para criar um arquivo de esquema, você poderá usar o assistente de importação/exportação de texto para criar o arquivo. Para os arquivos de texto delimitados e arquivos de dados de mala direta do Microsoft Word, você poderá deixar este argumento em branco para selecionar as especificações de importação/exportação padrão.
TableName Opcional Variantes Uma expressão de cadeia de caracteres que é o nome da tabela do Access para a qual você deseja importar dados de texto, exportar dados de texto ou vincular dados de texto, ou a consulta do Access cujos resultados você deseja exportar para um arquivo de texto.
FileName Opcional Variant Uma expressão de cadeia de caracteres que é o nome completo, incluindo o caminho, do arquivo de texto do qual você deseja importar, exportar para ou ao qual deseja vincular.
HasFieldNames Opcional Variantes Use True (1) para usar a primeira linha do arquivo de texto como nomes de campo ao importar, exportar ou vincular. Use False (0) para tratar a primeira linha do arquivo de texto como dados normais. Se você deixar esse argumento em branco, o padrão (False) é assumido. Esse argumento será ignorado pelos arquivos de dados de mala direta do Microsoft Word, que sempre devem conter os nomes de campo na primeira linha.
HTMLTableName Opcional Variant Uma expressão de cadeia de caracteres que é o nome da tabela ou lista no arquivo HTML que você deseja importar ou vincular. Esse argumento será ignorado, a menos que o argumento TransferType esteja definido como acImportHTML ou acLinkHTML. Se você deixar esse argumento em branco, a primeira tabela ou lista de arquivos HTML será importada ou vinculada.

O nome da tabela ou lista de arquivos HTML é determinado pelo texto especificado pela marca CAPTION, se houver uma marca CAPTION. Se não houver nenhuma marca CAPTION, o nome será determinado pelo texto especificado pela marca TITLE. Se mais de uma lista ou tabela tiverem o mesmo nome, o Access as distinguirá ao adicionar um número ao final de cada nome de tabela ou lista; por exemplo, Employees1 e Employees2.
Identificadores CodePage Optional Variant Um valor Long que indica o conjunto de caracteres da página de código.

Comentários

Use o método TransferText para importar ou exportar texto entre o banco de dados do Access ou projeto do Access (.adp) e um arquivo de texto. Você também pode vincular os dados em um arquivo de texto para o banco de dados do Access atual. Com um arquivo de texto vinculado, você pode exibir os dados de texto com o Access e ainda permitir o acesso completo aos dados do seu programa de processamento de texto. Você também poderá importar de, importar para e vincular a uma tabela ou uma lista em um arquivo HTML (*.html).

Você pode exportar os dados em consultas seleção do Access para arquivos de texto. O Access exporta o conjunto de resultados da consulta, tratando-o como uma tabela.

Exemplo

O exemplo a seguir exporta os dados do Relatório Externo da tabela do Access para o arquivo de texto delimitado Abril.doc usando a especificação Saída Padrão.

DoCmd.TransferText acExportDelim, "Standard Output", _ 
    "External Report", "C:\Txtfiles\April.doc"

O código a seguir mostra como criar um novo documento do Microsoft Word e executar uma mala direta com os dados armazenados na tabela Clientes.

Public Sub DoMailMerge(strFileSavePath As String)

    ' Create new Word App, add a document and set it visible
    Dim wdApp As New Word.Application
    wdApp.Documents.Add
    wdApp.Visible = True

    ' Open the data set from this database
    wdApp.ActiveDocument.MailMerge.OpenDataSource _
        Name:=Application.CurrentProject.FullName, _
        OpenExclusive:=False, _
        LinkToSource:=True, _
        Connection:="TABLE Customers", _
        SQLStatement:="SELECT Customers.* FROM Customers;"
              
    ' Add fields to the mail merge document
    Dim oSel As Object
    Set oSel = wdApp.Selection
    With wdApp.ActiveDocument.MailMerge.Fields
    
        oSel.TypeText vbNewLine & vbNewLine
        .Add oSel.range, "First_Name"
        oSel.TypeText " "
        .Add oSel.range, "Last_Name"
        oSel.TypeText vbNewLine
        .Add oSel.range, "Company"
        oSel.TypeText vbNewLine
        .Add oSel.range, "Address"
        oSel.TypeText vbNewLine
        .Add oSel.range, "City"
        oSel.TypeText ", "
        .Add oSel.range, "State"
        oSel.TypeText " "
        .Add oSel.range, "Zip"
        oSel.TypeText vbNewLine
        oSel.TypeParagraph
        oSel.TypeText "Dear "
        .Add oSel.range, "First_Name"
        oSel.TypeText ","
        oSel.TypeText vbNewLine
        oSel.TypeParagraph
        oSel.TypeText "We have created this mail just for you..."
        oSel.TypeText vbNewLine
        oSel.TypeText vbNewLine
        oSel.TypeText "Sincerely," & vbNewLine & "John Q. Public"
        oSel.TypeText vbFormFeed
        
    End With
    
    ' Execute the mail merge and save the document
    wdApp.ActiveDocument.MailMerge.Execute
    wdApp.ActiveDocument.SaveAs strFileSavePath
        
    ' Close everything and Cleanup Variables
    Set oSel = Nothing
    wdApp.ActiveDocument.Close False
    Set wdApp = Nothing

End Sub

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.