writeexcel 0.3.4 → 0.3.5

data/examples/panes.rb

@@ -0,0 +1,112 @@
+#!/usr/bin/ruby -w
+
+#######################################################################
+#
+# Example of using the WriteExcel module to create worksheet panes.
+#
+# reverse('©'), May 2001, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+
+require 'writeexcel'
+
+workbook  = WriteExcel.new("panes.xls")
+
+worksheet1 = workbook.add_worksheet('Panes 1')
+worksheet2 = workbook.add_worksheet('Panes 2')
+worksheet3 = workbook.add_worksheet('Panes 3')
+worksheet4 = workbook.add_worksheet('Panes 4')
+
+# Freeze panes
+worksheet1.freeze_panes(1, 0) # 1 row
+
+worksheet2.freeze_panes(0, 1) # 1 column
+worksheet3.freeze_panes(1, 1) # 1 row and column
+
+# Split panes.
+# The divisions must be specified in terms of row and column dimensions.
+# The default row height is 12.75 and the default column width is 8.43
+#
+worksheet4.split_panes(12.75, 8.43, 1, 1) # 1 row and column
+
+
+#######################################################################
+#
+# Set up some formatting and text to highlight the panes
+#
+
+header = workbook.add_format
+header.set_color('white')
+header.set_align('center')
+header.set_align('vcenter')
+header.set_pattern
+header.set_fg_color('green')
+
+center = workbook.add_format
+center.set_align('center')
+
+#######################################################################
+#
+# Sheet 1
+#
+
+worksheet1.set_column('A:I', 16)
+worksheet1.set_row(0, 20)
+worksheet1.set_selection('C3')
+
+(0..8).each { |i| worksheet1.write(0, i, 'Scroll down', header) }
+(1..100).each do |i|
+ (0..8).each { |j| worksheet1.write(i, j, i + 1, center) }
+end
+
+#######################################################################
+#
+# Sheet 2
+#
+
+worksheet2.set_column('A:A', 16)
+worksheet2.set_selection('C3')
+
+(0..49).each do |i|
+  worksheet2.set_row(i, 15)
+  worksheet2.write(i, 0, 'Scroll right', header)
+end
+
+(0..49).each do |i|
+  (1..25).each { |j| worksheet2.write(i, j, j, center) }
+end
+
+#######################################################################
+#
+# Sheet 3
+#
+
+worksheet3.set_column('A:Z', 16)
+worksheet3.set_selection('C3')
+
+(1..25).each { |i| worksheet3.write(0, i, 'Scroll down',  header) }
+
+(1..49).each { |i| worksheet3.write(i, 0, 'Scroll right', header) }
+
+(1..49).each do |i|
+  (1..25).each { |j| worksheet3.write(i, j, j, center) }
+end
+
+#######################################################################
+#
+# Sheet 4
+#
+
+worksheet4.set_selection('C3')
+
+(1..25).each { |i| worksheet4.write(0, i, 'Scroll', center) }
+
+(1..49).each { |i| worksheet4.write(i, 0, 'Scroll', center) }
+
+(1..49).each do |i|
+  (1..25).each { |j| worksheet4.write(i, j, j, center) }
+end
+
+workbook.close

data/examples/right_to_left.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/ruby -w
+
+#######################################################################
+#
+# Example of how to change the default worksheet direction from
+# left-to-right to right-to-left as required by some eastern verions
+# of Excel.
+#
+# reverse('©'), January 2006, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+
+require 'writeexcel'
+
+workbook   = WriteExcel.new("right_to_left.xls")
+worksheet1 = workbook.add_worksheet
+worksheet2 = workbook.add_worksheet
+
+worksheet2.right_to_left
+
+worksheet1.write(0, 0, 'Hello')  #  A1, B1, C1, ...
+worksheet2.write(0, 0, 'Hello')  # ..., C1, B1, A1
+
+workbook.close

data/examples/row_wrap.rb

@@ -0,0 +1,52 @@
+#!/usr/bin/ruby -w
+
+##############################################################################
+#
+# Demonstrates how to wrap data from one worksheet onto another.
+#
+# Excel has a row limit of 65536 rows. Sometimes the amount of row data to be
+# written to a file is greater than this limit. In this case it is a useful
+# technique to wrap the data from one worksheet onto the next so that we get
+# something like the following:
+#
+#   Sheet1  Row     1  -  65536
+#   Sheet2  Row 65537  - 131072
+#   Sheet3  Row 131073 - ...
+#
+# In order to achieve this we use a single worksheet reference and
+# reinitialise it to point to a new worksheet when required.
+#
+# reverse('©'), May 2006, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+
+require 'writeexcel'
+
+workbook  = WriteExcel.new('row_wrap.xls')
+worksheet = workbook.add_worksheet
+
+# Worksheet formatting.
+worksheet.set_column('A:A', 20)
+
+# For the sake of this example we will use a small row limit. In order to use
+# the entire row range set the row_limit to 65536.
+row_limit = 10
+row       = 0
+
+(1 .. 2 * row_limit + 10).each do |count|
+  # When we hit the row limit we redirect the output
+  # to a new worksheet and reset the row number.
+  if row == row_limit
+    worksheet = workbook.add_worksheet
+    row = 0
+
+    # Repeat any worksheet formatting.
+    worksheet.set_column('A:A', 20)
+  end
+  worksheet.write(row, 0,  "This is row #{count}")
+  row += 1
+end
+
+workbook.close

data/lib/writeexcel/formula.rb

@@ -93,58 +93,58 @@ class Formula < ExcelFormulaParser       #:nodoc:
         exit "Unknown function #{token}() in formula\n" if _class.nil?
         _classary.push(_class)
       elsif (token == '_vol')
-        parse_str = parse_str + convert_volatile()
+        parse_str += convert_volatile()
       elsif (token == 'ptgBool')
         token = args.shift
-        parse_str = parse_str + convert_bool(token)
+        parse_str += convert_bool(token)
       elsif (token == '_num')
         token = args.shift
-        parse_str = parse_str + convert_number(token)
+        parse_str += convert_number(token)
       elsif (token == '_str')
         token = args.shift
-        parse_str = parse_str + convert_string(token)
+        parse_str += convert_string(token)
       elsif (token =~ /^_ref2d/)
         modifier  = token.sub(/_ref2d/, '')
         _class      = _classary[-1]
         _class      = 0 if modifier == 'R'
         _class      = 1 if modifier == 'V'
         token      = args.shift
-        parse_str = parse_str + convert_ref2d(token, _class)
+        parse_str += convert_ref2d(token, _class)
       elsif (token =~ /^_ref3d/)
         modifier  = token.sub(/_ref3d/,'')
         _class      = _classary[-1]
         _class      = 0 if modifier == 'R'
         _class      = 1 if modifier == 'V'
         token      = args.shift
-        parse_str = parse_str + convert_ref3d(token, _class)
+        parse_str += convert_ref3d(token, _class)
       elsif (token =~ /^_range2d/)
         modifier  = token.sub(/_range2d/,'')
         _class      = _classary[-1]
         _class      = 0 if modifier == 'R'
         _class      = 1 if modifier == 'V'
         token      = args.shift
-        parse_str = parse_str + convert_range2d(token, _class)
+        parse_str += convert_range2d(token, _class)
       elsif (token =~ /^_range3d/)
         modifier  = token.sub(/_range3d/,'')
         _class      = _classary[-1]
         _class      = 0 if modifier == 'R'
         _class      = 1 if modifier == 'V'
         token      = args.shift
-        parse_str = parse_str + convert_range3d(token, _class)
+        parse_str += convert_range3d(token, _class)
       elsif (token =~ /^_name/)
         modifier = token.sub(/_name/, '')
         _class      = _classary[-1]
         _class      = 0 if modifier == 'R'
         _class      = 1 if modifier == 'V'
         token      = args.shift
-        parse_str = parse_str + convert_name(token, _class)
+        parse_str += convert_name(token, _class)
       elsif (token == '_func')
         token = args.shift
-        parse_str = parse_str + convert_function(token, num_args.to_i)
+        parse_str += convert_function(token, num_args.to_i)
         _classary.pop
         num_args = 0 # Reset after use
       elsif @ptg[token]
-        parse_str = parse_str + [@ptg[token]].pack("C")
+        parse_str += [@ptg[token]].pack("C")
       else
         # Unrecognised token
         return nil
@@ -189,12 +189,12 @@ class Formula < ExcelFormulaParser       #:nodoc:
         s.unscan
         s.scan(/[A-Z0-9_.]+/)
         q.push [:FUNC,   s.matched]
-      elsif s.scan(/[A-Za-z_]\w+/)
-        q.push [:NAME , s.matched]
       elsif s.scan(/TRUE/)
         q.push [:TRUE, s.matched]
       elsif s.scan(/FALSE/)
         q.push [:FALSE, s.matched]
+      elsif s.scan(/[A-Za-z_]\w+/)
+        q.push [:NAME , s.matched]
       elsif s.scan(/\s+/)
         ;
       elsif s.scan(/./)
@@ -554,7 +554,7 @@ class Formula < ExcelFormulaParser       #:nodoc:
     if @ext_names.has_key?(name)
       @ext_names[name]
     else
-      raise "Unknown defined name $name in formula\n"
+      raise "Unknown defined name #{name} in formula\n"
     end
   end
   private :get_name_index

data/lib/writeexcel/worksheet.rb

@@ -211,8 +211,9 @@ class Worksheet < BIFFWriter
 
     # Prepend the COLINFO records if they exist
     unless @colinfo.empty?
-      while (!@colinfo.empty?)
-        arrayref = @colinfo.pop
+      colinfo = @colinfo.dup
+      while (!colinfo.empty?)
+        arrayref = colinfo.pop
         store_colinfo(*arrayref)
       end
     end
@@ -604,7 +605,7 @@ class Worksheet < BIFFWriter
     #
     grbit |= level
     grbit |= 0x0010 if collapsed != 0
-    grbit |= 0x0020 if hidden    != 0
+    grbit |= 0x0020 if !hidden.nil? && hidden != 0
     grbit |= 0x0040
     grbit |= 0x0080 unless format.nil?
     grbit |= 0x0100
@@ -3850,7 +3851,7 @@ class Worksheet < BIFFWriter
       # flag and check the result type.
       grbit  = 0x00
 
-      if value =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/
+      if value.to_s =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/
         # Value is a number.
         num = [value].pack("d")
       else
@@ -3906,7 +3907,7 @@ class Worksheet < BIFFWriter
     header    = [record, length].pack("vv")
     data      = [strlen, encoding].pack("vC")
 
-    return header . data . string
+    return header + data + string
   end
   private :get_formula_string
 
@@ -5775,8 +5776,8 @@ class Worksheet < BIFFWriter
     col_level = 7 if col_level > 7
 
     # The displayed level is one greater than the max outline levels
-    row_level = row_level + 1 if row_level > 0
-    col_level = col_level + 1 if col_level > 0
+    row_level += 1 if row_level > 0
+    col_level += 1 if col_level > 0
 
     header = [record, length].pack("vv")
     data   = [dxRwGut, dxColGut, row_level, col_level].pack("vvvv")

data/test/test_example_match.rb

@@ -990,6 +990,62 @@ class TC_example_match < Test::Unit::TestCase
     compare_file("#{PERL_OUTDIR}/merge5.xls", @file)
   end
 
+  def test_merge6
+    # Create a new workbook and add a worksheet
+    workbook  = WriteExcel.new(@file)
+    worksheet = workbook.add_worksheet
+
+    # Increase the cell size of the merged cells to highlight the formatting.
+    (2..9).each { |i| worksheet.set_row(i, 36) }
+    worksheet.set_column('B:D', 25)
+
+    # Format for the merged cells.
+    format = workbook.add_format(
+               :border      => 6,
+               :bold        => 1,
+               :color       => 'red',
+               :size        => 20,
+               :valign      => 'vcentre',
+               :align       => 'left',
+               :indent      => 1
+      )
+
+    ###############################################################################
+    #
+    # Write an Ascii string.
+    #
+
+    worksheet.merge_range('B3:D4', 'ASCII: A simple string', format)
+
+    ###############################################################################
+    #
+    # Write a UTF-16 Unicode string.
+    #
+
+    # A phrase in Cyrillic encoded as UTF-16BE.
+    utf16_str = [
+      '005500540046002d00310036003a0020' <<
+      '042d0442043e002004440440043004370430002004' <<
+      '3d043000200440044304410441043a043e043c0021'
+    ].pack("H*")
+
+    # Note the extra parameter at the end to indicate UTF-16 encoding.
+    worksheet.merge_range('B6:D7', utf16_str, format, 1)
+
+    ###############################################################################
+    #
+    # Write a UTF-8 Unicode string.
+    #
+
+    smiley = '☺'  # chr 0x263a in perl
+    worksheet.merge_range('B9:D10', "UTF-8: A Unicode smiley #{smiley}", format)
+
+    workbook.close
+
+    # do assertion
+    compare_file("#{PERL_OUTDIR}/merge6.xls", @file)
+  end
+
   def test_images
     # Create a new workbook called simple.xls and add a worksheet
     workbook   = WriteExcel.new(@file)
@@ -2536,6 +2592,548 @@ workbook.close
     compare_file("#{PERL_OUTDIR}/comments2.xls", @file)
   end
 
+  def test_formula_result
+    workbook  = WriteExcel.new(@file)
+    worksheet = workbook.add_worksheet()
+    format    = workbook.add_format(:color => 'blue')
+
+    worksheet.write('A1', '=1+2')
+    worksheet.write('A2', '=1+2',                     format, 4)
+    worksheet.write('A3', '="ABC"',                   nil,    'DEF')
+    worksheet.write('A4', '=IF(A1 > 1, TRUE, FALSE)', nil,    'TRUE')
+    worksheet.write('A5', '=1/0',                     nil,    '#DIV/0!')
+
+    workbook.close
+
+    # do assertion
+    compare_file("#{PERL_OUTDIR}/formula_result.xls", @file)
+  end
+
+  def test_indent
+    workbook  = WriteExcel.new(@file)
+
+    worksheet = workbook.add_worksheet()
+    indent1   = workbook.add_format(:indent => 1)
+    indent2   = workbook.add_format(:indent => 2)
+
+    worksheet.set_column('A:A', 40)
+
+    worksheet.write('A1', "This text is indented 1 level",  indent1)
+    worksheet.write('A2', "This text is indented 2 levels", indent2)
+
+    workbook.close
+
+    # do assertion
+    compare_file("#{PERL_OUTDIR}/indent.xls", @file)
+  end
+
+  def test_outline
+    # Create a new workbook and add some worksheets
+    workbook   = WriteExcel.new(@file)
+    worksheet1 = workbook.add_worksheet('Outlined Rows')
+    worksheet2 = workbook.add_worksheet('Collapsed Rows')
+    worksheet3 = workbook.add_worksheet('Outline Columns')
+    worksheet4 = workbook.add_worksheet('Outline levels')
+
+    # Add a general format
+    bold = workbook.add_format(:bold => 1)
+
+
+
+    ###############################################################################
+    #
+    # Example 1: Create a worksheet with outlined rows. It also includes SUBTOTAL()
+    # functions so that it looks like the type of automatic outlines that are
+    # generated when you use the Excel Data->SubTotals menu item.
+    #
+
+
+    # For outlines the important parameters are $hidden and $level. Rows with the
+    # same $level are grouped together. The group will be collapsed if $hidden is
+    # non-zero. $height and $XF are assigned default values if they are undef.
+    #
+    # The syntax is: set_row($row, $height, $XF, $hidden, $level, $collapsed)
+    #
+    worksheet1.set_row(1,  nil, nil, 0, 2)
+    worksheet1.set_row(2,  nil, nil, 0, 2)
+    worksheet1.set_row(3,  nil, nil, 0, 2)
+    worksheet1.set_row(4,  nil, nil, 0, 2)
+    worksheet1.set_row(5,  nil, nil, 0, 1)
+
+    worksheet1.set_row(6,  nil, nil, 0, 2)
+    worksheet1.set_row(7,  nil, nil, 0, 2)
+    worksheet1.set_row(8,  nil, nil, 0, 2)
+    worksheet1.set_row(9,  nil, nil, 0, 2)
+    worksheet1.set_row(10, nil, nil, 0, 1)
+
+
+    # Add a column format for clarity
+    worksheet1.set_column('A:A', 20)
+
+    # Add the data, labels and formulas
+    worksheet1.write('A1',  'Region', bold)
+    worksheet1.write('A2',  'North')
+    worksheet1.write('A3',  'North')
+    worksheet1.write('A4',  'North')
+    worksheet1.write('A5',  'North')
+    worksheet1.write('A6',  'North Total', bold)
+
+    worksheet1.write('B1',  'Sales',  bold)
+    worksheet1.write('B2',  1000)
+    worksheet1.write('B3',  1200)
+    worksheet1.write('B4',  900)
+    worksheet1.write('B5',  1200)
+    worksheet1.write('B6',  '=SUBTOTAL(9,B2:B5)', bold)
+
+    worksheet1.write('A7',  'South')
+    worksheet1.write('A8',  'South')
+    worksheet1.write('A9',  'South')
+    worksheet1.write('A10', 'South')
+    worksheet1.write('A11', 'South Total', bold)
+
+    worksheet1.write('B7',  400)
+    worksheet1.write('B8',  600)
+    worksheet1.write('B9',  500)
+    worksheet1.write('B10', 600)
+    worksheet1.write('B11', '=SUBTOTAL(9,B7:B10)', bold)
+
+    worksheet1.write('A12', 'Grand Total', bold)
+    worksheet1.write('B12', '=SUBTOTAL(9,B2:B10)', bold)
+
+
+    ###############################################################################
+    #
+    # Example 2: Create a worksheet with outlined rows. This is the same as the
+    # previous example except that the rows are collapsed.
+    # Note: We need to indicate the row that contains the collapsed symbol '+'
+    # with the optional parameter, $collapsed.
+
+    # The group will be collapsed if $hidden is non-zero.
+    # The syntax is: set_row($row, $height, $XF, $hidden, $level, $collapsed)
+    #
+    worksheet2.set_row(1,  nil, nil, 1, 2)
+    worksheet2.set_row(2,  nil, nil, 1, 2)
+    worksheet2.set_row(3,  nil, nil, 1, 2)
+    worksheet2.set_row(4,  nil, nil, 1, 2)
+    worksheet2.set_row(5,  nil, nil, 1, 1)
+
+    worksheet2.set_row(6,  nil, nil, 1, 2)
+    worksheet2.set_row(7,  nil, nil, 1, 2)
+    worksheet2.set_row(8,  nil, nil, 1, 2)
+    worksheet2.set_row(9,  nil, nil, 1, 2)
+    worksheet2.set_row(10, nil, nil, 1, 1)
+    worksheet2.set_row(11, nil, nil, 0, 0, 1)
+
+
+    # Add a column format for clarity
+    worksheet2.set_column('A:A', 20)
+
+    # Add the data, labels and formulas
+    worksheet2.write('A1',  'Region', bold)
+    worksheet2.write('A2',  'North')
+    worksheet2.write('A3',  'North')
+    worksheet2.write('A4',  'North')
+    worksheet2.write('A5',  'North')
+    worksheet2.write('A6',  'North Total', bold)
+
+    worksheet2.write('B1',  'Sales',  bold)
+    worksheet2.write('B2',  1000)
+    worksheet2.write('B3',  1200)
+    worksheet2.write('B4',  900)
+    worksheet2.write('B5',  1200)
+    worksheet2.write('B6',  '=SUBTOTAL(9,B2:B5)', bold)
+
+    worksheet2.write('A7',  'South')
+    worksheet2.write('A8',  'South')
+    worksheet2.write('A9',  'South')
+    worksheet2.write('A10', 'South')
+    worksheet2.write('A11', 'South Total', bold)
+
+    worksheet2.write('B7',  400)
+    worksheet2.write('B8',  600)
+    worksheet2.write('B9',  500)
+    worksheet2.write('B10', 600)
+    worksheet2.write('B11', '=SUBTOTAL(9,B7:B10)', bold)
+
+    worksheet2.write('A12', 'Grand Total', bold)
+    worksheet2.write('B12', '=SUBTOTAL(9,B2:B10)', bold)
+
+
+
+    ###############################################################################
+    #
+    # Example 3: Create a worksheet with outlined columns.
+    #
+    data = [
+                ['Month', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', ' Total'],
+                ['North', 50,    20,    15,    25,    65,    80,    '=SUM(B2:G2)'],
+                ['South', 10,    20,    30,    50,    50,    50,    '=SUM(B3:G3)'],
+                ['East',  45,    75,    50,    15,    75,    100,   '=SUM(B4:G4)'],
+                ['West',  15,    15,    55,    35,    20,    50,    '=SUM(B5:G6)']
+            ]
+
+    # Add bold format to the first row
+    worksheet3.set_row(0, nil, bold)
+
+    # Syntax: set_column(col1, col2, width, XF, hidden, level, collapsed)
+    worksheet3.set_column('A:A', 10, bold      )
+    worksheet3.set_column('B:G', 5,  nil, 0, 1)
+    worksheet3.set_column('H:H', 10)
+
+    # Write the data and a formula
+    worksheet3.write_col('A1', data)
+    worksheet3.write('H6', '=SUM(H2:H5)', bold)
+
+
+
+    ###############################################################################
+    #
+    # Example 4: Show all possible outline levels.
+    #
+    levels = [
+      "Level 1", "Level 2", "Level 3", "Level 4",
+      "Level 5", "Level 6", "Level 7", "Level 6",
+      "Level 5", "Level 4", "Level 3", "Level 2", "Level 1"
+    ]
+
+    worksheet4.write_col('A1', levels)
+
+    worksheet4.set_row(0,  nil, nil, nil, 1)
+    worksheet4.set_row(1,  nil, nil, nil, 2)
+    worksheet4.set_row(2,  nil, nil, nil, 3)
+    worksheet4.set_row(3,  nil, nil, nil, 4)
+    worksheet4.set_row(4,  nil, nil, nil, 5)
+    worksheet4.set_row(5,  nil, nil, nil, 6)
+    worksheet4.set_row(6,  nil, nil, nil, 7)
+    worksheet4.set_row(7,  nil, nil, nil, 6)
+    worksheet4.set_row(8,  nil, nil, nil, 5)
+    worksheet4.set_row(9,  nil, nil, nil, 4)
+    worksheet4.set_row(10, nil, nil, nil, 3)
+    worksheet4.set_row(11, nil, nil, nil, 2)
+    worksheet4.set_row(12, nil, nil, nil, 1)
+
+    workbook.close
+
+    # do assertion
+    compare_file("#{PERL_OUTDIR}/outline.xls", @file)
+  end
+
+  def test_outline_collapsed
+    # Create a new workbook and add some worksheets
+    workbook   = WriteExcel.new(@file)
+    worksheet1 = workbook.add_worksheet('Outlined Rows')
+    worksheet2 = workbook.add_worksheet('Collapsed Rows 1')
+    worksheet3 = workbook.add_worksheet('Collapsed Rows 2')
+    worksheet4 = workbook.add_worksheet('Collapsed Rows 3')
+    worksheet5 = workbook.add_worksheet('Outline Columns')
+    worksheet6 = workbook.add_worksheet('Collapsed Columns')
+
+    # Add a general format
+    bold = workbook.add_format(:bold => 1)
+
+    #
+    # This function will generate the same data and sub-totals on each worksheet.
+    #
+    def create_sub_totals(worksheet, bold)
+      # Add a column format for clarity
+      worksheet.set_column('A:A', 20)
+
+      # Add the data, labels and formulas
+      worksheet.write('A1',  'Region', bold)
+      worksheet.write('A2',  'North')
+      worksheet.write('A3',  'North')
+      worksheet.write('A4',  'North')
+      worksheet.write('A5',  'North')
+      worksheet.write('A6',  'North Total', bold)
+
+      worksheet.write('B1',  'Sales',  bold)
+      worksheet.write('B2',  1000)
+      worksheet.write('B3',  1200)
+      worksheet.write('B4',  900)
+      worksheet.write('B5',  1200)
+      worksheet.write('B6',  '=SUBTOTAL(9,B2:B5)', bold)
+
+      worksheet.write('A7',  'South')
+      worksheet.write('A8',  'South')
+      worksheet.write('A9',  'South')
+      worksheet.write('A10', 'South')
+      worksheet.write('A11', 'South Total', bold)
+
+      worksheet.write('B7',  400)
+      worksheet.write('B8',  600)
+      worksheet.write('B9',  500)
+      worksheet.write('B10', 600)
+      worksheet.write('B11', '=SUBTOTAL(9,B7:B10)', bold)
+
+      worksheet.write('A12', 'Grand Total', bold)
+      worksheet.write('B12', '=SUBTOTAL(9,B2:B10)', bold)
+
+    end
+
+
+    ###############################################################################
+    #
+    # Example 1: Create a worksheet with outlined rows. It also includes SUBTOTAL()
+    # functions so that it looks like the type of automatic outlines that are
+    # generated when you use the Excel Data.SubTotals menu item.
+    #
+
+    # The syntax is: set_row(row, height, XF, hidden, level, collapsed)
+    worksheet1.set_row(1,  nil, nil, 0, 2)
+    worksheet1.set_row(2,  nil, nil, 0, 2)
+    worksheet1.set_row(3,  nil, nil, 0, 2)
+    worksheet1.set_row(4,  nil, nil, 0, 2)
+    worksheet1.set_row(5,  nil, nil, 0, 1)
+
+    worksheet1.set_row(6,  nil, nil, 0, 2)
+    worksheet1.set_row(7,  nil, nil, 0, 2)
+    worksheet1.set_row(8,  nil, nil, 0, 2)
+    worksheet1.set_row(9,  nil, nil, 0, 2)
+    worksheet1.set_row(10, nil, nil, 0, 1)
+
+    # Write the sub-total data that is common to the row examples.
+    create_sub_totals(worksheet1, bold)
+
+
+    ###############################################################################
+    #
+    # Example 2: Create a worksheet with collapsed outlined rows.
+    # This is the same as the example 1  except that the all rows are collapsed.
+    # Note: We need to indicate the row that contains the collapsed symbol '+' with
+    # the optional parameter, collapsed.
+
+    worksheet2.set_row(1,  nil, nil, 1, 2)
+    worksheet2.set_row(2,  nil, nil, 1, 2)
+    worksheet2.set_row(3,  nil, nil, 1, 2)
+    worksheet2.set_row(4,  nil, nil, 1, 2)
+    worksheet2.set_row(5,  nil, nil, 1, 1)
+
+    worksheet2.set_row(6,  nil, nil, 1, 2)
+    worksheet2.set_row(7,  nil, nil, 1, 2)
+    worksheet2.set_row(8,  nil, nil, 1, 2)
+    worksheet2.set_row(9,  nil, nil, 1, 2)
+    worksheet2.set_row(10, nil, nil, 1, 1)
+
+    worksheet2.set_row(11, nil, nil, 0, 0, 1)
+
+    # Write the sub-total data that is common to the row examples.
+    create_sub_totals(worksheet2, bold)
+
+
+    ###############################################################################
+    #
+    # Example 3: Create a worksheet with collapsed outlined rows.
+    # Same as the example 1  except that the two sub-totals are collapsed.
+
+    worksheet3.set_row(1,  nil, nil, 1, 2)
+    worksheet3.set_row(2,  nil, nil, 1, 2)
+    worksheet3.set_row(3,  nil, nil, 1, 2)
+    worksheet3.set_row(4,  nil, nil, 1, 2)
+    worksheet3.set_row(5,  nil, nil, 0, 1, 1)
+
+    worksheet3.set_row(6,  nil, nil, 1, 2)
+    worksheet3.set_row(7,  nil, nil, 1, 2)
+    worksheet3.set_row(8,  nil, nil, 1, 2)
+    worksheet3.set_row(9,  nil, nil, 1, 2)
+    worksheet3.set_row(10, nil, nil, 0, 1, 1)
+
+
+    # Write the sub-total data that is common to the row examples.
+    create_sub_totals(worksheet3, bold)
+
+
+    ###############################################################################
+    #
+    # Example 4: Create a worksheet with outlined rows.
+    # Same as the example 1  except that the two sub-totals are collapsed.
+
+    worksheet4.set_row(1,  nil, nil, 1, 2)
+    worksheet4.set_row(2,  nil, nil, 1, 2)
+    worksheet4.set_row(3,  nil, nil, 1, 2)
+    worksheet4.set_row(4,  nil, nil, 1, 2)
+    worksheet4.set_row(5,  nil, nil, 1, 1, 1)
+
+    worksheet4.set_row(6,  nil, nil, 1, 2)
+    worksheet4.set_row(7,  nil, nil, 1, 2)
+    worksheet4.set_row(8,  nil, nil, 1, 2)
+    worksheet4.set_row(9,  nil, nil, 1, 2)
+    worksheet4.set_row(10, nil, nil, 1, 1, 1)
+
+    worksheet4.set_row(11, nil, nil, 0, 0, 1)
+
+    # Write the sub-total data that is common to the row examples.
+    create_sub_totals(worksheet4, bold)
+
+
+
+    ###############################################################################
+    #
+    # Example 5: Create a worksheet with outlined columns.
+    #
+    data = [
+      ['Month', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',' Total'],
+      ['North', 50,    20,    15,    25,    65,    80,   '=SUM(B2:G2)'],
+      ['South', 10,    20,    30,    50,    50,    50,   '=SUM(B3:G3)'],
+      ['East',  45,    75,    50,    15,    75,    100,  '=SUM(B4:G4)'],
+      ['West',  15,    15,    55,    35,    20,    50,   '=SUM(B5:G6)']
+    ]
+
+    # Add bold format to the first row
+    worksheet5.set_row(0, nil, bold)
+
+    # Syntax: set_column(col1, col2, width, XF, hidden, level, collapsed)
+    worksheet5.set_column('A:A', 10, bold      )
+    worksheet5.set_column('B:G', 5,  nil, 0, 1)
+    worksheet5.set_column('H:H', 10             )
+
+    # Write the data and a formula
+    worksheet5.write_col('A1', data)
+    worksheet5.write('H6', '=SUM(H2:H5)', bold)
+
+
+    ###############################################################################
+    #
+    # Example 6: Create a worksheet with collapsed outlined columns.
+    # This is the same as the previous example except collapsed columns.
+
+    # Add bold format to the first row
+    worksheet6.set_row(0, nil, bold)
+
+    # Syntax: set_column(col1, col2, width, XF, hidden, level, collapsed)
+    worksheet6.set_column('A:A', 10, bold         )
+    worksheet6.set_column('B:G', 5,  nil, 1, 1   )
+    worksheet6.set_column('H:H', 10, nil, 0, 0, 1)
+
+    # Write the data and a formula
+    worksheet6.write_col('A1', data)
+    worksheet6.write('H6', '=SUM(H2:H5)', bold)
+
+    workbook.close
+
+    # do assertion
+    compare_file("#{PERL_OUTDIR}/outline_collapsed.xls", @file)
+  end
+
+  def test_panes
+    workbook  = WriteExcel.new(@file)
+
+    worksheet1 = workbook.add_worksheet('Panes 1')
+    worksheet2 = workbook.add_worksheet('Panes 2')
+    worksheet3 = workbook.add_worksheet('Panes 3')
+    worksheet4 = workbook.add_worksheet('Panes 4')
+
+    # Freeze panes
+    worksheet1.freeze_panes(1, 0) # 1 row
+
+    worksheet2.freeze_panes(0, 1) # 1 column
+    worksheet3.freeze_panes(1, 1) # 1 row and column
+
+    # Split panes.
+    # The divisions must be specified in terms of row and column dimensions.
+    # The default row height is 12.75 and the default column width is 8.43
+    #
+    worksheet4.split_panes(12.75, 8.43, 1, 1) # 1 row and column
+
+
+    #######################################################################
+    #
+    # Set up some formatting and text to highlight the panes
+    #
+
+    header = workbook.add_format
+    header.set_color('white')
+    header.set_align('center')
+    header.set_align('vcenter')
+    header.set_pattern
+    header.set_fg_color('green')
+
+    center = workbook.add_format
+    center.set_align('center')
+
+    #######################################################################
+    #
+    # Sheet 1
+    #
+
+    worksheet1.set_column('A:I', 16)
+    worksheet1.set_row(0, 20)
+    worksheet1.set_selection('C3')
+
+    (0..8).each { |i| worksheet1.write(0, i, 'Scroll down', header) }
+    (1..100).each do |i|
+     (0..8).each { |j| worksheet1.write(i, j, i + 1, center) }
+    end
+
+    #######################################################################
+    #
+    # Sheet 2
+    #
+
+    worksheet2.set_column('A:A', 16)
+    worksheet2.set_selection('C3')
+
+    (0..49).each do |i|
+      worksheet2.set_row(i, 15)
+      worksheet2.write(i, 0, 'Scroll right', header)
+    end
+
+    (0..49).each do |i|
+      (1..25).each { |j| worksheet2.write(i, j, j, center) }
+    end
+
+    #######################################################################
+    #
+    # Sheet 3
+    #
+
+    worksheet3.set_column('A:Z', 16)
+    worksheet3.set_selection('C3')
+
+    (1..25).each { |i| worksheet3.write(0, i, 'Scroll down',  header) }
+
+    (1..49).each { |i| worksheet3.write(i, 0, 'Scroll right', header) }
+
+    (1..49).each do |i|
+      (1..25).each { |j| worksheet3.write(i, j, j, center) }
+    end
+
+    #######################################################################
+    #
+    # Sheet 4
+    #
+
+    worksheet4.set_selection('C3')
+
+    (1..25).each { |i| worksheet4.write(0, i, 'Scroll', center) }
+
+    (1..49).each { |i| worksheet4.write(i, 0, 'Scroll', center) }
+
+    (1..49).each do |i|
+      (1..25).each { |j| worksheet4.write(i, j, j, center) }
+    end
+
+    workbook.close
+
+    # do assertion
+    compare_file("#{PERL_OUTDIR}/panes.xls", @file)
+  end
+
+  def test_right_to_left
+    workbook   = WriteExcel.new(@file)
+    worksheet1 = workbook.add_worksheet
+    worksheet2 = workbook.add_worksheet
+
+    worksheet2.right_to_left
+
+    worksheet1.write(0, 0, 'Hello')  #  A1, B1, C1, ...
+    worksheet2.write(0, 0, 'Hello')  # ..., C1, B1, A1
+
+    workbook.close
+
+    # do assertion
+    compare_file("#{PERL_OUTDIR}/right_to_left.xls", @file)
+  end
+
   def compare_file(expected, target)
     # target is StringIO object.
     assert_equal(