Exportar Relatório Crystal para Excel pelo VB6

[Fernandinha]

Bom dia pessoal!!! Feliz 2009!!!

Estou com uma dúvida, dentro de um sistema desenvolvido em VB6 tem um evento de um botão que ao final gera um relatório em Crystal Reports, porém agora tenho que exportar esse relatório para Excel, consegui exportar porém o arquivo é salvo somente na coluna A do excel.

Alguém poderia de ajudar, por favor.

CR1.Reset

CR1.Connect = cn

CR1.Destination = crptToFile

CR1.PrintFileType = crptText

arquivo = "Desligue_" & Day(Now()) & Month(Now()) & Year(Now()) & ".xls"

CR1.PrintFileName = "D:\Relatorios\" & arquivo

CR1.ReportFileName = App.Path & "\relatorios\Reldesligues.rpt"

CR1.SQLQuery = "SELECT * FROM scdcf.dbo.reldesligue order by FERRAMENTA, nome_cliente"

CR1.WindowState = crptMaximized

CR1.Action = 1

Muito obrigada,

Fernanda

=D

[kuroi]

olha aqui:

CR1.PrintFileType = crptText

você ta salvando como texto, so ta pondo extensao do excel mas ta em formato de txt. nessa linha você tem q selecionar uma opcao em formato excel, exemplo: crptExcel50Tab

[Fernandinha]

Oi, coloquei CR1.PrintFileType = crptExcel50Tab, mas o arquivo não abre, será que pode ser porque eu estou usando o office 2007?

Desde já muito obrigada.

[kuroi]

é, ele vai gravar numa versao bem antiga do excel, e talvez seja esse o seu problema.

o q acontece é q esse componente q você ta usando (o crystal reports control) é bem antigo, e por isso não tem uma opcao pra versoes mais recentes, e não sei se da pra arrumar isso.

mas uma opcao é você usar o CRAXDRT, como é explicado nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=122749