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:
acFormatASPacFormatDAPacFormatHTMLacFormatIISacFormatRTFacFormatSNPacFormatTXTacFormatXLS
Function ...
If nOption = 6 ThenIf Not IsNull(Me.SelecRTF) ThenDoCmd.OutputTo acOutputReport, nReport, acFormatRTF, RptName & ".rtf", TrueEnd If
If Not IsNull(Me.SelecSNP) ThenDoCmd.OutputTo acOutputReport, nReport, acFormatSNP, RptName & ".snp", TrueEnd If
If Not IsNull(Me.SelecXLS) ThenDoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, nTbl1, RptName & ".xls", False, "ESN"DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, nTbl2, RptName & ".xls", False, "Supllier"End IfEnd 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.
Nenhum comentário:
Postar um comentário