The New Excel 2007 File Format

Working With Worksheet Data In An Excel 2007 File

In this chapter I'll explain how you can read and write to a cell on a worksheet by editing the xml inside an Excel file's internals directly.

Finding the proper worksheet

First a tip about how to get at the content. An Excel 2007 file is nothing more than a zip container which holds a couple of folders and files. You can view those simply by adding .zip behind the filename. Then you right-click the file and select Explore.

The XML package in an Excel 2007 file is structured like this:

Contents of an Excel xlsm file.

In this structure, we need to dive into the "xl" folder, which (in the sample file I created) contains:

Contents of "xl" folder

The file Workbook.xml contains this section which is relevant to this chapter:

Part of the XML in "Workbook.xml"

Let's assume we want to add something to the worksheet "Comments". We must find which xml file contains its data. Key element here is the r:id part in the xml shown above, the r:id of worksheet "Comments" equals "rId7".

In the folder xl\_rels there is a file called "Workbook.xml.rels", which contains this snippet of xml:

Section in "Workbook.xml.rels" which shows us which file belongs to our worksheet

As can be seen, the worksheet "Comments" (rId7) is represented by a file named "sheet7.xml", which is one of the files listed in the folder "worksheets":

folder xl\worksheets showing its contents

Reading a cell's value

The worksheet "Comments" contains this:

Content of worksheet "Comments" (cell B2 contains a cell comment)

Which in turn is reflected in sheet7.xml as:

XML in sheet7.xml (irrelevant part collapsed) showing cells A1, A2 and A3

Suppose we’re interested in the content of cell A1. How do we find that content?

Because it says: <c r="A1" t="s">

We know that cell A1 contains a string (t="s"). The next line: <v>28</v> tells us, we need to find the item with index 28 inside the file called "xl/SharedStrings.xml"

The top of that file looks like this:

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<sst xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" count="41" uniqueCount="46">

So there are 46 unique strings in this workbook. Since the index starts at zero and the sheet7.xml says we need index # 28, we need the 29th "<si>" entry in that XML file:

Not very hard!

Adding Text to a cell

Now suppose we want to add a new text entry to a row in sheet "Comments"?

Let’s also assume the text is not yet included in the SharedStrings.xml file.

First we modify the string count at the top of that file. Change:

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<sst xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" count="41" uniqueCount="46">

to:

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<sst xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" count="42" uniqueCount="47">

Now we can add our new string to this file. At position 29 of the file insert:

Addition of a new string in the sharedStrings.xml file

Done with sharedStrings.xml. Now to the changes in sheet7.xml.

Here is the relevant part of the sheet7.xml file again:

To add a row with our new string, we add the bold part:

Done!! Here is what the sheet looks like when opened in Excel:

The result of our xml editing displayed in Excel

Adding numbers to a cell

Adding a number to a cell works similar to adding text, but with two differences: The numbers are kept in the Sheet?.xml itself (no reference to sharedStrings.xml) and you can add a number format.

A cell with number format "general" and no special formatting applied is represented by this xml in sheet7.xml:

Cell formats (styles) are referred to by an index number, like this (showing the date in cell A3 now):

This happens to be a date style.

The 34 index points to another file within the package: Styles.xml.
This file starts out with a list of (custom) number formats. Then further down, a cell formats cross reference is shown, called cellXfs, which -if applicable- refers back to the custom number format list. The s="34" within Sheet?.xml refers to one of the elements within this node:

Another zero based list. So number 34 is the 35th item (and last) of that list:

You can find more information about implicit style formats in the Standard ECMA-376 Office Open XML Formats: 2nd Edition Part 2.

This cell format cross reference in turn references the numFormatId’s list, the FontId’s list, the fillId’s list and the borderId’s list, which are all contained within Styles.xml.

As you can see, adding formatted cells to a worksheet isn’t that straightforward. You will have to check whether your specific cell formatting combination is already in the cell formatting cross reference (in Styles.xml), which involves checking all individual formatting references for their respective elements.

If your format combination is new, you’ll have to extend any formatting elements’ list with the new format and update the style crossreference. Of course all "count" arguments of these lists need to be updated as well.

Download

I have made the file used in this article available for download:

Excel2007FileFormatDemo.zip

Comments

Showing last 8 comments of 19 in total (Show All Comments):

Comment by: Jan Karel Pieterse (7/23/2009 1:55:31 AM)

Hi Eku,

I expect you will benefit by using pivot tables for your reporting.
Check out Debra Dalgleish' website for lots of information on pivot tables, start here:

http://www.contextures.com/Pubn03.html

Comment by: Eku tap (7/23/2009 6:40:32 PM)

Thank you so much
i really appreciated!!!

Comment by: Maruti Prasad (9/8/2010 6:51:01 AM)

sir
i want to know how i can copy same row data from various excel workbooks into one sheet

Comment by: Jan Karel Pieterse (9/8/2010 11:10:22 PM)

Hi Maruti,

The sample code below demonstrates how to enable you to select some files, after which the content of row 1 of sheet1 of each file is copied to Sheet1 of the file with the macro:

Option Explicit

Sub GetOpenFileNameExample3()
    Dim lCount As Long
    Dim vFilename As Variant
    Dim sPath As String
    Dim lFilecount As Long
    sPath = "c:\windows\temp\"
    ChDrive sPath
    ChDir sPath
    vFilename = Application.GetOpenFilename("Microsoft Excel files (*.xls),*.xls", , "Please select the file(s) to open", , True)
    If TypeName(vFilename) = "Boolean" Then Exit Sub
    For lCount = LBound(vFilename) To UBound(vFilename)
        ImportThisOne CStr(vFilename(lCount))
    Next
End Sub

Sub ImportThisOne(sFileName As String)
    Dim oBook As Workbook
    Workbooks.Open sFileName
    Set oBook = ActiveWorkbook
    'Now do your processing on the newly imported sheet

    'Copy Row1, Sheet1 into this workbook's Sheet1, below last filled cell on column A
    oBook.Worksheets(1).Range("1:1").Copy _
            Destination:=ThisWorkbook.Worksheets("Sheet1").Range("A" & _
            ThisWorkbook.Worksheets("Sheet1").Rows.Count).End(xlUp).Offset(1)
    'close file, do not save changes
    oBook.Close False
    Set oBook = Nothing
End Sub

Comment by: Tom (4/14/2011 12:49:42 PM)

Thanks so much for a very useful article. I tried to follow along though and am struggling a bit on one piece which also leaves me with questions.

1. In your example you added a 29th item in the sharedString.xml file which you then referenced in row 4 of the sheet7.xml part. What I don't understand is how adding this here does not throw off the references of everything that refers to a string after 29. The previous string 29 is now string 30 and so on, correct? So to simply add a new string at 29 should throw all the following strings from 30 to 70 off by one unless all references to them were updated as well, is this not right? What am I misunderstanding her?

2. Given files like sharedString.xml, is there an editor somewhere that would allow me to easily see what the index of something is? For my manual editing the counting of strings doesn't seem very reliable.

3. I've also hit an issue where the editing of some xml files makes them apparently unusable. If I take the original of a file and a copy that has been opened and resaved, the original will function well in my .xlsm file, the resaved version will cause errors. I can't tell any differences between the files though, is there an equivalent of unix/windows carriage return problems that occurs with xml? Is this perchance a common problem with a known fix?

Thanks again for a great article, for someone jumping into this from scratch with only vba experience and no xml this article was exactly what I was looking for, thank you so much!

Comment by: Jan Karel Pieterse (4/15/2011 3:01:47 AM)

Hi Tom,

I'm sorry if I confused you. My example assumes that the string to be added will be the last one in the sharedstrings xml; so if there are 30, I add a 31st. That prevents the difficulty you describe.

Comment by: Paul Farrell (1/10/2012 1:15:50 PM)

This approach works fine when the Workbook that is doing the Processing and the XML source file are different files.

There is an issue when the files are the same as the unzip function will not work on the currently open Workbook.

Do you have any workarounds for this scenario?

Comment by: Jan Karel Pieterse (1/11/2012 4:42:54 AM)

Hi Paul,

Unfortunately that can only be done on files which are not open.

Have a question, comment or suggestion? Then please use this form.

If your question is not directly related to this web page, but rather a more general "How do I do this" Excel question, then I advise you to ask your question here: www.eileenslounge.com.