EXPORTANDO CRYSTALREPORT PARA FORMATO CSV

MARINA33 09/05/2013 11:02:21
#423176

Olá pessoal, eu consegui fazer uma exportação de dois relatórios feito em crystal report,para formato CSV delimitado por [Ô];[Ô] ponto e virgula, Mas quando ele abre no excel não aparece o titulo e o cabeçalho em cada coluna, ele traz tudo junto. Como faço pra ele me trazer o cabeçalho e o titulo? Veja o arquivo csv que ta em anexo e o codigo fonte

[ô]GERA RELATORIO EM FORMATO CSV
With RelCrystal
.EnableParameterPrompting = True
.MorePrintEngineErrorMessages = True
End With
Set objExportOptions = RelCrystal.ExportOptions
With objExportOptions
.DestinationType = crEDTDiskFile



If TipoRelat = 0 Then [ô]Proc Gera Analítico
.DiskFileName = Diretorio_Arquivo_Csv & RS_GRUPO!CD_CIR_DENTISTA & [Ô]-[Ô] & DTANO & DTMES & DTDIA & COMPLEM & [Ô].csv[Ô]

ElseIf TipoRelat = 1 Then [ô]Proc Gera Sintético

If Trim(frmExtRepasse.ctlDentista.CD_DENTISTA) <> [Ô][Ô] Then
.DiskFileName = Diretorio_Arquivo_Csv & RS_GRUPO!cod_dentista & [Ô]-[Ô] & DTANO & DTMES & DTDIA & COMPLEM & [Ô].csv[Ô]
Else
.DiskFileName = Diretorio_Arquivo_Csv & RS_GRUPO!CD_CIR_DENTISTA & [Ô]-[Ô] & DTANO & DTMES & DTDIA & COMPLEM & [Ô].csv[Ô]
End If
End If
RelCrystal.ExportOptions.FormatType = crEFTTabSeparatedText
RelCrystal.ExportOptions.FormatType = crEFTCharSeparatedValues
RelCrystal.ExportOptions.CharFieldDelimiter = [Ô];[Ô]
RelCrystal.ExportOptions.CharStringDelimiter = [Ô];[Ô]
RelCrystal.ExportOptions.UseReportDateFormat = True
RelCrystal.ExportOptions.UseReportNumberFormat = True



.PDFExportAllPages = True

End With
RelCrystal.Export False

If flgSintetico = False Then [ô]Proc Gera Analítico
[ô]Controle de Impressões do Analítico
vrGeradosAnaliticos = vrGeradosAnaliticos + 1
ElseIf flgSintetico = True Then [ô]Proc Gera Sintético
[ô]Controle de Impressões do Sintetico
vrGeradosSinteticos = vrGeradosSinteticos + 1
End If

If flgSintetico = False Then
flgSintetico = True
Set RelCrystal = Nothing
Set RS_DENTISTA_CMD = Nothing
RS_DENTISTA.Close
GoTo GerarSintetico
Else
flgSintetico = False
End If

Set RelCrystal = Nothing
Set RS_DENTISTA_CMD = Nothing
RS_DENTISTA.Close