robust_excel_ole 1.2 → 1.3

data/lib/robust_excel_ole/sheet.rb

@@ -21,7 +21,8 @@ module RobustExcelOle
       @workbook = book_class.new(self.Parent)
     end
 
-    # returns name of the sheet
+    # sheet name
+    # @returns name of the sheet
     def name
       begin
         @ole_worksheet.Name
@@ -30,7 +31,7 @@ module RobustExcelOle
       end
     end
 
-    # name the sheet
+    # sets sheet name
     # @param [String] new_name the new name of the sheet 
     def name= (new_name)
       begin
@@ -44,7 +45,9 @@ module RobustExcelOle
       end
     end
 
-    # returns cell, if row and column are given 
+    # a cell given the defined name or row and column
+    # @params row, column, or name
+    # @returns cell, if row and column are given 
     def [] p1, p2 = :__not_provided
       if p2 != :__not_provided  
         x, y = p1, p2
@@ -58,15 +61,15 @@ module RobustExcelOle
       else
         name = p1
         begin
-          nameval(name) 
+          namevalue_glob(name) 
         rescue REOError
-          rangeval(name)
+          namevalue(name)
         end
       end
     end
 
-    # sets the value of a cell, if row and column are given
-    # sets the value of a range if its name is given
+    # sets the value of a cell
+    # @params row and column, or defined name
     def []= (p1, p2, p3 = :__not_provided)
       if p3 != :__not_provided
         x, y, value = p1, p2, p3
@@ -74,18 +77,20 @@ module RobustExcelOle
       else
         name, value = p1, p2
         begin
-          set_nameval(name, value, :color => 42) # aqua-marin, 4-green
+          set_namevalue_glob(name, value, :color => 42) # aqua-marin, 4-green
         rescue REOError
           begin
-            workbook.set_nameval(name, value)
+            workbook.set_namevalue_glob(name, value)
           rescue REOError
-            set_rangeval(name, value)
+            set_namevalue(name, value)
           end
         end
       end
     end
 
-    # returns the value of a cell, if row and column are given
+    # value of a cell, if row and column are given
+    # @params row and column
+    # @returns value of the cell
     def cellval(x,y)
       xy = "#{x}_#{y}"
       @cells = { }
@@ -98,6 +103,8 @@ module RobustExcelOle
     end
 
     # sets the value of a cell, if row, column and color of the cell are given
+    # @params [Fixnum] x,y row and column
+    # @option opts [Symbol] :color the color of the cell when set 
     def set_cellval(x,y,value, opts = {:color => 0})
       begin
         cell = @ole_worksheet.Cells.Item(x, y)        
@@ -108,27 +115,24 @@ module RobustExcelOle
         raise RangeNotEvaluatable, "cannot assign value #{value.inspect} to cell (#{y.inspect},#{x.inspect})"
       end
     end
-    
-    # assigns a name to a range (a cell) given by an address
-    # @param [String] name   the range name
-    # @param [Fixnum] row    the row
-    # @param [Fixnum] column the column
-    def set_name(name,row,column)
+
+    # creates a range.
+    # @params [Fixnum,Range] row or range of the rows 
+    # @params [Fixnum,Range] column or range of columns  
+    #                  row and column of the bottum right cell of a rectangur range 
+    # @return [Range] a range
+    def range(int_range1, int_range2)
+      int_range1 = int_range1 .. int_range1 if int_range1.is_a?(Fixnum)
+      int_range2 = int_range2 .. int_range2 if int_range2.is_a?(Fixnum)
       begin
-        old_name = self[row,column].Name.Name rescue nil
-        if old_name
-          self[row,column].Name.Name = name
-        else
-          address = "Z" + row.to_s + "S" + column.to_s 
-          self.Names.Add("Name" => name, "RefersToR1C1" => "=" + address)
-        end
-      rescue WIN32OLERuntimeError => msg
-        #trace "WIN32OLERuntimeError: #{msg.message}"
-        raise RangeNotEvaluatable, "cannot add name #{name.inspect} to cell with row #{row.inspect} and column #{column.inspect}"
+        RobustExcelOle::Range.new(@ole_worksheet.Range(
+          @ole_worksheet.Cells(int_range1.min, int_range2.min),
+          @ole_worksheet.Cells(int_range1.max, int_range2.max)))
+      rescue WIN32OLERuntimeError
+        raise RangeNotCreated, "cannot create range (#{int_range1.inspect},#{int_range2.inspect})"
       end
     end
 
-
     def each
       each_row do |row_range|
         row_range.each do |cell|
@@ -175,14 +179,14 @@ module RobustExcelOle
       end
     end
 
-    def row_range(row, range = nil)
-      range ||= 1..@end_column
-      RobustExcelOle::Range.new(@ole_worksheet.Range(@ole_worksheet.Cells(row , range.min ), @ole_worksheet.Cells(row , range.max )))
+    def row_range(row, integer_range = nil)
+      integer_range ||= 1..@end_column
+      RobustExcelOle::Range.new(@ole_worksheet.Range(@ole_worksheet.Cells(row , integer_range.min ), @ole_worksheet.Cells(row , integer_range.max )))
     end
 
-    def col_range(col, range = nil)
-      range ||= 1..@end_row
-      RobustExcelOle::Range.new(@ole_worksheet.Range(@ole_worksheet.Cells(range.min , col ), @ole_worksheet.Cells(range.max , col )))
+    def col_range(col, integer_range = nil)
+      integer_range ||= 1..@end_row
+      RobustExcelOle::Range.new(@ole_worksheet.Range(@ole_worksheet.Cells(integer_range.min , col ), @ole_worksheet.Cells(integer_range.max , col )))
     end
 
 
@@ -238,6 +242,12 @@ module RobustExcelOle
 
       special_last_column >= used_last_column ? special_last_column : used_last_column
     end    
+
   end
-  
+
+public
+
+  Worksheet = Sheet
+
 end
+  

data/lib/robust_excel_ole/version.rb

@@ -1,3 +1,3 @@
 module RobustExcelOle
-  VERSION = "1.2"
+  VERSION = "1.3"
 end

data/spec/book_spec.rb

@@ -1037,12 +1037,12 @@ describe Book do
     end   
 
     it "should return value of a range" do
-      @book1.nameval("new").should == "foo"
-      @book1.nameval("one").should == 1
-      @book1.nameval("firstrow").should == [[1,2]]        
-      @book1.nameval("four").should == [[1,2],[3,4]]
-      @book1.nameval("firstrow").should_not == "12"
-      @book1.nameval("firstcell").should == "foo"        
+      @book1.namevalue_glob("new").should == "foo"
+      @book1.namevalue_glob("one").should == 1
+      @book1.namevalue_glob("firstrow").should == [[1,2]]        
+      @book1.namevalue_glob("four").should == [[1,2],[3,4]]
+      @book1.namevalue_glob("firstrow").should_not == "12"
+      @book1.namevalue_glob("firstcell").should == "foo"        
     end
 
     it "should return value of a range via []" do
@@ -1055,17 +1055,17 @@ describe Book do
     end
 
     it "should set value of a range" do
-      @book1.set_nameval("new", "bar")
-      @book1.nameval("new").should == "bar"
+      @book1.set_namevalue_glob("new", "bar")
+      @book1.namevalue_glob("new").should == "bar"
     end
 
     it "should set value of a range via []=" do
       @book1["new"] = "bar"
-      @book1.nameval("new").should == "bar"
+      @book1.namevalue_glob("new").should == "bar"
     end
 
     #it "should evaluate a formula" do
-    #  @book1.nameval("named_formula").should == 4      
+    #  @book1.namevalue_glob("named_formula").should == 4      
     #end
 
     #it "should evaluate a formula via []" do
@@ -1073,7 +1073,7 @@ describe Book do
     #end
 
     #it "should return default value if name not defined" do
-    #  @book1.nameval("foo", :default => 2).should == 2
+    #  @book1.namevalue_glob("foo", :default => 2).should == 2
     #end
 
   end

data/spec/book_specs/book_misc_spec.rb

@@ -678,12 +678,12 @@ describe Book do
     end   
 
     it "should return value of a range" do
-      @book1.nameval("new").should == "foo"
-      @book1.nameval("one").should == 1
-      @book1.nameval("firstrow").should == [[1,2]]        
-      @book1.nameval("four").should == [[1,2],[3,4]]
-      @book1.nameval("firstrow").should_not == "12"
-      @book1.nameval("firstcell").should == "foo"        
+      @book1.namevalue_glob("new").should == "foo"
+      @book1.namevalue_glob("one").should == 1
+      @book1.namevalue_glob("firstrow").should == [[1,2]]        
+      @book1.namevalue_glob("four").should == [[1,2],[3,4]]
+      @book1.namevalue_glob("firstrow").should_not == "12"
+      @book1.namevalue_glob("firstcell").should == "foo"        
     end
 
     it "should return value of a range via []" do
@@ -696,17 +696,17 @@ describe Book do
     end
 
     it "should set value of a range" do
-      @book1.set_nameval("new", "bar")
-      @book1.nameval("new").should == "bar"
+      @book1.set_namevalue_glob("new", "bar")
+      @book1.namevalue_glob("new").should == "bar"
     end
 
     it "should set value of a range via []=" do
       @book1["new"] = "bar"
-      @book1.nameval("new").should == "bar"
+      @book1.namevalue_glob("new").should == "bar"
     end
 
     #it "should evaluate a formula" do
-    #  @book1.nameval("named_formula").should == 4      
+    #  @book1.namevalue_glob("named_formula").should == 4      
     #end
 
     #it "should evaluate a formula via []" do
@@ -715,28 +715,28 @@ describe Book do
 
     it "should raise an error if name not defined and default value is not provided" do
       expect {
-        @book1.nameval("foo", :default => nil)
+        @book1.namevalue_glob("foo", :default => nil)
       }.to_not raise_error
       expect {
-        @book1.nameval("foo", :default => :__not_provided)
+        @book1.namevalue_glob("foo", :default => :__not_provided)
       }.to raise_error(NameNotFound, /name "foo" not in #<Book: another_workbook/)
       expect {
-        @book1.nameval("foo")
+        @book1.namevalue_glob("foo")
       }.to raise_error(NameNotFound, /name "foo" not in #<Book: another_workbook/)
-      @book1.nameval("foo", :default => nil).should be_nil
-      @book1.nameval("foo", :default => 1).should == 1
+      @book1.namevalue_glob("foo", :default => nil).should be_nil
+      @book1.namevalue_glob("foo", :default => 1).should == 1
       expect {
-          @book1.set_nameval("foo","bar")
+          @book1.set_namevalue_glob("foo","bar")
       }.to raise_error(NameNotFound, /name "foo" not in #<Book: another_workbook/)
       expect {
           @book1["foo"] = "bar"
       }.to raise_error(NameNotFound, /name "foo" not in #<Book: another_workbook/)
-      @book1.nameval("empty", :default => 1).should be_nil
+      @book1.namevalue_glob("empty", :default => 1).should be_nil
     end    
 
     it "should raise an error if name was defined but contents is calcuated" do
       expect {
-        @book1.set_nameval("named_formula","bar")
+        @book1.set_namevalue_glob("named_formula","bar")
       }.to raise_error(RangeNotEvaluatable, /cannot assign value to range named "named_formula" in #<Book: another_workbook/)
       expect {
         @book1["named_formula"] = "bar"
@@ -745,19 +745,19 @@ describe Book do
 
     # Excel Bug: for local names without uqifier: takes the first sheet as default even if another sheet is activated
     it "should take the first sheet as default even if the second sheet is activated" do
-      @book1.nameval("Sheet1!localname").should == "bar"
-      @book1.nameval("Sheet2!localname").should == "simple"
-      @book1.nameval("localname").should == "bar"
+      @book1.namevalue_glob("Sheet1!localname").should == "bar"
+      @book1.namevalue_glob("Sheet2!localname").should == "simple"
+      @book1.namevalue_glob("localname").should == "bar"
       @book1.Worksheets.Item(2).Activate
-      @book1.nameval("localname").should == "bar"
+      @book1.namevalue_glob("localname").should == "bar"
       @book1.Worksheets.Item(1).Delete
-      @book1.nameval("localname").should == "simple"
+      @book1.namevalue_glob("localname").should == "simple"
     end
 
     it "should color the cell" do
-      @book1.set_nameval("new", "bar")
+      @book1.set_namevalue_glob("new", "bar")
       @book1.Names.Item("new").RefersToRange.Interior.ColorIndex.should == -4142
-      @book1.set_nameval("new", "bar", :color => 4)
+      @book1.set_namevalue_glob("new", "bar", :color => 4)
       @book1.Names.Item("new").RefersToRange.Interior.ColorIndex.should == 4
       @book1["new"].should == "bar"
       @book1["new"] = "bar"
@@ -769,7 +769,7 @@ describe Book do
     end
 
     it "should save without color" do
-      @book1.set_nameval("new", "bar", :color => 4)
+      @book1.set_namevalue_glob("new", "bar", :color => 4)
       @book1.Names.Item("new").RefersToRange.Interior.ColorIndex.should == 4
       @book1.save(:discoloring => true)
       @book1.close
@@ -791,7 +791,7 @@ describe Book do
 
     it "should rename a range" do
       @book1.rename_range("four","five")
-      @book1.nameval("five").should == [[1,2],[3,4]]
+      @book1.namevalue_glob("five").should == [[1,2],[3,4]]
       expect {
         @book1.rename_range("four","five")
       }.to raise_error(NameNotFound, /name "four" not in "another_workbook.xls"/)
@@ -1078,6 +1078,50 @@ describe Book do
       end
     end
 
+    context "adding and deleting the name of a range" do
+
+       before do
+        @book1 = Book.open(@dir + '/another_workbook.xls', :read_only => true, :visible => true)
+        @book1.excel.displayalerts = false
+      end
+
+      after do
+        @book1.close
+      end   
+
+      it "should name an unnamed range with a giving address" do
+        @book1.add_name("foo",1,2)
+        @book1.Names.Item("foo").Name.should == "foo"
+        @book1.Names.Item("foo").Value.should == "=Sheet1!$B$1"
+      end
+
+      it "should rename an already named range with a giving address" do
+        @book1.add_name("foo",1,1)
+        @book1.Names.Item("foo").Name.should == "foo"
+        @book1.Names.Item("foo").Value.should == "=Sheet1!$A$1"
+      end
+
+      it "should raise an error" do
+        expect{
+          @book1.add_name("foo", -2, 1)
+        }.to raise_error(RangeNotEvaluatable, /cannot add name "foo" to cell with row -2 and column 1/)
+      end
+
+      it "should delete a name of a range" do
+        @book1.add_name("foo",1,1)
+        @book1.delete_name("foo")
+        expect{
+          @book1.namevalue_glob("foo")
+        }.to raise_error(NameNotFound, /name "foo"/)
+      end
+
+      it "should add a name of a rectangular range" do
+        @book1.add_name("foo",1,1,3,4)
+        @book1["foo"].should == [["foo", "workbook", "sheet1", nil], ["foo", 1.0, 2.0, 4.0], ["matz", 3.0, 4.0, 4.0]] 
+      end
+
+    end
+  
     context "with compatibility" do      
 
       it "should open with checking compatibility" do

data/spec/book_specs/book_open_spec.rb

@@ -30,6 +30,7 @@ describe Book do
     @simple_file1 = @simple_file
     @different_file1 = @different_file
     @simple_file_other_path1 = @simple_file_other_path
+    @another_simple_file1 = @another_simple_file
   end
 
   after do
@@ -217,12 +218,12 @@ describe Book do
       it "should set calculation mode" do
         book1 = Book.open(@simple_file1, :visible => true)
         book1.excel.calculation = :manual
-        book1.excel.Calculation.should == -4135
+        book1.excel.Calculation.should == XlCalculationManual
         book1.save
         book1.excel.close
         book2 = Book.open(@simple_file1, :visible => true)
         book2.excel.calculation = :automatic
-        book2.excel.Calculation.should == -4105
+        book2.excel.Calculation.should == XlCalculationAutomatic
         book2.save
         book2.excel.close
       end
@@ -236,22 +237,22 @@ describe Book do
         book1 = Book.open(@simple_file)
         book1.excel.calculation = :automatic
         book1.excel.calculation.should == :automatic
-        book1.excel.Calculation.should == -4105
+        book1.excel.Calculation.should == XlCalculationAutomatic
       end
 
       it "should set the calculation mode to manual" do
         book1 = Book.open(@simple_file)
         book1.excel.calculation = :manual
         book1.excel.calculation.should == :manual
-        book1.excel.Calculation.should == -4135
+        book1.excel.Calculation.should == XlCalculationManual
       end
 
       it "should change the calculation mode from manual to automatic" do
         book1 = Book.open(@simple_file, :visible => true)
         excel1 = Excel.current(:calculation => :automatic)        
         book2 = Book.open(@different_file, :visible => true)
-        book2.excel.Calculation.should == -4105
-        book1.excel.Calculation.should == -4105
+        book2.excel.Calculation.should == XlCalculationAutomatic
+        book1.excel.Calculation.should == XlCalculationAutomatic
       end
     end
 
@@ -543,6 +544,48 @@ describe Book do
         @book.close rescue nil
       end
 
+      it "should open not in the reserved Excel instance" do
+        Excel.kill_all
+        sleep 1
+        book2 = Book.open(@simple_file1, :force => {:excel => :reserved_new})
+        Excel.current.should_not == book2.excel
+        book3 = Book.open(@different_file1, :default => {:excel => :current})
+        book3.excel.should_not == book2.excel
+        book4 = Book.open(@another_simple_file1, :default => {:excel => :new})
+        book4.excel.should_not == book2.excel
+        book4.close
+        sleep 1
+        book5 = Book.open(@another_simple_file1, :default => {:excel => :reserved_new})
+        book5.excel.should_not == book2.excel
+      end
+
+      it "should open in the reserved Excel instance" do
+        excel1 = @book.excel
+        @book.close
+        book2 = Book.open(@simple_file1, :force => {:excel => :reserved_new})
+        book2.excel.should_not == excel1
+      end
+
+      it "should open in the reserved Excel instance" do
+        book2 = Book.open(@simple_file1, :force => {:excel => :reserved_new})
+        book3 = Book.open(@different_file1, :force => {:excel => :reserved_new})
+        book4 = Book.open(@another_simple_file1, :force => {:excel => :new})
+        book5 = Book.open(@another_simple_file1, :force => {:excel => :current})
+        book2.excel.should_not == @book.excel
+        book3.excel.should_not == book2.excel
+        book4.excel.should_not == @book.excel
+        book4.excel.should_not == book2.excel
+        book5.excel.should == @book.excel
+      end
+
+      it "should open in the reserved Excel instance" do
+        book2 = Book.open(@another_simple_file1, :force => {:excel => :new})
+        book3 = Book.open(@different_file1, :force => {:excel => :reserved_new})
+        book2.excel.should_not == @book.excel
+        book3.excel.should_not == @book.excel
+        book3.excel.should_not == book2.excel
+      end
+
       it "should open in a given Excel provided as Excel, Book, or WIN32OLE representing an Excel or Workbook" do
         book2 = Book.open(@another_simple_file)
         book3 = Book.open(@different_file)
@@ -686,7 +729,7 @@ describe Book do
         book3.should be_a Book
         book3.excel.should == @book.excel
       end
-   
+
     end
 
     context "with leaving out :force => {:excel}" do
@@ -1013,162 +1056,280 @@ describe Book do
         @book.close rescue nil
       end
 
-      it "should use the open book" do
-        book2 = Book.open(@simple_file1, :default => {:excel => :current})
-        book2.excel.should == @book.excel
-        book2.should be_alive
-        book2.should be_a Book
-        book2.should == @book
-        book2.close
-      end
+      context "with :default => {:excel => :reserved_new}" do
 
-      it "should reopen the book in the excel instance where it was opened before" do
-        excel = Excel.new(:reuse => false)
-        @book.close
-        book2 = Book.open(@simple_file1)
-        book2.should be_alive
-        book2.should be_a Book
-        book2.excel.should == @book.excel
-        book2.excel.should_not == excel
-        book2.filename.should == @book.filename
-        @book.should be_alive
-        book2.should == @book
-        book2.close
-      end
+        it "should open in the reserved Excel instance" do
+          book3 = Book.open(@different_file1, :default => {:excel => :reserved_new})
+          book3.excel.should_not == @book.excel
+        end
 
-      it "should reopen a book in a new Excel if all Excel instances are closed" do
-        excel = Excel.new(:reuse => false)
-        excel2 = @book.excel
-        fn = @book.filename
-        @book.close
-        Excel.close_all
-        book2 = Book.open(@simple_file1, :default => {:excel => :current})
-        book2.should be_alive
-        book2.should be_a Book
-        book2.filename.should == fn
-        @book.should be_alive
-        book2.should == @book
-        book2.close
-      end
+        it "should open in separate Excel instances" do
+          Excel.kill_all
+          sleep 1
+          book2 = Book.open(@simple_file1, :default => {:excel => :reserved_new})
+          book3 = Book.open(@different_file1, :default => {:excel => :reserved_new})
+          book2.excel.should_not == book3.excel
+          book4 = Book.open(@another_simple_file1, :default => {:excel => :current})
+          book4.excel.should_not == book2.excel
+          book4.excel.should_not == book3.excel
+        end
 
-      it "should reopen a book in the first opened Excel if the old Excel is closed" do
-        excel = @book.excel
-        Excel.close_all
-        new_excel = Excel.new(:reuse => false)
-        new_excel2 = Excel.new(:reuse => false)
-        book2 = Book.open(@simple_file1, :default => {:excel => :current})
-        book2.should be_alive
-        book2.should be_a Book
-        book2.excel.should_not == excel
-        book2.excel.should_not == new_excel2
-        book2.excel.should == new_excel
-        @book.should be_alive
-        book2.should == @book
-        book2.close
-      end
+        it "should use the open book" do
+          book2 = Book.open(@simple_file1, :default => {:excel => :reserved_new})
+          book2.excel.should == @book.excel
+          book2.should be_alive
+          book2.should be_a Book
+          book2.should == @book
+          book2.close
+        end
 
-      it "should reopen a book in the first opened excel, if the book cannot be reopened" do
-        @book.close
-        Excel.close_all
-        excel1 = Excel.new(:reuse => false)
-        excel2 = Excel.new(:reuse => false)
-        book2 = Book.open(@different_file, :default => {:excel => :current})
-        book2.should be_alive
-        book2.should be_a Book
-        book2.excel.should == excel1
-        book2.excel.should_not == excel2
-        book2.close
-      end
+        it "should open in the old Excel instance" do
+          @book.close
+          book2 = Book.open(@simple_file1, :default => {:excel => :reserved_new})
+          book2.should be_alive
+          book2.should be_a Book
+          book2.should == @book
+          book2.excel.should == @book.excel
+        end
 
-      it "should reopen the book in the Excel where it was opened most recently" do
-        excel1 = @book.excel
-        excel2 = Excel.new(:reuse => false)
-        @book.close
-        book2 = Book.open(@simple_file1, :default => {:excel => :current})
-        book2.excel.should == excel1
-        book2.close
-        book3 = Book.open(@simple_file1, :force => {:excel => excel2})
-        book3.close
-        book3 = Book.open(@simple_file1, :default => {:excel => :current})
-        book3.excel.should == excel2
-        book3.close
-      end
+        it "should open one book in the reserved Excel instance" do
+          book3 = Book.open(@different_file1, :default => {:excel => :reserved_new})
+          @book.close
+          book2 = Book.open(@simple_file1, :default => {:excel => :reserved_new})
+          book2.excel.should_not == book3.excel
+        end
 
-      it "should reopen a book in the excel instance where it was opened most recently" do
-        book2 = Book.open(@simple_file, :force => {:excel => :new})
-        @book.close
-        book2.close
-        book3 = Book.open(@simple_file1)
-        book2.should be_alive
-        book2.should be_a Book
-        book3.excel.should == book2.excel
-        book3.excel.should_not == @book.excel
-        book3.should == book2
-        book3.should_not == @book
-      end
+        it "should not use the reserved Excel instance" do
+          book3 = Book.open(@different_file1, :default => {:excel => :reserved_new})
+          @book.close
+          book2 = Book.open(@simple_file1, :default => {:excel => :new})
+          book2.excel.should_not == book3.excel
+        end
 
-      it "should open the book in a new excel if the book was not opened before" do
-        book2 = Book.open(@different_file, :default => {:excel => :current})
-        book2.excel.should == @book.excel
-        book3 = Book.open(@another_simple_file, :default => {:excel => :new})
-        book3.excel.should_not == @book.excel
-      end
+        it "should not reopen in the reserved Excel instance" do
+          book3 = Book.open(@different_file1, :default => {:excel => :reserved_new})
+          @book.close
+          @book.reopen
+          @book.excel.should_not == book3.excel
+        end
 
-      it "should open the book in a new excel if the book was opened before but the excel has been closed" do
-        excel = @book.excel
-        excel2 = Excel.new(:reuse => false)
-        excel.close
-        book2 = Book.open(@simple_file1, :default => {:excel => :new})
-        book2.excel.should_not == excel2
-        book2.close
-      end
+        it "should reopen in the reserved Excel instance" do
+          book3 = Book.open(@different_file1, :default => {:excel => :reserved_new})
+          @book.close
+          book3.close
+          @book.reopen
+          book3.reopen
+          @book.excel.should_not == book3.excel
+        end
 
-      it "should open the book in a given excel if the book was not opened before" do
-        book2 = Book.open(@different_file, :default => {:excel => :current})
-        book2.excel.should == @book.excel
-        excel = Excel.new(:reuse => false)
-        book3 = Book.open(@another_simple_file, :default => {:excel => excel})
-        book3.excel.should == excel
-      end
+        it "should not reopen in the reserved Excel instance when opened the reserved Excel instance first" do
+          Excel.kill_all
+          sleep 1
+          book1 = Book.open(@simple_file1, :default => {:excel => :reserved_new})
+          book2 = Book.open(@different_file1, :default => {:excel => :new})
+          book2.excel.should_not == book1.excel
+          book3 = Book.open(@another_simple_file1, :default => {:excel => :current})
+          book3.excel.should_not == book1.excel
+          book2.close
+          book2.reopen
+          book2.excel.should_not == book1.excel
+          book3.close
+          book3.reopen
+          book3.excel.should_not == book1.excel
+          book1.close
+          book1.reopen
+          book1.excel.should_not == book2.excel
+          book1.excel.should_not == book3.excel
+        end
+
+        it "should open several workbooks in the reserved Excel instance" do
+          book2 = Book.open(@different_file1, :default => {:excel => :reserved_new})
+          book3 = Book.open(@another_simple_file1, :default => {:excel => :reserved_new})
+          book2.excel.should_not == @book.excel
+          book3.excel.should_not == @book.excel
+          book2.excel.should_not == book3.excel
+        end
+
+        it "should open several workbooks in the reserved Excel instance" do
+          Excel.kill_all
+          book1 = Book.open(@simple_file1, :default => {:excel => :reserved_new})
+          book2 = Book.open(@different_file1, :default => {:excel => :current})
+          book3 = Book.open(@another_simple_file1, :default => {:excel => :current})
+          book2.excel.should_not == book1.excel
+          book3.excel.should_not == book1.excel
+          book2.excel.should == book3.excel
+        end
 
-      it "should open the book in a given excel if the book was opened before but the excel has been closed" do
-        excel2 = Excel.new(:reuse => false, :visible => true)
-        @book.excel.close        
-        book2 = Book.open(@simple_file1, :default => {:excel => excel2, :visible => true})
-        book2.excel.should == excel2
       end
 
-      it "should open a new excel, if the book cannot be reopened" do
-        @book.close
-        new_excel = Excel.new(:reuse => false)
-        book2 = Book.open(@different_file, :default => {:excel => :new})
-        book2.should be_alive
-        book2.should be_a Book
-        book2.excel.should_not == new_excel
-        book2.excel.should_not == @book.excel
-        book2.close
+      context "with :default => {:excel => :current}" do
+
+        it "should use the open book" do
+          book2 = Book.open(@simple_file1, :default => {:excel => :current})
+          book2.excel.should == @book.excel
+          book2.should be_alive
+          book2.should be_a Book
+          book2.should == @book
+          book2.close
+        end
+
+        it "should reopen the book in the excel instance where it was opened before" do
+          excel = Excel.new(:reuse => false)
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.should be_alive
+          book2.should be_a Book
+          book2.excel.should == @book.excel
+          book2.excel.should_not == excel
+          book2.filename.should == @book.filename
+          @book.should be_alive
+          book2.should == @book
+          book2.close
+        end
+
+        it "should reopen a book in a new Excel if all Excel instances are closed" do
+          excel = Excel.new(:reuse => false)
+          excel2 = @book.excel
+          fn = @book.filename
+          @book.close
+          Excel.close_all
+          book2 = Book.open(@simple_file1, :default => {:excel => :current})
+          book2.should be_alive
+          book2.should be_a Book
+          book2.filename.should == fn
+          @book.should be_alive
+          book2.should == @book
+          book2.close
+        end
+
+        it "should reopen a book in the first opened Excel if the old Excel is closed" do
+          excel = @book.excel
+          Excel.close_all
+          new_excel = Excel.new(:reuse => false)
+          new_excel2 = Excel.new(:reuse => false)
+          book2 = Book.open(@simple_file1, :default => {:excel => :current})
+          book2.should be_alive
+          book2.should be_a Book
+          book2.excel.should_not == excel
+          book2.excel.should_not == new_excel2
+          book2.excel.should == new_excel
+          @book.should be_alive
+          book2.should == @book
+          book2.close
+        end
+
+        it "should reopen a book in the first opened excel, if the book cannot be reopened" do
+          @book.close
+          Excel.close_all
+          excel1 = Excel.new(:reuse => false)
+          excel2 = Excel.new(:reuse => false)
+          book2 = Book.open(@different_file, :default => {:excel => :current})
+          book2.should be_alive
+          book2.should be_a Book
+          book2.excel.should == excel1
+          book2.excel.should_not == excel2
+          book2.close
+        end
+
+        it "should reopen the book in the Excel where it was opened most recently" do
+          excel1 = @book.excel
+          excel2 = Excel.new(:reuse => false)
+          @book.close
+          book2 = Book.open(@simple_file1, :default => {:excel => :current})
+          book2.excel.should == excel1
+          book2.close
+          book3 = Book.open(@simple_file1, :force => {:excel => excel2})
+          book3.close
+          book3 = Book.open(@simple_file1, :default => {:excel => :current})
+          book3.excel.should == excel2
+          book3.close
+        end
+
       end
 
-      it "should open a given excel, if the book cannot be reopened" do
-        @book.close
-        new_excel = Excel.new(:reuse => false)
-        book2 = Book.open(@different_file, :default => {:excel => @book.excel})
-        book2.should be_alive
-        book2.should be_a Book
-        book2.excel.should_not == new_excel
-        book2.excel.should == @book.excel
-        book2.close
+      context "with :default => {:excel => :new}" do
+
+        it "should reopen a book in the excel instance where it was opened most recently" do
+          book2 = Book.open(@simple_file, :force => {:excel => :new})
+          @book.close
+          book2.close
+          book3 = Book.open(@simple_file1)
+          book2.should be_alive
+          book2.should be_a Book
+          book3.excel.should == book2.excel
+          book3.excel.should_not == @book.excel
+          book3.should == book2
+          book3.should_not == @book
+        end
+
+        it "should open the book in a new excel if the book was not opened before" do
+          book2 = Book.open(@different_file, :default => {:excel => :current})
+          book2.excel.should == @book.excel
+          book3 = Book.open(@another_simple_file, :default => {:excel => :new})
+          book3.excel.should_not == @book.excel
+        end
+
+        it "should open the book in a new excel if the book was opened before but the excel has been closed" do
+          excel = @book.excel
+          excel2 = Excel.new(:reuse => false)
+          excel.close
+          book2 = Book.open(@simple_file1, :default => {:excel => :new})
+          book2.excel.should_not == excel2
+          book2.close
+        end
+
       end
 
-      it "should open a given excel, if the book cannot be reopened" do
-        @book.close
-        new_excel = Excel.new(:reuse => false)
-        book2 = Book.open(@different_file, :default => {:excel => @book})
-        book2.should be_alive
-        book2.should be_a Book
-        book2.excel.should_not == new_excel
-        book2.excel.should == @book.excel
-        book2.close
+      context "with :default => {:excel => <excel-instance>}" do
+
+        it "should open the book in a given excel if the book was not opened before" do
+          book2 = Book.open(@different_file, :default => {:excel => :current})
+          book2.excel.should == @book.excel
+          excel = Excel.new(:reuse => false)
+          book3 = Book.open(@another_simple_file, :default => {:excel => excel})
+          book3.excel.should == excel
+        end
+
+        it "should open the book in a given excel if the book was opened before but the excel has been closed" do
+          excel2 = Excel.new(:reuse => false, :visible => true)
+          @book.excel.close        
+          book2 = Book.open(@simple_file1, :default => {:excel => excel2, :visible => true})
+          book2.excel.should == excel2
+        end
+
+        it "should open a new excel, if the book cannot be reopened" do
+          @book.close
+          new_excel = Excel.new(:reuse => false)
+          book2 = Book.open(@different_file, :default => {:excel => :new})
+          book2.should be_alive
+          book2.should be_a Book
+          book2.excel.should_not == new_excel
+          book2.excel.should_not == @book.excel
+          book2.close
+        end
+
+        it "should open a given excel, if the book cannot be reopened" do
+          @book.close
+          new_excel = Excel.new(:reuse => false)
+          book2 = Book.open(@different_file, :default => {:excel => @book.excel})
+          book2.should be_alive
+          book2.should be_a Book
+          book2.excel.should_not == new_excel
+          book2.excel.should == @book.excel
+          book2.close
+        end
+
+        it "should open a given excel, if the book cannot be reopened" do
+          @book.close
+          new_excel = Excel.new(:reuse => false)
+          book2 = Book.open(@different_file, :default => {:excel => @book})
+          book2.should be_alive
+          book2.should be_a Book
+          book2.excel.should_not == new_excel
+          book2.excel.should == @book.excel
+          book2.close
+        end
+
       end
 
       it "should reuse an open book by default" do