VBA Access - Exportando relatórios para MS Word, MS Excel e Snapshot View - Exporting Reports to MS Word, Excel, and Snapshot View

Olá a todos...

Como posso exportar dados já formatados em um relatório direcioando-os para o Word, Excel ou outro formato?

A função abaixo explora 2 formas diferentes de fazer isso...

Ao exportar para o MS Excel utiliza o Método TransferSpreadsheet (TransferirPlanilha)

Ao exportar para o MS Word e o padrão Snapshot utilizo o Método OutputTo (SaídaPara)

O método OutpuTo pode exportar informações para os seguintes padrões:

acFormatASP
acFormatDAP
acFormatHTML
acFormatIIS
acFormatRTF
acFormatSNP
acFormatTXT
acFormatXLS

Function ...
        If nOption = 6 Then
            If Not IsNull(Me.SelecRTF) Then
                DoCmd.OutputTo acOutputReport, nReport, acFormatRTF, RptName & ".rtf", True
            End If
           
            If Not IsNull(Me.SelecSNP) Then
                DoCmd.OutputTo acOutputReport, nReport, acFormatSNP, RptName & ".snp", True
            End If

            If Not IsNull(Me.SelecXLS) Then
                DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, nTbl1, RptName & ".xls", False, "ESN"
                DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, nTbl2, RptName & ".xls", False, "Supllier"
            End If
        End If
End

Perceba que uma importante característica de exportação para a planilha é o fato de fazê-lo a partir de conteúdos diferentes (tabelas) para a mesma planilha.

  15.01.2025 

Function ExportReportData(nOption As Integer, nReport As String, RptName As String, nTbl1 As String, nTbl2 As String)

    ' Esta função exporta os relatórios e tabelas com base na opção fornecida.

    ' Verifica se a opção selecionada é 6, que é o caso de exportação.

    If nOption = 6 Then

        

        ' Verifica se o campo SelecRTF não está nulo e exporta o relatório em formato RTF

        If Not IsNull(Me.SelecRTF) Then

            ' Exporta o relatório no formato RTF

            DoCmd.OutputTo acOutputReport, nReport, acFormatRTF, RptName & ".rtf", True

            Debug.Print "Relatório exportado como RTF: " & RptName & ".rtf"

        End If

        ' Verifica se o campo SelecSNP não está nulo e exporta o relatório em formato SNP

        If Not IsNull(Me.SelecSNP) Then

            ' Exporta o relatório no formato SNP

            DoCmd.OutputTo acOutputReport, nReport, acFormatSNP, RptName & ".snp", True

            Debug.Print "Relatório exportado como SNP: " & RptName & ".snp"

        End If

        ' Verifica se o campo SelecXLS não está nulo e exporta as tabelas em formato XLS

        If Not IsNull(Me.SelecXLS) Then

            ' Exporta a primeira tabela para o formato Excel

            DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, nTbl1, RptName & ".xls", False, "ESN"

            Debug.Print "Tabela " & nTbl1 & " exportada para Excel: " & RptName & ".xls"

            

            ' Exporta a segunda tabela para o formato Excel

            DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, nTbl2, RptName & ".xls", False, "Supllier"

            Debug.Print "Tabela " & nTbl2 & " exportada para Excel: " & RptName & ".xls"

        End If

    End If

End Function

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

 PUDIM PROJECT