robust_excel_ole 1.1 → 1.1.1

data/examples/edit_sheets/example_access_sheets_and_cells.rb

@@ -13,7 +13,7 @@ begin
   simple_file = dir + 'workbook.xls'
   simple_save_file = dir + 'workbook_save.xls'
   File.delete simple_save_file rescue nil
-  book = Book.open(simple_file)      # open a book
+  book = Workbook.open(simple_file)      # open a book
   sheet = book.sheet(1)                    # access a sheet via integer 
   cell = sheet[1,1]                  # access the first cell
   puts "1st cell: #{cell.Value}"     # put the value of the first cell
@@ -30,9 +30,9 @@ begin
       i = i + 1
       item_name = 
         case enum_method
-        when :each        : "cell"
-        when :each_row    : "row"
-        when :each_column : "column"
+        when :each        then "cell"
+        when :each_row    then "row"
+        when :each_column then "column"
         end 
       puts "#{item_name} #{i}: #{item.Value}" # put values of the item of the sheet
     end

data/examples/edit_sheets/example_adding_sheets.rb

@@ -13,7 +13,7 @@ begin
   simple_file = dir + 'workbook.xls'
   simple_save_file = dir + 'workbook_save.xls'
   File.delete simple_save_file rescue nil
-  @book = Book.open(simple_file)      # open a book
+  @book = Workbook.open(simple_file)      # open a book
 
   def show_sheets 
     @book.each do |sheet|               # access each sheet

data/examples/edit_sheets/example_concating.rb

@@ -9,7 +9,7 @@ require "fileutils"
 include RobustExcelOle
 
 begin
-  dir = "C:/data"
+  dir = File.expand_path('../../spec/data', File.dirname(__FILE__))
   workbook_name = 'workbook_named.xls'
   ws = workbook_name.split(".")
   base_name = ws[0,ws.length-1].join(".")
@@ -18,7 +18,7 @@ begin
   extended_file_name = dir + "/" + base_name + "_concat" + "." + suffix
   FileUtils.copy file_name, extended_file_name 
 
-  Book.unobtrusively(extended_file_name) do |book|
+  Workbook.unobtrusively(extended_file_name) do |book|
     book.each do |sheet|
       sheet.each do |cell|
         name = cell.Name.Name rescue nil

data/examples/edit_sheets/example_copying.rb

@@ -10,7 +10,7 @@ require "fileutils"
 include RobustExcelOle
 
 begin
-  dir = "C:/data"
+  dir = File.expand_path('../../spec/data', File.dirname(__FILE__))
   workbook_name = 'another_workbook.xls'
   ws = workbook_name.split(".")
   base_name = ws[0,ws.length-1].join(".")
@@ -19,7 +19,7 @@ begin
   extended_file_name = dir + "/" + base_name + "_copied" + "." + suffix
   FileUtils.copy file_name, extended_file_name 
 
-  Book.unobtrusively(extended_file_name) do |book|  
+  Workbook.unobtrusively(extended_file_name) do |book|  
     book.extend Enumerable
     sheet_names = book.map { |sheet| sheet.name }
     

data/examples/edit_sheets/example_expanding.rb

@@ -12,7 +12,7 @@ require "fileutils"
 include RobustExcelOle
 
 begin
-  dir = "C:/data"
+  dir = File.expand_path('../../spec/data', File.dirname(__FILE__))
   workbook_name = 'workbook_named_concat.xls'
   ws = workbook_name.split(".")
   base_name = ws[0,ws.length-1].join(".")
@@ -21,7 +21,7 @@ begin
   extended_file_name = dir + "/" + base_name + "_expanded" + "." + suffix
   FileUtils.copy file_name, extended_file_name 
   
-  Book.unobtrusively(extended_file_name) do |book|     
+  Workbook.unobtrusively(extended_file_name) do |book|     
     book.extend Enumerable
     sheet_names = book.map { |sheet| sheet.name }
 

data/examples/edit_sheets/example_naming.rb

@@ -10,7 +10,7 @@ require "fileutils"
 include RobustExcelOle
 
 begin
-  dir = "C:/data"
+  dir = File.expand_path('../../spec/data', File.dirname(__FILE__))
   workbook_name = 'workbook.xls'
   ws = workbook_name.split(".")
   base_name = ws[0,ws.length-1].join(".")
@@ -25,7 +25,7 @@ begin
   extended_file_name = dir + "/" + base_name + "_named" + "." + suffix
   FileUtils.copy file_name, extended_file_name 
 
-  Book.unobtrusively(extended_file_name) do |book|     
+  Workbook.unobtrusively(extended_file_name) do |book|     
     book.each do |sheet|
       sheet.each do |cell_orig|
         contents = cell_orig.Value

data/examples/edit_sheets/example_saving.rb

@@ -9,8 +9,8 @@ include RobustExcelOle
 
 begin
   
-  dir = "C:/data"
-  workbook_name = 'workbook_named.xls'
+  dir = File.expand_path('../../spec/data', File.dirname(__FILE__))
+  workbook_name = 'workbook_new.xls'
   ws = workbook_name.split(".")
   base_name = ws[0,ws.length-1].join(".")
   suffix = ws.last  
@@ -21,14 +21,14 @@ begin
       file_sheet_name = dir + "/" + base_name + "_" + sheet_orig.name + "." + suffix
       Excel.current.generate_workbook(file_sheet_name)
       # delete all existing sheets, and add the sheet    
-      book = Book.open(file_sheet_name)
+      book = Workbook.open(file_sheet_name)
       book.add_sheet sheet_orig
       book.each do |sheet|
         sheet.Delete unless sheet.name == sheet_orig.name 
       end
       book.close(:if_unsaved => :save)
       # alternative: delete all other sheets
-      #book = Book.open(file_sheet_name, :force => {:excel => :new}, :visible => true)
+      #book = Workbook.open(file_sheet_name, :force => {:excel => :new}, :visible => true)
       #book.each do |sheet|
       #  book.sheet(sheet.Name).Delete() unless sheet.Name == sheet_orig.Name
       #end

data/examples/open_save_close/example_default_excel.rb

@@ -14,27 +14,27 @@ begin
   file_name2 = dir + 'different_workbook.xls'
   file_name3 = dir + 'book_with_blank.xls'
   file_name4 = dir + 'merge_cells.xls'
-  book1 = Book.open(file_name1)            # open a book in a new Excel instance since no Excel is open
+  book1 = Workbook.open(file_name1)            # open a book in a new Excel instance since no Excel is open
   book1.excel.visible = true               # make current Excel visible
   sleep 2
   book1.close                               # close the book
   sleep 2
-  book2 = Book.open(file_name1)            # reopen the book                            
+  book2 = Workbook.open(file_name1)            # reopen the book                            
   p "book1 == book2" if book2 == book1      # the books are identical
   sleep 2   
   new_excel = Excel.new(:reuse => false)    # create a new Excel    
-  book3 = Book.open(file_name2, :default => {:excel => :current}, :visible => true) # open another book
+  book3 = Workbook.open(file_name2, :default => {:excel => :current}, :visible => true) # open another book
   if book3.excel == book2.excel then     # since this book cannot be reopened, the option :default => {:excel} applies:
     p "book3 opened in the first Excel"  # according to :default => {:excel => :current} the book is opened
   end                                    # in the Excel instance the was created first
   sleep 2                                          
   new_excel = Excel.new(:reuse => false)         
-  book4 = Book.open(file_name3, :default => {:excel => new_excel}, :visible => true)  # open another book
+  book4 = Workbook.open(file_name3, :default => {:excel => new_excel}, :visible => true)  # open another book
   if book4.excel == new_excel then       # since this book cannot be reopened, the option :default_excel applies: 
     p "book4 opened in the second Excel" # according to :default_excel => new_excel the book is opened
   end                                    # in the given Excel, namely the second Excel instance new_excel 
   sleep 2   
-  book5 = Book.open(file_name4, :default => {:excel => :new}, :visible => true)  # open another book
+  book5 = Workbook.open(file_name4, :default => {:excel => :new}, :visible => true)  # open another book
   if ((not book5.excel == book1.excel) && (not book5.excel == new_excel)) then  # since this book cannot be reopened, 
     p "book5 opened in a third Excel" # the option :default_excel applies. according to :default_excel => :new 
   end                                 # the book is opened in a new Excel

data/examples/open_save_close/example_force_excel.rb

@@ -11,17 +11,17 @@ Excel.close_all
 begin
   dir = create_tmpdir
   simple_file = dir + 'workbook.xls'
-  book1 = Book.open(simple_file)            # open a book in a new Excel instance since no Excel is open
+  book1 = Workbook.open(simple_file)            # open a book in a new Excel instance since no Excel is open
   book1.excel.visible = true                # make current Excel visible
   sleep 2
-  book2 = Book.open(simple_file)             # open a new book in the same Excel instance                            
+  book2 = Workbook.open(simple_file)             # open a new book in the same Excel instance                            
   p "book1 == book2" if book2 == book1      # the books are identical
   sleep 2       
-  book3 = Book.open(simple_file, :force => {:excel => :new, :visible => true}) # open another book in a new Excel instance,   
+  book3 = Workbook.open(simple_file, :force => {:excel => :new, :visible => true}) # open another book in a new Excel instance,   
   p "book3 != book1" if (not (book3 == book1))   # the books are not identical 
   sleep 2   
   new_excel = Excel.new(:reuse => false)        # create a third Excel instance
-  book4 = Book.open(simple_file, :force => {:excel => new_excel, :visible => true})  # open another book in the new Excel instance
+  book4 = Workbook.open(simple_file, :force => {:excel => new_excel, :visible => true})  # open another book in the new Excel instance
   p "book4 != book3 && book4 != book1" if (not (book4 == book3) && (not (book4 == book1)))
   sleep 2                                     # (Excel chooses the first Excel application)        
   book4.close                                 # close the books

data/examples/open_save_close/example_if_obstructed_closeifsaved.rb

@@ -12,19 +12,19 @@ begin
   dir = create_tmpdir
   file_name = dir + 'workbook.xls'
   other_file_name = dir + 'more_data/workbook.xls'
-  book = Book.open(file_name, :visible => true)  # open a book, make Excel visible
+  book = Workbook.open(file_name, :visible => true)  # open a book, make Excel visible
   sleep 1
   sheet = book.sheet(1)
   first_cell = sheet[1,1].Value                                   # access a sheet
   sheet[1,1] = first_cell == "simple" ? "complex" : "simple"      # change a cell
   sleep 1
   begin
-    new_book = Book.open(other_file_name, :if_obstructed => :close_if_saved) # raises an exception since the file is not saved
+    new_book = Workbook.open(other_file_name, :if_obstructed => :close_if_saved) # raises an exception since the file is not saved
     rescue WorkbookNotSaved => msg                                             
     puts "error: open: #{msg.message}"
   end                                                        
   book.save                                                           # save the unsaved book
-  new_book = Book.open(file_name, :if_obstructed => :close_if_saved)  # open the new book, close the saved book    
+  new_book = Workbook.open(file_name, :if_obstructed => :close_if_saved)  # open the new book, close the saved book    
   sleep 1
   new_sheet = new_book.sheet(1)
   new_first_cell = new_sheet[1,1].Value

data/examples/open_save_close/example_if_obstructed_forget.rb

@@ -12,18 +12,18 @@ begin
   dir = create_tmpdir
   file_name = dir + 'workbook.xls'
   other_file_name = dir + 'more_data/workbook.xls'
-  book = Book.open(file_name, :visible => true)  # open a book, make Excel application visible
+  book = Workbook.open(file_name, :visible => true)  # open a book, make Excel application visible
   sleep 3 
   begin
-    new_book = Book.open(other_file_name)        # open a book with the same file name in a different path
+    new_book = Workbook.open(other_file_name)        # open a book with the same file name in a different path
   rescue WorkbookBlocked => msg                   # by default: raises an exception 
   	puts "error: open: #{msg.message}"
   end
   # open a new book with the same file name in a different path. close the old book before.
-  new_book = Book.open(other_file_name, :if_obstructed => :forget) 
+  new_book = Workbook.open(other_file_name, :if_obstructed => :forget) 
   sleep 3
   # open another book with the same file name in a different path. Use a new Excel application
-  another_book = Book.open(file_name, :if_obstructed => :new_excel, :visible => true)                                         
+  another_book = Workbook.open(file_name, :if_obstructed => :new_excel, :visible => true)                                         
   sleep 3
   new_book.close                                 # close the books                      
   another_book.close

data/examples/open_save_close/example_if_obstructed_save.rb

@@ -12,15 +12,15 @@ begin
   dir = create_tmpdir
   file_name = dir + 'workbook.xls'
   other_file_name = dir + 'more_data/workbook.xls'
-  book = Book.open(file_name, :visible => true)  # open a book, make Excel visible
+  book = Workbook.open(file_name, :visible => true)  # open a book, make Excel visible
   sleep 1
   sheet = book.sheet(1)
   first_cell = sheet[1,1].value                                   # access a sheet
   sheet[1,1] = first_cell == "simple" ? "complex" : "simple"      # change a cell
   sleep 1
-  new_book = Book.open(other_file_name, :if_obstructed => :save)  # open a book with the same file name in a different path
+  new_book = Workbook.open(other_file_name, :if_obstructed => :save)  # open a book with the same file name in a different path
   sleep 1                                                         #save the old book, close it, before
-  old_book = Book.open(file_name, :if_obstructed => :forget ,:visible => true) # open the old book    
+  old_book = Workbook.open(file_name, :if_obstructed => :forget ,:visible => true) # open the old book    
   sleep 1
   old_sheet = old_book.sheet(1)
   old_first_cell = old_sheet[1,1].value

data/examples/open_save_close/example_if_unsaved_accept.rb

@@ -11,15 +11,15 @@ Excel.close_all
 begin
   dir = create_tmpdir
   file_name = dir + 'workbook.xls' 
-  book = Book.open(file_name)                      # open a book 
+  book = Workbook.open(file_name)                      # open a book 
   sheet = book.sheet(1)                                                  # access a sheet
   sheet[1,1] = sheet[1,1].value == "simple" ? "complex" : "simple" # change a cell
   begin
-    new_book = Book.open(file_name)                # open another book with the same file name
+    new_book = Workbook.open(file_name)                # open another book with the same file name
   rescue WorkbookBeingUsed => msg                     # by default: raises an exception:
     puts "error: open: #{msg.message}"              # a book with the same name is already open and unsaved 
   end
-  new_book = Book.open(file_name, :if_unsaved => :accept) # open another book with the same file name 
+  new_book = Workbook.open(file_name, :if_unsaved => :accept) # open another book with the same file name 
                                                           # and let the unsaved book open
   if book.alive? && new_book.alive? then                  # check whether the referenced workbooks
   	puts "open with :if_unsaved => :accept : the two books are alive." # respond to methods

data/examples/open_save_close/example_if_unsaved_forget.rb

@@ -11,14 +11,14 @@ Excel.close_all
 begin
   dir = create_tmpdir
   file_name = dir + 'workbook.xls' 
-  book = Book.open(file_name)                      # open a book
+  book = Workbook.open(file_name)                      # open a book
   book.excel.visible = true                        # make current Excel visible 
   sleep 1
   sheet = book.sheet(1)                                            # access a sheet
   first_cell = sheet[1,1].value
   sheet[1,1] = first_cell == "simple" ? "complex" : "simple" # change a cell
   sleep 1
-  new_book = Book.open(file_name, :if_unsaved => :forget) # open another book with the same file name 
+  new_book = Workbook.open(file_name, :if_unsaved => :forget) # open another book with the same file name 
                                                           # and close the unsaved book without saving it
   sheet_new_book = new_book.sheet(1)
   if (not book.alive?) && new_book.alive? && sheet_new_book[1,1].value == first_cell then # check whether the unsaved book 
@@ -27,7 +27,7 @@ begin
   sleep 1
   sheet_new_book[1,1] = sheet_new_book[1,1].value == "simple" ? "complex" : "simple" # change a cell
   # open another book in a new Excel application, and make Excel visible, leaving the unsaved book open
-  another_book = Book.open(file_name, :if_unsaved => :new_excel, :visible => true)  
+  another_book = Workbook.open(file_name, :if_unsaved => :new_excel, :visible => true)  
   sleep 3                                                                  # leaving the unsaved book open  
   new_book.close(:if_unsaved => :forget )                                
   another_book.close

data/examples/open_save_close/example_if_unsaved_forget_more.rb

@@ -11,13 +11,13 @@ Excel.kill_all
 begin
   dir = create_tmpdir
   file_name = dir + 'workbook.xls' 
-  book = Book.open(file_name)                      # open a book
+  book = Workbook.open(file_name)                      # open a book
   book.excel.visible = true                        # make current Excel visible 
   sheet = book.sheet(1)                                            # access a sheet
   first_cell = sheet[1,1].value
   sheet[1,1] = first_cell == "simple" ? "complex" : "simple" # change a cell
   sleep 1
-  new_book = Book.open(file_name, :if_unsaved => :new_excel, :visible => true) # open another book with the same file name in a new Excel
+  new_book = Workbook.open(file_name, :if_unsaved => :new_excel, :visible => true) # open another book with the same file name in a new Excel
   sheet_new_book = new_book.sheet(1)
   if (not book.alive?) && new_book.alive? && sheet_new_book[1,1].value == first_cell then # check whether the unsaved book 
     puts "open with :if_unsaved => :forget : the unsaved book is closed and not saved."     # is closed and was not saved
@@ -25,7 +25,7 @@ begin
   sleep 1
   sheet_new_book[1,1] = sheet_new_book[1,1].value == "simple" ? "complex" : "simple" # change a cell
   # open another book in the running Excel application, and make Excel visible, closing the unsaved book
-  another_book = Book.open(file_name, :if_unsaved => :forget, :visible => true)  
+  another_book = Workbook.open(file_name, :if_unsaved => :forget, :visible => true)  
   sleep 1
   sheet_another_book = another_book.sheet(1)
   sheet_another_book[1,1] = sheet_another_book[1,1].value == "simple" ? "complex" : "simple" # change a cell                                                                   

data/examples/open_save_close/example_read_only.rb

@@ -11,7 +11,7 @@ begin
   dir = create_tmpdir
   file_name = dir + 'workbook.xls'
   other_file_name = dir + 'different_workbook.xls'
-  book = Book.open(file_name, :read_only => true, :visible => true) # open a book with read_only and make Excel visible
+  book = Workbook.open(file_name, :read_only => true, :visible => true) # open a book with read_only and make Excel visible
   sheet = book.sheet(1)                                     			        # access a sheet
   sleep 1     
   sheet[1,1] = sheet[1,1].value == "simple" ? "complex" : "simple" # change a cell

data/examples/open_save_close/example_rename_cells.rb

@@ -11,7 +11,7 @@ Excel.close_all
 begin
   dir = create_tmpdir
   file_name = dir + 'workbook.xls'
-  book = Book.open(file_name)                                # open a book.  default:  :read_only => false
+  book = Workbook.open(file_name)                                # open a book.  default:  :read_only => false
   book.excel.visible = true                                          # make current Excel visible
   sheet = book.sheet(1)
   workbook = book.ole_workbook

data/examples/open_save_close/example_reuse.rb

@@ -13,14 +13,14 @@ begin
   file_name2 = dir + 'different_workbook.xls'
   file_name3 = dir + 'different_workbook.xls'
   file_name4 = dir + 'book_with_blank.xls'
-  book1 = Book.open(file_name1)             # open a book in a new Excel instance since no Excel is open
+  book1 = Workbook.open(file_name1)             # open a book in a new Excel instance since no Excel is open
   book1.excel.visible = true                # make current Excel visible
   sleep 2
-  book2 = Book.open(file_name2)             # open a new book in the same Excel instance
+  book2 = Workbook.open(file_name2)             # open a new book in the same Excel instance
   sleep 2                                   
-  book3 = Book.open(file_name3, :force_excel => :new, :visible => true) # open another book in a new Excel instance, 
+  book3 = Workbook.open(file_name3, :force_excel => :new, :visible => true) # open another book in a new Excel instance, 
   sleep 2                                                          # make Excel visible
-  book4 = Book.open(file_name4, :visible => true)  # open anther book, and use a running Excel application
+  book4 = Workbook.open(file_name4, :visible => true)  # open anther book, and use a running Excel application
   sleep 2                                          # (Excel chooses the first Excel application)        
   book1.close                               # close the books
   book2.close                                             

data/examples/open_save_close/example_simple.rb

@@ -16,7 +16,7 @@ begin
   dir = create_tmpdir
   file_name = dir + 'workbook.xls'
   other_file_name = dir + 'different_workbook.xls'
-  book = Book.open(file_name)                                # open a book.  default:  :read_only => false
+  book = Workbook.open(file_name)                                # open a book.  default:  :read_only => false
   book.excel.visible = true                                  # make current Excel visible
   sheet = book.sheet(1)                                            # access a sheet
   sleep 1     

data/examples/open_save_close/example_unobtrusively.rb

@@ -10,11 +10,11 @@ Excel.close_all
 begin
   dir = create_tmpdir
   simple_file = dir + 'workbook.xls'
-  book = Book.open(simple_file, :visible => true)  # open a book, make Excel visible
+  book = Workbook.open(simple_file, :visible => true)  # open a book, make Excel visible
   old_sheet = book.sheet(1)
   p "1st cell: #{old_sheet[1,1].value}"
   sleep 2
-  Book.unobtrusively(simple_file) do |book|   # modify the book and keep its status unchanged
+  Workbook.unobtrusively(simple_file) do |book|   # modify the book and keep its status unchanged
     sheet = book.sheet(1)
     sheet[1,1] = sheet[1,1].value == "simple" ? "complex" : "simple"
   end

data/lib/reo_console.rb

@@ -1,4 +1,4 @@
-#require 'lib/robust_excel_ole'
+#require '../robust_excel_ole/lib/robust_excel_ole'
 include REO
 #include RobustExcelOle
 include General

data/lib/robust_excel_ole/book.rb

@@ -541,11 +541,13 @@ module RobustExcelOle
     end
 
     # simple save of a workbook.
+    # @option opts [Boolean]  states, whether colored ranges shall be discolored
     # @return [Boolean] true, if successfully saved, nil otherwise
-    def save      
+    def save(opts = {:discoloring => false})      
       raise ObjectNotAlive, "workbook is not alive" if (not alive?)
       raise WorkbookReadOnly, "Not opened for writing (opened with :read_only option)" if @ole_workbook.ReadOnly
       begin
+        discoloring if opts[:discoloring] 
         @ole_workbook.Save 
       rescue WIN32OLERuntimeError => msg
         if msg.message =~ /SaveAs/ and msg.message =~ /Workbook/ then
@@ -553,7 +555,7 @@ module RobustExcelOle
         else
           raise UnexpectedError, "unknown WIN32OLERuntimeError:\n#{msg.message}"
         end       
-      end
+      end      
       true
     end
 
@@ -573,6 +575,7 @@ module RobustExcelOle
     #                  :save                -> saves the blocking workbook and closes it
     #                  :close_if_saved      -> closes the blocking workbook, if it is saved, 
     #                                          otherwise raises an exception
+    # :discoloring     states, wheter colored ranges shall be discolored
     # @return [Book], the book itself, if successfully saved, raises an exception otherwise
     def save_as(file, opts = { } )
       raise FileNameNotGiven, "filename is nil" if file.nil?
@@ -586,7 +589,7 @@ module RobustExcelOle
         case options[:if_exists]
         when :overwrite
           if file == self.filename
-            save
+            save({:discoloring => opts[:discoloring]})
             return self
           else
             begin
@@ -628,6 +631,10 @@ module RobustExcelOle
 
   private
 
+    def discoloring
+      self.each{|sheet| sheet.each{|cell| cell.Interior.ColorIndex = XlNone}}
+    end
+
     def save_as_workbook(file, options)   # :nodoc: #
       begin
         dirname, basename = File.split(file)
@@ -637,6 +644,7 @@ module RobustExcelOle
             when '.xlsx'; RobustExcelOle::XlOpenXMLWorkbook
             when '.xlsm'; RobustExcelOle::XlOpenXMLWorkbookMacroEnabled
           end
+        discoloring if options[:discoloring]  
         @ole_workbook.SaveAs(General::absolute_path(file), file_format)
         bookstore.store(self)
       rescue WIN32OLERuntimeError => msg
@@ -653,7 +661,15 @@ module RobustExcelOle
 
     # closes a given file if it is open
     def self.close(file, opts = {:if_unsaved => :raise})
+      #puts "self.close:"
+      #puts "file: #{file}"
+      #begin
+      #  bookstore.fetch(file)
+      #rescue
+      #  puts "#{$!.message}"
+      #end
       book = bookstore.fetch(file) rescue nil
+      #puts "book after fetch: #{book.inspect}"
       book.close(opts) if book && book.alive?
     end
 
@@ -685,6 +701,14 @@ module RobustExcelOle
         yield sheet_class.new(sheet)
       end
     end
+
+    def each_with_index(offset = 0)
+      i = offset
+      @ole_workbook.Worksheets.each do |sheet|
+        yield sheet_class.new(sheet), i
+        i += 1
+      end
+    end
   
     # copies a sheet to another position
     # default: copied sheet is appended
@@ -761,7 +785,7 @@ module RobustExcelOle
     # @param [String]  name  the name of the range
     # @param [Variant] value the contents of the range
     def []= (name, value)
-      set_nameval(name,value)
+      set_nameval(name,value, :color => 42)   # 42 - aqua-marin, 4-green
     end
 
     # returns the contents of a range with given name
@@ -774,46 +798,55 @@ module RobustExcelOle
     # @option opts [Symbol] :default  the default value that is provided if no contents could be returned
     # @return [Variant] the contents of a range with given name
     def nameval(name, opts = {:default => nil})
-      default_val = opts[:default]
-      begin
-        name_obj = self.Names.Item(name)
-      rescue WIN32OLERuntimeError
-        return default_val if default_val
-        raise NameNotFound, "name #{name.inspect} not in #{File.basename(self.stored_filename).inspect}"
-      end
-      begin
-        value = name_obj.RefersToRange.Value
+      name_obj = name_object(name)
+      value = begin
+        name_obj.RefersToRange.Value
       rescue  WIN32OLERuntimeError
         begin
-          value = self.sheet(1).Evaluate(name_obj.Name)
+          self.sheet(1).Evaluate(name_obj.Name)
         rescue WIN32OLERuntimeError
-          return default_val if default_val
+          return opts[:default] if opts[:default]
           raise RangeNotEvaluatable, "cannot evaluate range named #{name.inspect} in #{File.basename(self.stored_filename).inspect}"
         end
       end
       if value.is_a?(Bignum)  #RobustExcelOle::XlErrName  
-        return default_val if default_val
+        return opts[:default] if opts[:default]
         raise RangeNotEvaluatable, "cannot evaluate range named #{name.inspect} in #{File.basename(self.stored_filename).inspect}"
       end 
-      return default_val if default_val && value.nil?
+      return opts[:default] if opts[:default] && value.nil?
       value      
     end
 
     # sets the contents of a range
     # @param [String]  name  the name of a range
     # @param [Variant] value the contents of the range
-    def set_nameval(name, value) 
+    # @param [FixNum]  color the color when setting a value
+    # @param [Hash]    opts :color [FixNum]  the color when setting the contents
+    def set_nameval(name, value, opts = {:color => 0})
       begin
-        name_obj = self.Names.Item(name)
+        cell = name_object(name).RefersToRange
+        cell.Interior.ColorIndex = opts[:color] 
+        cell.Value = value
       rescue WIN32OLERuntimeError
-        raise NameNotFound, "name #{name.inspect} not in #{File.basename(self.stored_filename).inspect}"  
+        raise RangeNotEvaluatable, "cannot assign value to range named #{name.inspect} in #{File.basename(self.stored_filename).inspect}"    
       end
+    end
+
+  private        
+
+    def name_object(name)
       begin
-        name_obj.RefersToRange.Value = value
+        self.Parent.Names.Item(name)
       rescue WIN32OLERuntimeError
-        raise RangeNotEvaluatable, "cannot assign value to range named #{name.inspect} in #{File.basename(self.stored_filename).inspect}"    
+        begin
+          self.Names.Item(name)
+        rescue WIN32OLERuntimeError
+          raise NameNotFound, "name #{name.inspect} not in #{File.basename(self.stored_filename).inspect}"  
+        end
       end
-    end    
+    end
+
+  public    
 
     # renames a range
     # @param [String] name     the previous range name