Importação para o Excel

Amigos,

Preciso que me ajudem tenho que criar uma macro em um relatório do Excel que importe informação de um banco de dados Progress do DataSul para preencher alguns campos deste relatório.

Desde já Obrigado.

Porque não cria um ficheiro Excel com os dados que pretende?

O excel ja esta criado preciso que o progress preencha alguns campos desta planilha.

Abre o ficheiro Excel por programação e mete os dados que quer.

O que você quer fazer seria algo parecido com isto?

Código:

DEF VAR chExcelApplication   AS COM-HANDLE.
DEF VAR chPlanilha           AS COM-HANDLE.

CREATE 'excel.application' chExcelApplication.
chExcelApplication:Workbooks:Open("C:\temp\teste.xlsx").

chPlanilha  = chExcelApplication:Sheets:Item(1).

chExcelApplication:VISIBLE = YES.

ASSIGN chPlanilha:range("E6"):VALUE = "célula E6".

RELEASE OBJECT chExcelApplication.

Aqui estou apenas abrindo o arquivo "C:\temp\teste.xlsx" na planilha e escrevendo um texto qualquer na célula E6, mas se você especificar exatamente o que precisa, podemos melhorar isto aqui.

Muito obrigado,

Entendi mais uma duvida e como sera fazendo um For Each e preenchendo.