Windows Mobile 5Résolu

Question

Bonjour à tous ,

je développe une application pour pocket pc ( c'est du VB.Net). J'ai un datagrid et je voudrais copier son contenu dans un fichier excel.Je n'ai pas trouvé la bibliothèque " Microsoft Excel 11.0 " dans les reférence.
Quelqu'un sait-il comment s'y prendre ?

Merci pour votre aide

gillardg · Accepted Answer

Sub

 export2csv(


ByVal

 dtgv 


As

 DataGridView)



Dim

 str 


As





String

 = 


String

.Empty



For

 x = 0 


To

 dtgv.RowCount - 1



For

 y = 0 


To

 dtgv.Columns.Count - 1str = str & dtgv.Item(y, x).Value & 



";"








Next


str = str.Remove(str.Length - 1, 1)


str = str & vbCrLf








Next








Dim

 sdf 


As





New

 SaveFileDialogsdf.Filter = 



"Coma Separated value(*.csv)|*.csv"


sdf.AddExtension = 





True


sdf.DefaultExt = 





"csv"








If

 sdf.ShowDialog = Windows.Forms.DialogResult.OK 


Then








My

.Computer.FileSystem.WriteAllText(sdf.FileName, str, 


False

)



End





If








End





Sub











Bonjour chez vous !

lillith212 · Answer

SAlut,
Je m'y connais pas en .net mais je sais qu'en vb6 on peut installer des packs... Peut etre que c'est aussi le cas en .net...
Bon courage.

S.L.B.
<hr />-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras --<

KIPRE74 · Answer

Merci, mais au fait où trouver ces packs.

gillardg · Answer

KIPRE74 ,pour la bibliothèque " Microsoft Excel 11.0 "
il faut qu'excel soit installé sur le client

exporte en csv ou en html ce sont des formats reconnus par la plupart des tableurs

Bonjour chez vous !

KIPRE74 · Answer

Bonjour gillardg, 

peut-on le faire en csv sur pocket PC ?

gillardg · Answer

datagrid ??


pour chaque ligne dans datagrid


pour chaque cellule dans ligne
ecrire valeur & ";"
cellule suivante
ecrire vbcrlf


ligne suivante

quelque chose comme ça tu saurais le faire ?non?




 










Bonjour chez vous !

KIPRE74 · Answer

Bonsoir,

J'ai pu convertir ma dataGrid en fichier XML
 Dim DateNom As String
        Dim FichNom As String

        DateNom = Replace(Microsoft.VisualBasic.Now, "/", "")
        DateNom = Replace(DateNom, ":", "")
        DateNom = Replace(DateNom, " ", "_")
        FichNom = "Observation-du_" & DateNom & ".XML"
        mdatasource.WriteXml(FichNom)

Cependant je ne vois pas comment faire avec CSV !

KIPRE74 · Answer

Bonjour Gillardg,
J'ai réussi grace à ton code à l'adapter au mien 

  Private Sub SaveGridDataInFile(ByRef fName As String)

        Dim x, y As Integer

        'Dim str As String = String.Empty

        Try

            For x = 0 To mdatasource.Rows.Count - 1

                For y = 0 To mdatasource.Columns.Count - 1

                    str = str & mdatasource.Rows(x).Item(y) & ";"

                Next

                str = str.Remove(str.Length - 1, 1)

                str = str & vbCrLf


                'Return wFlag
            Next
            'FichNom = "Observation-du_" & ".CSV"
            MsgBox("Tableau sauvegarder en CSV")

        Catch e As Exception

            MessageBox.Show("Une erreur s'est produit lors de l'enregistrement." + e.ToString())

        End Try

    End Sub
Mais le prolème je n'arrive pas à le sauvegarder dans un fichier text grace ton code :

 Dim   sdf   As     New   SaveFileDialog

sdf.Filter =
"Coma Separated value(*.csv)|*.csv"

sdf.AddExtension = True

sdf.DefaultExt = "csv"

If sdf.ShowDialog = Windows.Forms.DialogResult.OK Then

My .Computer.FileSystem.WriteAllText(sdf.FileName, str, False )

End If 

Message d'erreur :
AddExtension et DefaultEx non membre de System.Windows.Form.SaveDiaog
computer non membre de My

gillardg · Answer

sauve le fichier d'une façon compatible avec ton framework

Bonjour chez vous !

Windows Mobile 5

9 réponses

Votre réponse

Discussions similaires