none
Comando macro access que exportar em formato TXT/CSV sem formatação. RRS feed

  • Pergunta

  • Olá pessoal, boa tarde!

    Tenho uma consulta access que gera um layout no formato texto - CSV (separado por ponto e virgulas), exemplo:

    ID;NOME;ADMISSAO;DESLIGAMENTO
    9020206;ELISABETE DO NASCIMENTO SILVA;20/08/2001;
    9020213;MAIRA MONTANINI SILVA;20/08/2001;
    9020216;MARLI RAMALHO SILVA;20/08/2001;14/11/2017

    Quando exporto para txt via barra de comando External Data > Text File, funciona perfeitamente como no exemplo, porém quando faço via comando macro ExportWithFormatting, com o Output Format: Text Files (*.txt), o resultado fica assim:

    ------------------------------------------------------------------
    | ID;NOME;ADMISSAO;DESLIGAMENTO                                 |
    ------------------------------------------------------------------
    | 9020206;ELISABETE DO NASCIMENTO SILVA;20/08/2001;   |
    ------------------------------------------------------------------
    | 9020213;MAIRA MONTANINI SILVA;20/08/2001;                 |
    ------------------------------------------------------------------
    | 9020216;MARLI RAMALHO SILVA;20/08/2001;14/11/2017   |
    ------------------------------------------------------------------

    Me ajudem, por favor, como faço para exportar de forma limpa.

    Obrigado!

    Beto


    terça-feira, 14 de agosto de 2018 20:48

Todas as Respostas

  • BetoKlein,

         Achei duas respostas interessantes. Talvez te ajude.

         - A primeira é exportar como texto usando o delimitador ","
         - A segunda é montar um código VBA para ler a planilha e gravar um arquivo texto colocando o ";" entre os campos...

    ===========================================
    Export data to a text file

    Arquivos Delimitados - Em um arquivo delimitado, cada registro aparece em sua própria linha e os campos são separados por um único caractere chamado delimitador. O delimitador pode ser qualquer caractere que não apareça nos valores do campo, como vírgula ou ponto e vírgula.

    https://support.office.com/en-us/article/export-data-to-a-text-file-f72dfc38-a8a0-4c5b-8c2c-bf2950814140
    ===========================================
    How to export a query to excel file WITHOUT formatting using VBA or Macro?

    Dim rs as Recordset
    Dim db as Database
    Dim objExcel as Object
    Dim wksExcel as Object
    
    Set db = CurrentDb
    
    'get a recordset based on your table or query
    Set rs = qdf.OpenRecordset("SELECT * FROM YourQuery", dbOpenSnapshot)
    
    'get an Excel instance
    Set objExcel = CreateObject("Excel.Application")
    'add a workbook and get the instance for it's 1st Worksheet
    Call objExcel.Workbooks.Add
    Set wksExcel = objExcel.Worksheets(1)
    wksExcel.Activate
    
    'copy the name of the columns
    For I = 0 To rs.Fields.Count - 1
     wksExcel.Cells(1, I + 1) = rs.Fields(I).Name
    Next
    
    'copy the recordset to worksheet
    Set rng = wksExcel.Cells(2, 1)
    rng.CopyFromRecordset rs
    set wksExcel = Nothing
    
    'make Excel visible
    objExcel.Visible = True
    
    'deallocate the objects
    Set objExcel = Nothing
    rs.Close
    Set rs = Nothing
    Set db = Nothing

    https://social.msdn.microsoft.com/Forums/office/en-US/4eee0377-6ee1-463d-bf38-ff0cfd145ffe/how-to-export-a-query-to-excel-file-without-formatting-using-vba-or-macro?forum=accessdev
    ===========================================

        * Veja também:

    ===========================================
    How do I export in MS Access 2007 WITHOUT formatting and layout

    https://www.experts-exchange.com/questions/24144577/How-do-I-export-in-MS-Access-2007-WITHOUT-formatting-and-layout.html
    ===========================================
    Export Access Query WITHOUT Formatting

    https://stackoverflow.com/questions/37877257/export-access-query-without-formatting
    ===========================================
    Ação de macro ExportarcomFormatação

    https://msdn.microsoft.com/pt-br/library/office/ff197066.aspx?f=255&MSPPError=-2147217396
    ===========================================
    ExportWithFormatting Macro Action

    https://support.office.com/en-us/article/exportwithformatting-macro-action-06bb59e2-75c1-410d-9fe7-0a49c2f13c8f
    ===========================================

    []'s,
    Fabio I.
    quarta-feira, 15 de agosto de 2018 16:44