begin process at 2012 02 05 03:34:06
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

ASP.Net

 > CRÉATION D'UN FICHIER EXCEL EN UTILISANT OPENXML

CRÉATION D'UN FICHIER EXCEL EN UTILISANT OPENXML


 Information sur la source

Note :
Aucune note
Catégorie :ASP.Net Source .NET ( DotNet ) Classé sous :openxml, excel2007 Niveau :Expert Date de création :25/01/2007 Vu / téléchargé :15 499 / 327

Auteur : tikrimi

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 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

  • 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
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.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) CRÉATION D'UN FICHIER EXCEL 2007 EN UTILISANT OPENXML EST XS...
Source avec Zip Source .NET (Dotnet) EXÉCUTER UN SCRIPT VB.NET LORS D'UNE TRANSFORMATION XSLT (V2...
Source avec Zip Source .NET (Dotnet) ANALYSE STATIQUE DE CODE AVEC FXCOP
Source avec Zip Source .NET (Dotnet) LIBRAIRIE DE TRADUCTION
Source avec Zip Source .NET (Dotnet) VERSION AJAX DU MENU DE CODES SOURCES

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) GUESTBOOK AVEC GRIDVIEW par DanMor498
Source avec Zip CHECKED DROPDOWNLIST par fredzool
Source avec Zip Source avec une capture Source .NET (Dotnet) GRIDVIEW WITH TREEVIEW AND CALLBACK par fredzool
Source avec Zip APPELLER UN WEBSERVICE DEPUIS JAVASCRIPT par fredzool
Source avec Zip Source .NET (Dotnet) MONEY TEXTBOX WITH EMBEDED JAVASCRIPT par fredzool

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) CRÉATION D'UN FICHIER EXCEL 2007 EN UTILISANT OPENXML EST XS... par tikrimi

Commentaires et avis

Commentaire de jesusonline le 25/01/2007 23:48:24 administrateur CS

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

Commentaire de tikrimi le 26/01/2007 07:32:47

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

Commentaire de mathmax le 07/07/2007 14:53:54

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.

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,541 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales