Histórico da Página

Descrição

Função DlgToExel(): Exportação para EXCEL
A funcionalidade básica de exportação de informações para o Microsoft Excel utiliza a função
DlgToExcel(), a qual permite que as informações em formatos de array sejam geradas em uma
planilha.

Observações

DLGTOEXCEL()
Realiza a exportação das informações do ambiente Protheus em formato de arrays para uma planilha do Microsoft Excel.
Sintaxe: DlgToExcel(cOrigem, cTitulo, aDadosCab, aDadosItens)
Parâmetros:
cOrigem: Conteúdo fixo definido como: “GETDADOS”
cTitulo: Nome para exibição da planilha
aDadosCab: Array contendo os nomes dos campos que serão exibidos na planilha.
aDadosItens: Array contendo as informações dos campos, de acordo com a ordem do array de cabeçalho.
Não gera retorno.
OBS:Na exportação das informações para o Microsoft Excel deve-se atentar para as
colunas que possuírem informações alfanuméricas mas que contém apenas
números.
Para que estas colunas sejam exibidas corretamente deve ser
acrescentado um caracter especial no início da string de forma que o Microsoft
Excel as reconheça como texto e não como numéricas.

Exemplos

#include "protheus.ch"
User Function GExpExcel()
Local aCabExcel :={}
Local aItensExcel :={}
// AADD(aCabExcel, {"TITULO DO CAMPO", "TIPO", NTAMANHO, NDECIMAIS})
AADD(aCabExcel, {"A1_FILIAL" ,"C", 02, 0})
AADD(aCabExcel, {"A1_COD" ,"C", 06, 0})
AADD(aCabExcel, {"A1_LOJA" ,"C", 02, 0})
AADD(aCabExcel, {"A1_NOME" ,"C", 40, 0})
AADD(aCabExcel, {"A1_MCOMPRA" ,"N", 18, 2})
MsgRun("Favor Aguardar.....", "Selecionando os Registros",;
{|| GProcItens(aCabExcel, @aItensExcel)})
MsgRun("Favor Aguardar.....", "Exportando os Registros para o Excel",;
{||DlgToExcel({{"GETDADOS",;
"POSIÇÃO DE TÍTULOS DE VENDOR NO PERÍODO",;
aCabExcel,aItensExcel}})})
Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Eventos de chamada do Ponto de Entrada

Variáveis

Local aCabExcel :={}
Local aItensExcel :={}

Programa Fonte