OPENOFFICE CALC
CGSI3
Messages postés
416
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
7 janvier 2018
-
5 févr. 2011 à 10:58
cs_Mathieu666 Messages postés 3 Date d'inscription jeudi 27 juillet 2006 Statut Membre Dernière intervention 5 juin 2012 - 5 juin 2012 à 13:36
cs_Mathieu666 Messages postés 3 Date d'inscription jeudi 27 juillet 2006 Statut Membre Dernière intervention 5 juin 2012 - 5 juin 2012 à 13:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/52688-openoffice-calc
https://codes-sources.commentcamarche.net/source/52688-openoffice-calc
5 juin 2012 à 13:36
Private Sub openFile(ByVal sFile As String)
Try
Dim oSM As New OpenOffice.OServiceManager
Bureau = New OpenOffice.OBureau(oSM)
Dim oA As New OpenOffice.OCalcApplication(Bureau)
Classeur = New OpenOffice.OCalcClasseur(oA, sFile)
---> Feuille = New OpenOffice.OCalcSheet(Classeur, Classeur.getActiveSheet())
Catch ex As Exception
MessageBox.Show(ex.Message, "aïe aïe", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Feuille.getCell(0, 0).setstring("Interrupt Text")
Feuille.getCell(0, 1).setstring("Type")
Feuille.getCell(0, 2).setstring("Occurred")
Feuille.getCell(0, 3).setstring("Cleared")
Feuille.getCell(0, 4).setstring("ClearType")
Feuille.getCell(0, 5).setstring("Length")
Feuille.getCell(0, 6).setstring("Number of Recovers")
Feuille.getCell(0, 7).setstring("Number of Retries")
Feuille.getCell(0, 8).setstring("Number of Clears")
Feuille.getCell(0, 9).setstring("Note")
Feuille.getCell(0, 10).setstring("Exported")
Feuille.getCell(0, 11).setstring("Logical Machine ID")
Feuille.getCell(0, 12).setstring("Interrupt ID")
Dim y As Integer = 1
Dim f As Integer = 0
Dim myLines() As String = File.ReadAllLines(fichierScan(0))
For Each j As String In myLines
If Not (y = 1) Then
Dim aryTextFile() As String = j.Split(",")
Dim x As Integer = 0
For Each i As String In aryTextFile
Feuille.getCell(y, x).setString(i)
x += 1
Next
y += 1
End If
Next
End Sub
End Class
Mon Data que j'ai a transfairé est dans un fichier text et chaque valeur est séparées par des virgules,
J'ai plusieurs fichier, a traiter à mêtre dans un même claseur.
J'ai un petit intérogation, c'es lent pour le transposer le dada, je vois chaque valeur se mêtre dans les cellule, y a t'il moyen de rendre cela à vitesse grand V. Style ca prend 5 minutes pour copier environ 2000 lignes, de 10 valeurs.
Merci et bonne journée
4 juin 2012 à 16:58
Mais j'aimerais bien savoir comme écrire dans une cellule et lire le contenue l'une d'entre elle.
Merci et bonne journée
20 sept. 2011 à 15:35
20 sept. 2011 à 14:19
20 sept. 2011 à 14:01
Dis moi sais tu comment capturer un event d'un document OPENOFFICE?
5 févr. 2011 à 10:58
Comme tu le dis, il est bien difficile de trouver du code vb.net sur Open Office.
Je n'arrive pas a l'ouvrir avec ma version Vb Net Express 2008 mais je peux sans pb
lire le code.
Bonne prog.
CGSI3