✔ Programação GLOBAL®: VBA Access - Exportando relatórios para MS Word, MS Excel e 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 TransferSpreadsheet (TransferirPlanilha) 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.

Conheçam um Blog legal só de MS Access em: http://brzaccessdeveloper.blogspot.com/

André Luiz Bernardes

http://al-bernardes.sites.uol.com.br/