help dataset excel

Question

Bonjour a tous,

voila j'ai un souci pour exporter un dataset vers un nveau fichier excel. 
Plusieurs proc&#233;d&#233;s me sont propos&#233;s mais je n'arrive pas a comprendre. Le seul que je comprenne est une copie ligne pas ligne colone par colone en utilisant la r&#233;f&#233;rence microsoft excel 9.0
Probleme: je n'arrive pas a mettre en place ce proc&#233;d&#233;, j'ai souvent l'erreur:
Une exception non g&#233;r&#233;e du type 'System.InvalidCastException' s'est produite dans WindowsApplication02.exe


Informations suppl&#233;mentaires : &#201;chec de QueryInterface pour l'interface Excel._Application.

voila quelqu'un a une id&#233;e parcque la ca doit faire 2mois que je ne trouve pas et c un peu embetant
Merci de me r&#233;pondre :)

spike

Pierre_faucon · Answer

Bonjour

Qu'entends-tu exactement par dataset? Peux-tu donner un extrait du code que tu utilises? Peux-tu effectuer le code pas &#224; pas et indiquer la ligne &#224; partir de laquelle tu as l'erreur?

A bient&#244;t

Pierre Fauconnier

spike62300 · Answer

Private Function fncExcelExport(ByVal strSql As String)
        Dim dsExcelExport As New System.Data.DataSet
        Dim daExcelExport As System.Data.SqlClient.SqlDataAdapter
        Dim Excel As New Excel.Application
        Dim intColumn, intRow, intColumnValue As Integer
        Dim strExcelFile As String
        Dim strFileName As String
        Dim conCurrent As New SqlClient.SqlConnection
        conCurrent.ConnectionString = "data source=;initial catalog=pubs;User ID=sa;Password="
        daExcelExport = New System.Data.SqlClient.SqlDataAdapter(strSql, conCurrent)
        daExcelExport.Fill(dsExcelExport)
        Dim strAppPath = System.Reflection.Assembly.GetExecutingAssembly.Location.Substring(0, System.Reflection.Assembly.GetExecutingAssembly.Location.LastIndexOf("") + 1)
        With Excel
            .SheetsInNewWorkbook = 1
            .Workbooks.Add()
            .Worksheets(1).Select()
            'For displaying the column name in the the excel file.
            For intColumn = 0 To dsExcelExport.Tables(0).Columns.Count - 1
                .Cells(1, intColumn + 1).Value = dsExcelExport.Tables(0).Columns(intColumn).ColumnName.ToString
            Next
            'For displaying the column value row-by-row in the the excel file.
            For intRow = 0 To dsExcelExport.Tables(0).Rows.Count - 1
                For intColumnValue = 0 To dsExcelExport.Tables(0).Columns.Count - 1
                    .Cells(intRow + 1, intColumnValue + 1).Value = dsExcelExport.Tables(0).Rows(intRow).ItemArray(intColumnValue).ToString
                Next
            Next
            'strFileName = InputBox("Please enter the file name.", "Swapnil")
            strExcelFile = strAppPath & "employee"
            .ActiveWorkbook().SaveAs(strExcelFile)
            .ActiveWorkbook.Close()
        End With
        MessageBox.Show("File exported sucessfully.", "Exporting done", MessageBoxButtons.OK, MessageBoxIcon.Information)
NormalExit:
        Excel.Quit()
        Excel = Nothing
        GC.Collect()
        Exit Function
    End Function

voila le code: en fait je l'ai bien sur modifier en mettant mon propre dataset et mon oledbdataAdapter que j'utilise. Ici c le SqlDataAdapter kil utilise.
Bref cela plante juste apres le with
J'ai beau declar&#233; mon excel en tant que new excel.application
y me fait l'erreur que je t'ai di en haut quand il arrive a:
.SheetsInNewWorkbook = 1
puis add c la meme chose etc...
         

spike

Pierre_faucon · Answer

Essaie ceci

dim app_Excel as excel.application

ou

dim app_Excel as new excel.application

Je pense qu'appeler ta variable Excel pose probl&#232;me car Excel est un mot r&#233;serv&#233; d&#232;s lors que tu utilises une r&#233;f&#233;rence &#224; Excel.

De ce que je me souviens ( en vba, ...) tu ne peux pas utiliser new avec Excel.application

Une des deux solutions fonctionne-t-elle?

Pierre Fauconnier

spike62300 · Answer

Dim ap_Excel 
As Excel.Application



Dim intColumn, intRow, intColumnValue 
As 
Integer



Dim strExcelFile 
As 
String



Dim strFileName 
As 
String


grille.DataSource = DataSet11.Tables("FAMILLE")


OleDbDataAdapter1.Fill(DataSet11, "FAMILLE")


grille.SetDataBinding(DataSet11, "FAMILLE")


MsgBox("la vla")



'Dim strAppPath = System.Reflection.Assembly.GetExecutingAssembly.Location.Substring(0, System.Reflection.Assembly.GetExecutingAssembly.Location.LastIndexOf("") + 1)


ap_Excel.SheetsInNewWorkbook = 1


ap_Excel.Workbooks.Add()


ap_Excel.Worksheets(1).Select()



'For displaying the column name in the the excel file.



For intColumn = 0 
To DataSet11.Tables(0).Columns.Count - 1


ap_Excel.Cells(1, intColumn + 1).Value = DataSet11.Tables(0).Columns(intColumn).ColumnName.ToString



Next



'For displaying the column value row-by-row in the the excel file.



For intRow = 0 
To DataSet11.Tables(0).Rows.Count - 1



For intColumnValue = 0 
To DataSet11.Tables(0).Columns.Count - 1


ap_Excel.Cells(intRow + 1, intColumnValue + 1).Value = DataSet11.Tables(0).Rows(intRow).ItemArray(intColumnValue).ToString



Next



Next



'strFileName = InputBox("Please enter the file name.", "Swapnil")



'strExcelFile = strAppPath & "employee"


ap_Excel.ActiveWorkbook().SaveAs(strExcelFile)


ap_Excel.ActiveWorkbook.Close()


MessageBox.Show("File exported sucessfully.", "Exporting done", MessageBoxButtons.OK, MessageBoxIcon.Information)


NormalExit:


ap_Excel.Quit()


ap_Excel = 
Nothing


GC.Collect()



Exit 
Sub



voici le code modifi&#233;:
j'ai chang&#233; ske tu ma di ca fait la meme erreur
en enlevant la declaration new devant application ca met un autre message d'erreur quand il arrive a worksheet:
Une exception non g&#233;r&#233;e du type 'System.NullReferenceException' s'est produite dans WindowsApplication02.exe


Informations suppl&#233;mentaires : La r&#233;f&#233;rence d'objet n'est pas d&#233;finie &#224; une instance d'un objet.

Voila si tu as une id&#233;e merci deja de m'avoir repondu.
La je dois y aller, je n'ai pu le net avant demain matin donc jte repondrais dem1 matin

Merci encore

spike

Pierre_faucon · Answer

Apparemment, tu renvoies le m&#234;me message que tout &#224; l'heure. As-tu essay&#233; avec les modifs propos&#233;es ?

Pierre

spike62300 · Answer

oui j'ai essay&#233; les deux solutions.
Apparement tu crois que je suis en vba mais c'est faux je suis bien en vb.net donc theoriquement ce code devrait fonctionner.

spike

Help dataset excel

6 réponses

Discussions similaires