Création d'un fichier excel en utilisant openxml

Soyez le premier à donner votre avis sur cette source.

Vue 18 513 fois - Téléchargée 464 fois

Description

Cette source montre comment générer un fichier Excel vide en utilisant OpenXml. Cela peut paraitre très lourd, mais l?avantage est que l?on produit un vrai fichier Excel (pas un tableau dans une page HTML pour laquelle on a changé le content type). On va donc pouvoir ajouter dans ce fichier des formules, des graphiques,?
L?autre avantage, c?est que l?on utilise que du Xml? je vous laisse imaginer ce que l?on va pouvoir faire en utilisant la méthode WriteXml d?un dataset en la combinant avec une transformation Xslt. D?autres sources sur cette technique ou un article complet (c?est juste une question de temps) vont suivre.

Source / Exemple :


Imports System.IO
Imports System.IO.Packaging
Imports System.Xml

Partial Class _Default
 Inherits System.Web.UI.Page

 Const _kSpreadsheetML As String = "http://schemas.openxmlformats.org/spreadsheetml/2006/main"
 Const _kRelationSchema As String = "http://schemas.openxmlformats.org/officeDocument/2006/relationships"
 Const _kWorkbookContentType As String = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet.main+xml"
 Const _kWorksheetContentType As String = "application/vnd.openxmlformats-officedocument.spreadsheetml.worksheet+xml"
 Const _kStylesheetContentType As String = "application/vnd.openxmlformats-officedocument.spreadsheetml.styles+xml"
 Const _kStringsContentType As String = "application/vnd.openxmlformats-officedocument.spreadsheetml.sharedStrings+xml"

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

  If Not Me.IsPostBack Then

   HelloWorldExcel()

  End If

 End Sub

 Private Sub HelloWorldExcel()

  Dim vBufferStream As MemoryStream = New MemoryStream()
  Dim vPackage As Package = Package.Open(vBufferStream, FileMode.Create, FileAccess.ReadWrite)

  'Création du classeur Excel
  Dim vXmlDocumentWorkBook As New XmlDocument()
  Dim vXmlElementWorkBook As XmlElement = vXmlDocumentWorkBook.CreateElement("workbook", _kSpreadsheetML)
  Dim vNameSpaceAttribute As XmlAttribute = vXmlDocumentWorkBook.CreateAttribute("xmlns", "r", "http://www.w3.org/2000/xmlns/")
  vNameSpaceAttribute.Value = _kRelationSchema
  vXmlElementWorkBook.Attributes.Append(vNameSpaceAttribute)
  vXmlDocumentWorkBook.AppendChild(vXmlElementWorkBook)
  Dim vXmlElementSheets As XmlElement = vXmlDocumentWorkBook.CreateElement("sheets", _kSpreadsheetML)
  vXmlElementWorkBook.AppendChild(vXmlElementSheets)
  Dim vXmlElementSheet As XmlElement = vXmlDocumentWorkBook.CreateElement("sheet", _kSpreadsheetML)
  vXmlElementSheet.SetAttribute("name", "Feuil1")
  vXmlElementSheet.SetAttribute("sheetId", "1")
  vXmlElementSheet.SetAttribute("id", _kRelationSchema, "rId1")
  vXmlElementSheets.AppendChild(vXmlElementSheet)

  'Création de la feuille Excel
  Dim vXmlDocumentWorkSheet As New XmlDocument()
  Dim vXmlElementWorkSheet As XmlElement = vXmlDocumentWorkSheet.CreateElement("worksheet", _kSpreadsheetML)
  vXmlElementWorkSheet.SetAttribute("xmlns:r", _kRelationSchema)
  vXmlDocumentWorkSheet.AppendChild(vXmlElementWorkSheet)
  Dim vXmlElementSheetData = vXmlDocumentWorkSheet.CreateElement("sheetData", _kSpreadsheetML)
  vXmlElementWorkSheet.AppendChild(vXmlElementSheetData)

  'Sauvegarde d'un package temporaire pour créer le bon content type
  Dim vUriDefaultContentType As Uri = New Uri("/default.xml", UriKind.Relative)
  Dim vPackageTemp As PackagePart = vPackage.CreatePart(vUriDefaultContentType, "application/xml")

  'Sauvegarde dans le package de classeur Excel
  Dim vUriWorkBook As Uri = New Uri("/xl/workbook.xml", UriKind.Relative)
  Dim vPackageWorkBook As PackagePart = vPackage.CreatePart(vUriWorkBook, _kWorkbookContentType)
  Dim vStreamWriterWorkBook As StreamWriter = New StreamWriter(vPackageWorkBook.GetStream(FileMode.Create, FileAccess.Write))
  vXmlDocumentWorkBook.Save(vStreamWriterWorkBook)
  vStreamWriterWorkBook.Close()
  vPackage.Flush()

  'Sauvegarde dans le classeur de la feuille Excel
  Dim vUriWorkSheet As Uri = New Uri("/xl/worksheets/sheet1.xml", UriKind.Relative)
  Dim vPackageWorkSheet As PackagePart = vPackage.CreatePart(vUriWorkSheet, _kWorksheetContentType)
  Dim vStreamWriterWorkSheet As StreamWriter = New StreamWriter(vPackageWorkSheet.GetStream(FileMode.Create, FileAccess.Write))
  vXmlDocumentWorkSheet.Save(vStreamWriterWorkSheet)
  vStreamWriterWorkSheet.Close()
  vPackage.Flush()

  'Création des relations
  vPackage.CreateRelationship(vUriWorkBook, TargetMode.Internal, _kRelationSchema & "/officeDocument", "rId1")
  vPackageWorkBook.CreateRelationship(vUriWorkSheet, TargetMode.Internal, _kRelationSchema & "/worksheet", "rId1")

  'Suppression du package temporaire
  vPackage.DeletePart(vUriDefaultContentType)

  vPackage.Flush()
  vPackage.Close()

  'Ecriture du package (le fichier xlsx sur l'objet response
  Response.ClearHeaders()
  Response.ContentType = "application/octet-stream"
  Response.AddHeader("content-disposition", "attachement; filename=Hello.xlsx")
  Response.ContentEncoding = System.Text.Encoding.UTF8
  Response.ClearContent()

  vBufferStream.Position = 0
  Dim vWriter As New BinaryWriter(Response.OutputStream)
  Dim vReader As New BinaryReader(vBufferStream)
  vWriter.Write(vReader.ReadBytes(vBufferStream.Length))
  vReader.Close()
  vWriter.Close()
  vBufferStream.Close()
  Response.Flush()
  Response.Close()

 End Sub

End Class

Conclusion :


Pour fonctionner, vous devez avoir le Frameork .Net 3.0 d?installé, ajouter la référence « WindowsBase » à votre projet et jouer avec la configuration de votre navigateur pour associer les fichiers xlsx avec Excel 2007.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_mathmax
Messages postés
404
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
31 août 2008
-
Bonjour,

j'ai justement un problème pour mettre à jour une feuille de mon document Excel. Tous les fichier présents dans le package sont supprimés alors que je voudrait seulement écraser la feuille que je met à jour.
Voici le code que j'utilise pour sauvegarder le package :

Package pkgOutputDoc = Package.Open(fileName, FileMode.Create, FileAccess.ReadWrite);
Uri uri = new Uri(string.Format("/xl/worksheets/sheet{0}.xml", sheetNumber), UriKind.Relative);
PackagePart partSheetXml = pkgOutputDoc.CreatePart(uri, "application/vnd.openxmlformats-officedocument.spreadsheetml.worksheet+xml");
StreamWriter streamStartPart = new StreamWriter(partSheetXml.GetStream(FileMode.Create, FileAccess.Write));
xmlStartPart.Save(streamStartPart);
streamStartPart.Close();
pkgOutputDoc.Flush();
pkgOutputDoc.CreateRelationship(uri, TargetMode.Internal,
"http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument",
"rId1");
pkgOutputDoc.Flush();
pkgOutputDoc.Close();

Avez-vous une idée du problème ?

merci d'avance.
tikrimi
Messages postés
192
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
9 mars 2007
1 -
Hello Cyril.

Cette source c'est vraiment la première brique d'un developpement que je suis en train de faire pour un client... et comme je l'ai dis, d'autres posts vonts suivre (et les résultats sont vraiment sympas, un peu de patience).
Pour ta pub, tu as bien raison : je l'avais faite sur mon blog concernant ce sujet : http://blogatik.com/blogs/tik/archive/2007/01/25/open-xml-package-explorer-le-couteau-suisse-pour-d-velopper-en-openxml.aspx (j'en profite pour faire la mienne ;-) ).

Bon code à tous
TiK
jesusonline
Messages postés
6827
Date d'inscription
dimanche 15 décembre 2002
Statut
Modérateur
Dernière intervention
13 octobre 2010
17 -
Dans ton exemple tu montres comment créer un fichier xslx de A à Z, mais ce qui est réellement intéressant avec OpenXML et .net 3, c'est que tu peux modifier un fichier Excel 2007. Par exemple tu créer un document Excel bien formaté tout joli avec des graphiques, des formules complexes etc... et ensuite tu peux simplement utiliser ce template, modifier les données et envoyer le nouveau document au client. Il aura donc un vrai fichier excel tout propre avec graphique & co ...

On va me dire que je fais encore de la pub mais pour en savoir plus sur OpenXML vous pouvez regarder ces webcasts qui présente OpenXML pour les developpeurs : http://blogs.codes-sources.com/cyril/archive/2007/01/20/webcast-docx2html-et-openxml-disponible.aspx

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.