Esportare in xls

sabato 27 ottobre 2007 - 11.39

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

x69asterix Profilo | Junior Member

99 messaggi | Data Invio: sab 27 ott 2007 - 11:39

con il seguente codice esporto un file in pdf o in word, ma se tento di esportarlo in execel questo mi và in errore cosa dimentico?

ComboBox9.Items.Add(".doc")
ComboBox9.Items.Add(".pdf")
ComboBox9.Items.Add(".xls")
ComboBox9.SelectedIndex = 0

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim report As New ReportDocument()
Dim exportOptions As New ExportOptions()
Dim pdfExportFormatOptions As New PdfRtfWordFormatOptions()
Dim diskDestinationOptions As New DiskFileDestinationOptions()

' Impostare il formato di esportazione e le opzioni di formattazione
Select Case ComboBox9.SelectedIndex
Case Is = 0
exportOptions.ExportFormatType = ExportFormatType.WordForWindows
Case Is = 1
exportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
Case Is = 2
exportOptions.ExportFormatType = ExportFormatType.Excel
End Select
pdfExportFormatOptions.FirstPageNumber = 1
pdfExportFormatOptions.LastPageNumber = 15
pdfExportFormatOptions.UsePageRange = True
exportOptions.ExportFormatOptions = pdfExportFormatOptions

' Impostare le opzioni del file del disco.
exportOptions.ExportDestinationType = ExportDestinationType.DiskFile
diskDestinationOptions.DiskFileName = Application.StartupPath + "\Dettaglio_" & Date.Today.Day & "_" & Date.Today.Month & ComboBox9.Text
exportOptions.DestinationOptions = diskDestinationOptions

report.Load("Rdett.rpt")
report.Export(exportOptions)
report.Close()
MessageBox.Show("Esportazione Conclusa", "Fine", MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start("Dettaglio_" & Date.Today.Day & "_" & Date.Today.Month & ComboBox9.Text)

End Sub

freeteo Profilo | Guru

6.542 messaggi | Data Invio: sab 27 ott 2007 - 17:08

ciao,
puoi postare il messaggio di errore? Potrebbe magari essere che ti manca la libreria di esportazione per excel?
ciao.

Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo

x69asterix Profilo | Junior Member

99 messaggi | Data Invio: dom 28 ott 2007 - 09:15

ciao
Impossibile eseguire il cast di oggetti di tipo 'CrystalDecisions.Shared.PdfRtfWordFormatOptions' sul tipo 'CrystalDecisions.Shared.ExcelFormatOptions'.

ma se lo esport da crw me lo esporta senza problemi

freeteo Profilo | Guru

6.542 messaggi | Data Invio: dom 28 ott 2007 - 15:40

ok,
l'errore parla da solo, quella impostazione non è quella che comprende excel, sinceramente io non la conoscevo come classe e quindi non l'ho mai usata.
Ti conviene usare l'enum preposto a questo, ovvero "ExportFormatType ", magari con un codice di questo tipo:

Dim tipo As ExportFormatType = CType(esportaCombo.SelectedItem,ExportFormatType)
Select Case (tipo)
    Case ExportFormatType.CrystalReport
        estensione = ".rpt"
    Case ExportFormatType.Excel, ExportFormatType.ExcelRecord
        estensione = ".xls"
    Case ExportFormatType.HTML32, ExportFormatType.HTML40
        estensione = ".html"
    Case ExportFormatType.NoFormat
        estensione = ".txt"
    Case ExportFormatType.PortableDocFormat
        estensione = ".pdf"
    Case ExportFormatType.RichText
        estensione = ".rtf"
    Case ExportFormatType.WordForWindows
        estensione = ".doc"
End Select
Dim fileName As String = Application.ExecutablePath + estensione
report.ExportToDisk(tipo, fileName)

ovviamente tu hai che ti scelgono il tipo come stringa dalla combo, ma il concetto è facilmente portabile alla tua situazione...

ciao.

Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo

x69asterix Profilo | Junior Member

99 messaggi | Data Invio: lun 29 ott 2007 - 14:05

ciao,
grazie per le tue delucidazione, direi ottimo!!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !