Método DoCmd.TransferText (Access)

  • Artículo

El método TransferText lleva a cabo la acción TransferText en Visual Basic.

Sintaxis

expresión.TransferText (TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodePage)

expresión Variable que representa un objeto DoCmd.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
TipoDeTransferencia Optional AcTextTransferType Tipo de transferencia que quiere realizar. Puede importar, exportar o vincular datos con archivos de texto de ancho fijo o delimitado o archivos HTML. El valor predeterminado es acImportDelim. Solo se admiten los tipos de transferencia acImportDelim, acImportFixed, acExportDelim, acExportFixed o acExportMerge en un proyecto de Microsoft Access (.adp).
SpecificationName Opcional Variant Expresión de cadena que es el nombre de una especificación de importación o exportación que ha creado y guardado en la base de datos activa. Para un archivo de texto de ancho fijo, debe especificar un argumento o utilizar un archivo schema.ini, que debe almacenarse en la misma carpeta que el archivo de texto importado, vinculado o exportado.

Para crear un archivo de esquema, puede utilizar el asistente para importación y exportación de texto para crear el archivo. Para archivos de texto delimitados y archivos de datos de combinación de correo de Microsoft Word, puede dejar este argumento en blanco para seleccionar las especificaciones predeterminadas de importación y exportación.
TableName Opcional Variant Expresión de cadena que es el nombre de la tabla de Access a la que desea importar datos de texto, de la que desea exportar datos de texto o a la que desea vincular datos de texto, o la consulta de Access cuyos resultados desea exportar a un archivo de texto.
FileName Opcional Variant Expresión de cadena que es el nombre completo, incluida la ruta de acceso, del archivo de texto del que desea importar o al que desea exportar o vincular.
HasFieldNames Opcional Variant Use True (1) para usar la primera fila del archivo de texto como nombres de campo al importar, exportar o vincular. Use False (0) para tratar la primera fila del archivo de texto como datos normales. Si deja en blanco este argumento, se presupone el valor predeterminado (False). Este argumento se omite para archivos de datos de combinación de correspondencia de Microsoft Word, que siempre deben contener los nombres de campo en la primera fila.
HTMLTableName Opcional Variante Una expresión de cadena que es el nombre de la tabla o lista del archivo HTML que desea importar o vincular. Este argumento se omite a menos que el argumento TransferType se establezca en acImportHTML o acLinkHTML. Si deja este argumento en blanco, se importa o se vincula la primera tabla o lista del archivo HTML.

El nombre de la tabla o lista del archivo HTML se determina mediante el texto especificado por la etiqueta TÍTULO, si existe una etiqueta TÍTULO. Si no hay ninguna etiqueta TÍTULO, el nombre de etiqueta está determinado por el texto especificado por la etiqueta TÍTULO. Si más de una tabla o lista tiene el mismo nombre, Access las distingue agregando un número al final de cada nombre de tabla o de lista; por ejemplo, Empleados1 y Empleados2.
Identificadores CodePage Optional Variante Un valor Long que indica el juego de caracteres de la página de códigos.

Comentarios

Use el método TransferText para importar o exportar texto entre la base de datos de Access o proyecto de Access (.adp) actual y un archivo de texto. También puede vincular los datos en un archivo de texto a una base de datos de Access activa. Con un archivo de texto vinculado, puede ver los datos del texto con Access y tener al mismo tiempo completo acceso a los datos desde su programa de procesamiento de textos. También puede importar, exportar y vincular con datos de una tabla o lista de un archivo HTML (*.html).

Puede exportar los datos de consultas de selección de Access a archivos de texto. Access exporta el conjunto de resultados de la consulta, tratándolo como si fuera una tabla.

Ejemplo

El siguiente ejemplo exporta los datos desde la tabla de Access Informe externo al archivo de texto delimitado April.doc usando la especificación Resultados estándar.

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

En el código siguiente, se muestra cómo crear un documento de Microsoft Word nuevo y realizar una combinación de correo con los datos almacenados en la tabla 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.