VBA Access - Exportando relatório para RTF, XLS e Snapshot

Termo de Responsabilidade 

Como posso exportar dados já formatados em um relatório direcionado-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.

Referências: 

Tags: VBA, Access, transferspreadsheet, xls, word, excel, 

VBA Excel - Conectando planilhas com tabelas do MS Access.

Segue parte de um código que pode usar para conectar todas as planilhas do MS Excel que estiverem disponíveis no mesmo diretório, a uma base de dados MS Access.

Este código assume que os cabeçalhos estão na primeira linha da planilha. Divirta-se!

Sub LinkXls()

     ' Loop num diretório específico (nPath)

     ' linkando todos os arquivos MS Excel como tabelas no MS Access.

     

    Const nPath As String = "C:\tmp\XLs\" 'Diretório.

    Dim nArq As String           ' Nomes dos arquivos.

    Dim nFile() As String           ' Array com os arquivos.

    Dim intFile As Integer          ' Número de arquivos.

    Dim IniLine As String           ' Limita Range.

    Dim FinLine As String           '       "

    Dim IniColumn As String         '       "

    Dim FinColumn As String         '       "

    Dim nFrase As String            ' Frase de definição.

    'Loop na pasta e construção da lista de arquivos.

    Let nArq = Dir(nPath & "*.xls")

    

    While nArq <> ""

        'Adicionando arquivos à lista.

        Let intFile = intFile + 1

        

        ReDim Preserve nFile(1 To intFile)

        

        Let nFile(intFile) = nArq

        Let nArq = Dir()

    Wend

    

    ' Verifica se achou o arquivo.

    If intFile = 0 Then

        MsgBox "Nenhum arquivo encontrado!", vbCritical, ".: A&A"

        Exit Sub

    End If

    

    ' Define tamanho do range a ser conectado, considerando a primeira linha como título.

    ' IniLine    - Linha inicial.

    ' FinLine    - Linha final.

    ' IniColumn  - Coluna inicial.

    ' FinColumn  - Coluna final.

    

    'Linhas.

    Let IniLine = 1

    Let FinLine = 50

    

    ' Colunas

    Let IniColumn = "A"

    Let FinColumn = "J"

    

    Let nFrase = IniLine & IniColumn & FinLine & FinColumn

    ' Inicia o ciclo de conexções na base de dados MS Access.

    For intFile = 1 To UBound(nFile)

        DoCmd.TransferSpreadsheet acLink, , nFile(intFile), nPath & nFile (intFile), True, nFrase

    Next

    

    MsgBox UBound(nFile) & " Arquivos 'Linkados'", vbInformation, ".: A&A"

End Sub

Tags: Excel, Access, udf, import, data, conect, directory, TransferSpreadSheet

André Luiz Bernardes

bernardess@gmail.com