robust_excel_ole 1.14 → 1.18.1

data/spec/workbook_specs/workbook_open_spec.rb

@@ -35,7 +35,15 @@ describe Workbook do
     #@simple_file_via_network = File.join('N:/', 'data') + '/workbook.xls'
     @simple_file_network_path = "N:/data/workbook.xls"
     @simple_file_hostname_share_path = '//DESKTOP-A3C5CJ6/spec/data/workbook.xls'
-
+    @simple_file_network_path_other_path = "N:/data/more_data/workbook.xls"
+    @simple_file_hostname_share_path_other_path = '//DESKTOP-A3C5CJ6/spec/data/more_data/workbook.xls'
+    @simple_file_network_path1 = @simple_file_network_path
+    @simple_file_hostname_share_path1 = @simple_file_hostname_share_path
+    @simple_file_network_path_other_path1 = @simple_file_network_path_other_path
+    @simple_file_hostname_share_path_other_path1 = @simple_file_hostname_share_path_other_path
+    @simple_file_xlsm1 = @simple_file_xlsm
+    @simple_file_xlsx1 = @simple_file_xlsx
+    @error_message_excel = "provided Excel option value is neither an Excel object nor a valid option"
   end
 
   after do
@@ -43,6 +51,198 @@ describe Workbook do
     rm_tmp(@dir)
   end
 
+  describe "basic tests with xlsx-workbooks" do
+
+    context "with simple file" do
+
+      it "should simply create a new workbook given a file" do
+        book = Workbook.new(@simple_file_xlsx1)
+        book.should be_alive
+        book.should be_a Workbook
+        book.filename.should == @simple_file_xlsx1
+      end
+
+    end
+
+    context "with transparency identity" do
+
+      before do
+        @book = Workbook.open(@simple_file_xlsx1)        
+      end
+
+      after do
+        @book.close
+      end
+
+      it "should yield identical Workbook objects referring to identical WIN32OLE objects" do
+        book2 = Workbook.new(@book.ole_workbook)
+        book2.equal?(@book).should be true
+      end
+
+    end
+
+    context "with connecting to one unknown workbook" do
+
+      before do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_xlsx1)
+        @ole_wb = ws.Open(abs_filename)
+      end
+
+      it "should connect to an unknown workbook" do
+        Workbook.open(@simple_file_xlsx1) do |book|
+          book.filename.should == @simple_file_xlsx1
+          book.should be_alive
+          book.should be_a Workbook
+          book.excel.ole_excel.Hwnd.should == @ole_wb.Application.Hwnd
+          Excel.excels_number.should == 1
+        end
+      end
+    end
+
+    context "with :force => excel" do
+
+      before do
+        @book = Workbook.open(@simple_file_xlsx1)
+      end
+
+      it "should open in a new Excel" do
+        book2 = Workbook.open(@simple_file_xlsx1, :force => {:excel => :new})
+        book2.should be_alive
+        book2.should be_a Workbook
+        book2.excel.should_not == @book.excel 
+        book2.should_not == @book
+        @book.Readonly.should be false
+        book2.Readonly.should be true
+        book2.close
+      end
+
+    end
+
+    context "with :if_unsaved" do
+
+      before do
+        @book = Workbook.open(@simple_file_xlsx1)
+        @sheet = @book.sheet(1)
+        @book.add_sheet(@sheet, :as => 'a_name')
+        @book.visible = true
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+        @new_book.close rescue nil
+      end
+
+      it "should let the book open, if :if_unsaved is :accept" do
+        expect {
+          @new_book = Workbook.open(@simple_file_xlsx1, :if_unsaved => :accept)
+          }.to_not raise_error
+        @book.should be_alive
+        @new_book.should be_alive
+        @new_book.should == @book
+      end
+    
+    end
+  
+  end
+
+  describe "basic tests with xlsm-workbooks" do
+
+    context "with simple file" do
+
+      it "should simply create a new workbook given a file" do
+        book = Workbook.new(@simple_file_xlsm1)
+        book.should be_alive
+        book.should be_a Workbook
+        book.filename.should == @simple_file_xlsm1
+      end
+
+    end
+
+    context "with transparency identity" do
+
+      before do
+        @book = Workbook.open(@simple_file_xlsm1)        
+      end
+
+      after do
+        @book.close
+      end
+
+      it "should yield identical Workbook objects referring to identical WIN32OLE objects" do
+        book2 = Workbook.new(@book.ole_workbook)
+        book2.equal?(@book).should be true
+      end
+
+    end
+
+    context "connecting to one unknown workbook" do
+
+      before do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_xlsm1)
+        @ole_wb = ws.Open(abs_filename)
+      end
+
+      it "should connect to an unknown workbook" do
+        Workbook.open(@simple_file_xlsm1) do |book|
+          book.filename.should == @simple_file_xlsm1
+          book.should be_alive
+          book.should be_a Workbook
+          book.excel.ole_excel.Hwnd.should == @ole_wb.Application.Hwnd
+          Excel.excels_number.should == 1
+        end
+      end
+    end
+
+    context "with :force => excel" do
+
+      before do
+        @book = Workbook.open(@simple_file_xlsm1)
+      end
+
+      it "should open in a new Excel" do
+        book2 = Workbook.open(@simple_file_xlsm1, :force => {:excel => :new})
+        book2.should be_alive
+        book2.should be_a Workbook
+        book2.excel.should_not == @book.excel 
+        book2.should_not == @book
+        @book.Readonly.should be false
+        book2.Readonly.should be true
+        book2.close
+      end
+
+    end
+
+    context "with :if_unsaved" do
+
+      before do
+        @book = Workbook.open(@simple_file_xlsm1)
+        @sheet = @book.sheet(1)
+        @book.add_sheet(@sheet, :as => 'a_name')
+        @book.visible = true
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+        @new_book.close rescue nil
+      end
+
+      it "should let the book open, if :if_unsaved is :accept" do
+        expect {
+          @new_book = Workbook.open(@simple_file_xlsm1, :if_unsaved => :accept)
+          }.to_not raise_error
+        @book.should be_alive
+        @new_book.should be_alive
+        @new_book.should == @book
+      end
+
+    end
+
+  end
+
   describe "open and new" do
 
     context "with standard" do
@@ -67,8 +267,340 @@ describe Workbook do
 
   end
 
+  describe "fetching workbooks with network and hostname share paths" do
+
+    before do
+      bookstore = Bookstore.new
+    end
+
+    it "should fetch a network path file given a hostname share file" do
+      book1 = Workbook.open(@simple_file_hostname_share_path)
+      book2 = Workbook.open(@simple_file_network_path)
+      book2.should === book1
+      book2.Fullname.should == book1.Fullname
+      book1.excel.Workbooks.Count.should == 1
+    end
+
+    it "should fetch a hostname share file given a network path file" do
+      book1 = Workbook.open(@simple_file_network_path)
+      book2 = Workbook.open(@simple_file_hostname_share_path)
+      book2.should === book1
+      book2.Fullname.should == book1.Fullname
+      book1.excel.Workbooks.Count.should == 1
+    end
+
+    it "should raise WorkbookBlocked" do
+      book1 = Workbook.open(@simple_file_hostname_share_path)
+      expect{
+        book2 = Workbook.open(@simple_file)
+        }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an error fetching an hostname share file having opened a local path file" do
+      book1 = Workbook.open(@simple_file)
+      expect{
+        Workbook.open(@simple_file_hostname_share_path)
+        }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an error fetching a local path file having opened a network path file" do
+      book1 = Workbook.open(@simple_file_network_path)
+      expect{
+        Workbook.open(@simple_file)
+        }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an error fetching a network path file having opened a local path file" do
+      book1 = Workbook.open(@simple_file)
+      expect{
+        Workbook.open(@simple_file_network_path)
+        }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an error fetching a local path file having opened a hostname share path file" do
+      book1 = Workbook.open(@simple_file_hostname_share_path)
+      expect{
+        Workbook.open(@simple_file)
+        }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an WorkbookBlockederror" do
+      book1 = Workbook.open(@simple_file_network_path1)
+      expect{
+        Workbook.open(@simple_file_network_path_other_path1)
+      }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an WorkbookBlockederror" do
+      book1 = Workbook.open(@simple_file_network_path_other_path1)
+      expect{
+        Workbook.open(@simple_file_network_path1)
+      }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an WorkbookBlockederror" do
+      book1 = Workbook.open(@simple_file_hostname_share_path1)
+      expect{
+        Workbook.open(@simple_file_hostname_share_path_other_path1)
+      }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an WorkbookBlockederror" do
+      book1 = Workbook.open(@simple_file_hostname_share_path_other_path1)
+      expect{
+        Workbook.open(@simple_file_hostname_share_path1)
+      }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an WorkbookBlockederror" do
+      book1 = Workbook.open(@simple_file_hostname_share_path1)
+      expect{
+        Workbook.open(@simple_file_network_path_other_path1)
+      }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an WorkbookBlockederror" do
+      book1 = Workbook.open(@simple_file_hostname_share_path_other_path1)
+      expect{
+        Workbook.open(@simple_file_network_path1)
+      }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an WorkbookBlockederror" do
+      book1 = Workbook.open(@simple_file_network_path1)
+      expect{
+        Workbook.open(@simple_file_hostname_share_path_other_path1)
+      }.to raise_error(WorkbookBlocked)
+    end
+
+    it "should raise an WorkbookBlockederror" do
+      book1 = Workbook.open(@simple_file_network_path_other_path1)
+      expect{
+        Workbook.open(@simple_file_hostname_share_path1)
+      }.to raise_error(WorkbookBlocked)
+    end
+
+  end
+
+
   describe "connecting to unknown workbooks" do
 
+    context "with one unknown network path or hostname share file" do
+
+      it "should connect to a network path workbook from a network path file" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_network_path1)
+        @ole_wb = ws.Open(abs_filename)
+        Workbook.open(@simple_file_network_path1) do |book|
+          book.should be_alive
+          book.should be_a Workbook
+          book.filename.should == @simple_file_network_path1
+          book.Fullname.should == @ole_wb.Fullname
+          book.excel.ole_excel.Hwnd.should == @ole_wb.Application.Hwnd
+          Excel.excels_number.should == 1
+          book.excel.Workbooks.Count.should == 1
+        end
+      end
+
+      it "should connect to a hostname share workbook from a network path file" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_hostname_share_path1)
+        @ole_wb = ws.Open(abs_filename)
+        Workbook.open(@simple_file_network_path1) do |book|
+          book.should be_alive
+          book.should be_a Workbook
+          book.filename.should == @simple_file_hostname_share_path1.downcase
+          book.Fullname.should == @ole_wb.Fullname
+          book.excel.ole_excel.Hwnd.should == @ole_wb.Application.Hwnd
+          Excel.excels_number.should == 1
+          book.excel.Workbooks.Count.should == 1
+        end
+      end
+
+      it "should raise WorkbookBlocked trying to connect to a local path file from a network path file" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_network_path1)
+          }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked trying to connect to a network path file from a local path file" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_network_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file1)
+          }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked trying to connect a hostname share file from a local path file" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_hostname_share_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file1)
+          }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked trying to connect to a local path workbook from a hostname share file" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_hostname_share_path1)
+          }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should connect to a network path workbook from a hostname share file" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_network_path1)
+        @ole_wb = ws.Open(abs_filename)
+        Workbook.open(@simple_file_hostname_share_path1) do |book|
+          book.should be_alive
+          book.should be_a Workbook
+          book.filename.should == @simple_file_network_path1
+          book.Fullname.should == @ole_wb.Fullname
+          book.excel.ole_excel.Hwnd.should == @ole_wb.Application.Hwnd
+          Excel.excels_number.should == 1
+          book.excel.Workbooks.Count.should == 1
+        end
+      end
+
+      it "should connect to a hostname share workbook from a hostname share file" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_hostname_share_path1)
+        @ole_wb = ws.Open(abs_filename)
+        Workbook.open(@simple_file_hostname_share_path1) do |book|
+          book.should be_alive
+          book.should be_a Workbook
+          book.filename.should == @simple_file_hostname_share_path1.downcase
+          book.Fullname.should == @ole_wb.Fullname
+          book.excel.ole_excel.Hwnd.should == @ole_wb.Application.Hwnd
+          Excel.excels_number.should == 1
+          book.excel.Workbooks.Count.should == 1
+        end
+      end      
+
+      it "should raise WorkbookBlocked error" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_network_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_network_path_other_path1)
+        }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked error" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_network_path_other_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_network_path1)
+        }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked error" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_hostname_share_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_hostname_share_path_other_path1)
+        }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked error" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_hostname_share_path_other_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_hostname_share_path1)
+        }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked error" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_hostname_share_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_network_path_other_path1)
+        }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked error" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_network_path_other_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_hostname_share_path1)
+        }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked error" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_network_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_hostname_share_path_other_path1)
+        }.to raise_error(WorkbookBlocked)
+      end
+
+      it "should raise WorkbookBlocked error" do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path(@simple_file_hostname_share_path_other_path1)
+        @ole_wb = ws.Open(abs_filename)
+        expect{
+          Workbook.open(@simple_file_network_path1)
+        }.to raise_error(WorkbookBlocked)
+      end
+
+    end
+
+    context "with one unknown hostname share path file" do
+
+      before do
+        ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = ole_e1.Workbooks
+        abs_filename = General.absolute_path( @simple_file_hostname_share_path1)
+        @ole_wb = ws.Open(abs_filename)
+      end
+
+      it "should connect to an unknown hostname share path workbook" do
+        Workbook.open(@simple_file_hostname_share_path1) do |book|
+          book.filename.should == @simple_file_hostname_share_path1.downcase
+          book.should be_alive
+          book.should be_a Workbook
+          book.excel.ole_excel.Hwnd.should == @ole_wb.Application.Hwnd
+          Excel.excels_number.should == 1
+          book.excel.Workbooks.Count.should == 1
+        end
+      end
+
+      it "should raise error because blocking" do
+        expect{
+          Workbook.open(@simple_file1)
+          }.to raise_error(WorkbookBlocked)
+      end
+
+    end
+      
     context "with none workbook" do
 
       it "should open one new Excel with the worbook" do
@@ -78,7 +610,7 @@ describe Workbook do
         Excel.excels_number.should == 1
         book1.ReadOnly.should be false
         book1.excel.Visible.should be false
-        book1.CheckCompatibility.should be false
+        book1.CheckCompatibility.should be true
         book1.Saved.should be true
       end
 
@@ -380,7 +912,7 @@ describe Workbook do
         excel1.close
         expect{
           book1 = Workbook.open(@simple_file1, :force => {:excel => excel1})
-          }.to raise_error(ExcelREOError, "excel is not alive")
+          }.to raise_error(ExcelREOError, "Excel is not alive")
       end
 
       it "should open in a provided Excel" do
@@ -402,18 +934,7 @@ describe Workbook do
     end
 
   end
-
-  describe "network paths" do
-
-    it "should open the workbook via network path" do
-      book1 = Workbook.open(@simple_file_hostname_share_path)
-      book2 = Workbook.open(@simple_file_network_path)
-      book1.should === book2
-      book1.Fullname.should == book2.Fullname
-    end
-
-  end
-
+  
   describe "new" do
 
     context "with transparency identity" do
@@ -510,7 +1031,26 @@ describe Workbook do
       book2.excel.should_not == book.excel
     end
 
-    it "should promote an open known workbook" do
+    it "should type-lift an workbook" do
+      book = Workbook.open(@simple_file)
+      new_book = Workbook.new(book)
+      new_book.should == book
+      new_book.equal?(book).should be true
+      new_book.Fullname.should == book.Fullname
+      new_book.excel.should == book.excel
+    end
+
+    it "should type-lift an workbook and supply option" do
+      book = Workbook.open(@simple_file)
+      new_book = Workbook.new(book, :visible => true)
+      new_book.should == book
+      new_book.equal?(book).should be true
+      new_book.Fullname.should == book.Fullname
+      new_book.excel.should == book.excel
+      new_book.visible.should be true
+    end
+
+    it "should type-lift an open known win32ole workbook" do
       book = Workbook.open(@simple_file)
       ole_workbook = book.ole_workbook
       new_book = Workbook.new(ole_workbook)
@@ -520,7 +1060,7 @@ describe Workbook do
       new_book.excel.should == book.excel
     end
 
-    it "should promote an open known workbook and let it be visible" do
+    it "should type-lift an open known win32ole workbook and let it be visible" do
       book = Workbook.open(@simple_file, :visible => true)
       ole_workbook = book.ole_workbook
       new_book = Workbook.new(ole_workbook)
@@ -532,7 +1072,7 @@ describe Workbook do
       new_book.Windows(new_book.ole_workbook.Name).Visible.should == true
     end
 
-    it "should promote an open known workbook and let it be visible and readonly" do
+    it "should type-lift an open known win32ole workbook and let it be visible and readonly" do
       book = Workbook.open(@simple_file, :visible => true, :read_only => true)
       ole_workbook = book.ole_workbook
       new_book = Workbook.new(ole_workbook)
@@ -545,7 +1085,7 @@ describe Workbook do
       new_book.ReadOnly.should == true
     end
 
-    it "should promote an open known workbook and make it visible" do
+    it "should type-lift an open known win32ole workbook and make it visible" do
       book = Workbook.open(@simple_file)
       ole_workbook = book.ole_workbook
       new_book = Workbook.new(ole_workbook, :visible => true)
@@ -557,7 +1097,7 @@ describe Workbook do
       new_book.Windows(new_book.ole_workbook.Name).Visible.should == true
     end
 
-    it "should promote an open unknown workbook" do
+    it "should type-lift an open unknown win32ole workbook" do
       ole_excel = WIN32OLE.new('Excel.Application')
       ws = ole_excel.Workbooks
       abs_filename = General.absolute_path(@simple_file1)
@@ -567,7 +1107,7 @@ describe Workbook do
       new_book.excel.Hwnd.should == ole_excel.Hwnd
     end
 
-    it "should promote an open unknown workbook and make it visible" do
+    it "should type-lift an open unknown win32ole workbook and make it visible" do
       ole_excel = WIN32OLE.new('Excel.Application')
       ws = ole_excel.Workbooks
       abs_filename = General.absolute_path(@simple_file1)
@@ -579,7 +1119,7 @@ describe Workbook do
       new_book.Windows(new_book.ole_workbook.Name).Visible.should == true
     end
 
-    it "should promote an open unknown workbook and make it visible and readonly" do
+    it "should type-lift an open unknown win32ole workbook and make it visible and readonly" do
       ole_excel = WIN32OLE.new('Excel.Application')
       ws = ole_excel.Workbooks
       abs_filename = General.absolute_path(@simple_file1)
@@ -612,20 +1152,20 @@ describe Workbook do
 
       it "should not set the default value" do
         book1 = Workbook.open(@simple_file)
-        book1.excel.calculation.should == nil
+        book1.excel.properties[:calculation].should == nil
       end
 
       it "should set the calculation mode to automatic" do
         book1 = Workbook.open(@simple_file)
         book1.excel.calculation = :automatic
-        book1.excel.calculation.should == :automatic
+        book1.excel.properties[:calculation].should == :automatic
         book1.excel.Calculation.should == XlCalculationAutomatic
       end
 
       it "should set the calculation mode to manual" do
         book1 = Workbook.open(@simple_file)
         book1.excel.calculation = :manual
-        book1.excel.calculation.should == :manual
+        book1.excel.properties[:calculation].should == :manual
         book1.excel.Calculation.should == XlCalculationManual
       end
 
@@ -1040,7 +1580,7 @@ describe Workbook do
       it "should raise an error if no Excel or Workbook is given" do
         expect{
           Workbook.open(@simple_file1, :force => {:excel => :b})
-          }.to raise_error(TypeREOError, "given object is neither an Excel, a Workbook, nor a Win32ole")
+          }.to raise_error(TypeREOError, @error_message_excel)
       end
 
       it "should do force_excel even if both force_ and default_excel is given" do
@@ -1196,7 +1736,7 @@ describe Workbook do
       it "should raise an error if no Excel or Workbook is given" do
         expect{
           Workbook.open(@simple_file1, :excel => :b)
-          }.to raise_error(TypeREOError, "given object is neither an Excel, a Workbook, nor a Win32ole")
+          }.to raise_error(TypeREOError, @error_message_excel)
       end
 
       it "should do force_excel even if both force_ and default_excel is given" do
@@ -1354,7 +1894,7 @@ describe Workbook do
       it "should raise an error if no Excel or Workbook is given" do
         expect{
           Workbook.open(@simple_file1, :force_excel => :b)
-          }.to raise_error(TypeREOError, "given object is neither an Excel, a Workbook, nor a Win32ole")
+          }.to raise_error(TypeREOError, @error_message_excel)
       end
 
       it "should do force_excel even if both force_ and default_excel is given" do
@@ -1595,7 +2135,7 @@ describe Workbook do
       it "should raise an error if no Excel or Workbook is given" do
         expect{
           Workbook.open(@different_file, :default => {:excel => :a})
-          }.to raise_error(TypeREOError, "given object is neither an Excel, a Workbook, nor a Win32ole")
+          }.to raise_error(TypeREOError, @error_message_excel)
       end
       
     end
@@ -1777,7 +2317,7 @@ describe Workbook do
       it "should raise an error if no Excel or Workbook is given" do
         expect{
           Workbook.open(@different_file, :default_excel => :a)
-          }.to raise_error(TypeREOError, "given object is neither an Excel, a Workbook, nor a Win32ole")
+          }.to raise_error(TypeREOError, @error_message_excel)
       end
       
     end