robust_excel_ole 0.6 → 0.6.1

data/lib/robust_excel_ole/excel.rb

@@ -58,26 +58,24 @@ module RobustExcelOle
           ole_xl = current_excel
         end
       end
-      #puts "options: #{options}"
-      if not (ole_xl)
-        ole_xl = WIN32OLE.new('Excel.Application')
-        options = {
-          :displayalerts => :if_visible,
-          :visible => false,
-        }.merge(options)
-      end
+      ole_xl = WIN32OLE.new('Excel.Application') unless ole_xl
+
       hwnd = ole_xl.HWnd
       stored = hwnd2excel(hwnd)
       if stored 
         result = stored
-      else
+      else 
         result = super(options)
         result.instance_variable_set(:@ole_excel, ole_xl)        
         WIN32OLE.const_load(ole_xl, RobustExcelOle) unless RobustExcelOle.const_defined?(:CONSTANTS)
         @@hwnd2excel[hwnd] = WeakRef.new(result)
       end
+      
       unless options.is_a? WIN32OLE
         reused = options[:reuse] && (not stored.nil?)
+        options = { :displayalerts => :if_visible, :visible => false}.merge(options) unless reused
+        result.visible = result.Visible
+        result.DisplayAlerts = result.DisplayAlerts
         visible_value = (reused && options[:visible].nil?) ? result.visible : options[:visible]
         displayalerts_value = (reused && options[:displayalerts].nil?) ? result.displayalerts : options[:displayalerts]
         ole_xl.Visible = visible_value
@@ -157,7 +155,7 @@ module RobustExcelOle
       close_excel(options) if managed_unsaved_workbooks(options)
     end
 
-    # closes all Excel instances
+    # closes Excel instances opened via RobustExcelOle
     # @param [Hash] options the options
     # @option options [Symbol]  :if_unsaved :raise, :save, :forget, or :alert
     # @option options [Boolean] :hard
@@ -170,8 +168,6 @@ module RobustExcelOle
     #                      :alert           -> give control to Excel
     #  :hard          closes Excel instances soft (default: false), or, additionally kills the Excel processes hard (true)
     #  :kill_if_timeout:  kills Excel instances hard if the closing process exceeds a certain time limit (default: false)
-    # @raise ExcelError if time limit has exceeded, some Excel instance cannot be closed, or
-    #                   unsaved workbooks exist and option :if_unsaved is :raise
     def self.close_all(options={})
       options = {
         :if_unsaved => :raise,
@@ -181,18 +177,25 @@ module RobustExcelOle
       timeout = false
       number = excels_number
       begin
-        status = Timeout::timeout(15) {
-          while (excels_number > 0) do
-            ole_xl = current_excel    
-            begin
-              (Excel.new(ole_xl).close(options); Excel.new(ole_xl).close(options)) if ole_xl  # two times necessary ?!
-            rescue RuntimeError => msg
-              raise msg unless msg.message =~ /failed to get Dispatch Interface/
-            end
+        status = Timeout::timeout(60) {
+          @@hwnd2excel.each do |hwnd, wr_excel|
+            excel = wr_excel.__getobj__
+            excel.close(options)
           end
+          sleep 0.2          
+          free_all_ole_objects if excels_number > 0
+          # close also interactively opened Excels, but for unsaved workbooks: hangs as soon sending a VBA method
+          #while (n = excels_number) > 0 do
+          #  ole_xl = current_excel    
+          #  begin
+          #    Excel.new(ole_xl).close(options) if ole_xl 
+          #  rescue RuntimeError => msg
+          #    raise msg unless msg.message =~ /failed to get Dispatch Interface/
+          #  end
+          #end
         }
       rescue Timeout::Error
-        raise ExcelError, "close_all: timeout" unless options[:kill_if_timeout]
+        raise TimeOut, "close_all: timeout" unless options[:kill_if_timeout]
         timeout = true
       end
       kill_all if options[:hard] || (timeout && options[:kill_if_timeout])
@@ -203,13 +206,9 @@ module RobustExcelOle
     def close_excel(options) # :nodoc:
       ole_xl = @ole_excel
       begin
-        if options[:if_unsaved] == :alert
-          with_displayalerts(true) {ole_xl.Workbooks.Close}
-        else
-          ole_xl.Workbooks.Close
-        end
+        with_displayalerts(options[:if_unsaved] == :alert) { ole_xl.Workbooks.Close }
       rescue WIN32OLERuntimeError => msg
-        raise ExcelUserCanceled, "close: canceled by user" if msg.message =~ /80020009/ && 
+        trace "close: canceled by user" if msg.message =~ /80020009/ && 
               options[:if_unsaved] == :alert && (not unsaved_workbooks.empty?)
       end     
       excel_hwnd = ole_xl.HWnd
@@ -245,12 +244,12 @@ module RobustExcelOle
         @ole_excel.Workbooks.each {|w| unsaved_workbooks << w unless (w.Saved || w.ReadOnly)}
       rescue RuntimeError => msg
         trace "RuntimeError: #{msg.message}" 
-        raise ExcelErrorOpen, "Excel instance not alive or damaged" if msg.message =~ /failed to get Dispatch Interface/
+        raise ExcelDamaged, "Excel instance not alive or damaged" if msg.message =~ /failed to get Dispatch Interface/
       end
       unless unsaved_workbooks.empty? 
         case options[:if_unsaved]
         when :raise
-          raise ExcelErrorClose, "Excel contains unsaved workbooks"
+          raise UnsavedWorkbooks, "Excel contains unsaved workbooks"
         when :save
           unsaved_workbooks.each do |workbook|
             workbook.Save
@@ -263,7 +262,7 @@ module RobustExcelOle
         when :keep_open
           return false
         else
-          raise ExcelErrorClose, ":if_unsaved: invalid option: #{options[:if_unsaved].inspect}"
+          raise OptionInvalid, ":if_unsaved: invalid option: #{options[:if_unsaved].inspect}"
         end
       end
       return true
@@ -318,7 +317,6 @@ module RobustExcelOle
       WIN32OLE.connect("winmgmts:\\\\.").InstancesOf("win32_process").select{|p| (p.name == "EXCEL.EXE")}.size
     end
 
-=begin
     # provide Excel objects 
     # (so far restricted to all Excel instances opened with RobustExcelOle,
     #  not for Excel instances opened by the user)
@@ -347,7 +345,6 @@ module RobustExcelOle
       end
       result
     end
-=end    
 
     def excel   # :nodoc: #
       self
@@ -413,7 +410,7 @@ module RobustExcelOle
         self.Workbooks.each {|w| result << w unless (w.Saved || w.ReadOnly)}
       rescue RuntimeError => msg
         trace "RuntimeError: #{msg.message}" 
-        raise ExcelErrorOpen, "Excel instance not alive or damaged" if msg.message =~ /failed to get Dispatch Interface/
+        raise ExcelDamaged, "Excel instance not alive or damaged" if msg.message =~ /failed to get Dispatch Interface/
       end
       result      
     end
@@ -432,10 +429,10 @@ module RobustExcelOle
           empty_workbook.SaveAs(filename) 
         rescue WIN32OLERuntimeError => msg
           if msg.message =~ /SaveAs/ and msg.message =~ /Workbook/ then
-            raise ExcelErrorSave, "could not save workbook with filename #{file_name.inspect}"
+            raise WIN32OLERuntimeError, "could not save workbook with filename #{file_name.inspect}"
           else
             # todo some time: find out when this occurs : 
-            raise ExcelErrorSaveUnknown, "unknown WIN32OELERuntimeError with filename #{file_name.inspect}: \n#{msg.message}"
+            raise UnexpectedError, "unknown WIN32OELERuntimeError with filename #{file_name.inspect}: \n#{msg.message}"
           end
         end      
       end
@@ -474,10 +471,16 @@ module RobustExcelOle
         end
       rescue RuntimeError => msg
         trace "RuntimeError: #{msg.message}" 
-        raise ExcelErrorOpen, "Excel instance not alive or damaged" if msg.message =~ /failed to get Dispatch Interface/
+        raise ExcelDamaged, "Excel instance not alive or damaged" if msg.message =~ /failed to get Dispatch Interface/
       end
     end
 
+
+    def foremost_window
+      self.visible = true
+      #Win32API.new("user32","SetForegroundWindow","I","I").call(@ole_excel.Hwnd)
+    end
+
     # sets calculation mode in a block
     def with_calculation(calculation_mode = :automatic)
       if @ole_excel.Workbooks.Count > 0
@@ -522,13 +525,12 @@ module RobustExcelOle
     # @param [String] name  the range name
     # @param [Hash]   opts  the options
     # @option opts [Variant] :default default value (default: nil)
-    # @raise ExcelError if name is not defined or if value of the range cannot be evaluated
     def nameval(name, opts = {:default => nil})
       begin
         name_obj = self.Names.Item(name)
       rescue WIN32OLERuntimeError
         return opts[:default] if opts[:default]
-        raise ExcelError, "cannot find name #{name.inspect}"
+        raise NameNotFound, "cannot find name #{name.inspect}"
       end
       begin
         value = name_obj.RefersToRange.Value
@@ -537,12 +539,12 @@ module RobustExcelOle
           value = self.Evaluate(name_obj.Name)
         rescue WIN32OLERuntimeError
           return opts[:default] if opts[:default]
-          raise ExcelError, "cannot evaluate name #{name.inspect}"
+          raise RangeNotEvaluatable, "cannot evaluate range named #{name.inspect}"
         end
       end
       if value == -2146826259
         return opts[:default] if opts[:default]
-        raise ExcelError, "cannot evaluate name #{name.inspect}"
+        raise RangeNotEvaluatable, "cannot evaluate range named #{name.inspect}"
       end 
       return opts[:default] if (value.nil? && opts[:default])
       value      
@@ -551,17 +553,16 @@ module RobustExcelOle
     # assigns a value to a range with given name
     # @param [String]  name   the range name
     # @param [Variant] value  the assigned value
-    # @raise ExcelError if name is not in the sheet or the value cannot be assigned
     def set_nameval(name,value)
       begin
         name_obj = self.Names.Item(name)
       rescue WIN32OLERuntimeError
-        raise ExcelError, "cannot find name #{name.inspect}"
+        raise NameNotFound, "cannot find name #{name.inspect}"
       end
       begin
         name_obj.RefersToRange.Value = value
       rescue  WIN32OLERuntimeError
-        raise ExcelError, "cannot assign value to range named #{name.inspect}"
+        raise RangeNotEvaluatable, "cannot assign value to range named #{name.inspect}"
       end
     end    
 
@@ -571,20 +572,19 @@ module RobustExcelOle
     # @param  [String]      name      the range name
     # @param  [Hash]        opts      the options
     # @option opts [Symbol] :default  the default value that is provided if no contents could be returned
-    # @raise  ExcelError if range name is not definied in the worksheet or if range value could not be evaluated
     # @return [Variant] the contents of a range with given name   
     def rangeval(name, opts = {:default => nil})
       begin
         range = self.Range(name)
       rescue WIN32OLERuntimeError
         return opts[:default] if opts[:default]
-        raise ExcelError, "cannot find name #{name.inspect}"
+        raise NameNotFound, "cannot find name #{name.inspect}"
       end
       begin
         value = range.Value
       rescue  WIN32OLERuntimeError
         return opts[:default] if opts[:default]
-        raise ExcelError, "cannot determine value of range named #{name.inspect}"
+        raise RangeNotEvaluatable, "cannot determine value of range named #{name.inspect}"
       end
       return opts[:default] if (value.nil? && opts[:default])
       value
@@ -593,17 +593,16 @@ module RobustExcelOle
     # assigns a value to a range given a defined loval name
     # @param [String]  name   the range name
     # @param [Variant] value  the assigned value
-    # @raise ExcelError if name is not in the sheet or the value cannot be assigned
     def set_rangeval(name,value)
       begin
         range = self.Range(name)
       rescue WIN32OLERuntimeError
-        raise ExcelError, "cannot find name #{name.inspect}"
+        raise NameNotFound, "cannot find name #{name.inspect}"
       end
       begin
         range.Value = value
       rescue  WIN32OLERuntimeError
-        raise ExcelError, "cannot assign value to range named #{name.inspect} in #{self.name}"
+        raise RangeNotEvaluatable, "cannot assign value to range named #{name.inspect} in #{self.name}"
       end
     end
 
@@ -635,7 +634,7 @@ module RobustExcelOle
     def method_missing(name, *args)    # :nodoc: #
       if name.to_s[0,1] =~ /[A-Z]/ 
         begin          
-          raise ExcelError, "method missing: Excel not alive" unless alive?
+          raise ObjectNotAlive, "method missing: Excel not alive" unless alive?
           @ole_excel.send(name, *args)
         rescue WIN32OLERuntimeError => msg
           if msg.message =~ /unknown property or method/

data/lib/robust_excel_ole/general.rb

@@ -9,7 +9,7 @@ module General
   end
 
   def canonize(filename)    # :nodoc: #
-    raise ExcelError, "No string given to canonize, but #{filename.inspect}" unless filename.is_a?(String)  
+    raise TypeErrorREO, "No string given to canonize, but #{filename.inspect}" unless filename.is_a?(String)  
     normalize(filename).downcase
   end
 
@@ -42,7 +42,7 @@ class ::String    # :nodoc: #
         begin 
           File.join self, path_part
         rescue TypeError
-          raise "Only strings can be parts of paths (given: #{path_part.inspect} of class #{path_part.class})"
+          raise TypeError, "Only strings can be parts of paths (given: #{path_part.inspect} of class #{path_part.class})"
         end
       end
     end
@@ -108,7 +108,7 @@ end
 module MethodHelpers
 
   def respond_to?(meth_name, include_private = false)  # :nodoc: #    
-    raise ExcelError, "respond_to?: #{self.class.name} not alive" unless alive?
+    raise ObjectNotAlive, "respond_to?: #{self.class.name} not alive" unless alive?
     super
   end
 

data/lib/robust_excel_ole/reo_common.rb

@@ -7,7 +7,7 @@ File.delete REO_LOG_FILE rescue nil
 class REOCommon
 
   def excel
-    raise ExcelError, "receiver instance is neither an Excel nor a Book"
+    raise TypeErrorREO, "receiver instance is neither an Excel nor a Book"
   end
 
   def own_methods
@@ -39,3 +39,80 @@ class REOCommon
     end
   end
 end
+
+module RobustExcelOle
+
+  class REOError < RuntimeError                 # :nodoc: #
+  end                 
+
+  class ExcelError < REOError                   # :nodoc: #
+  end
+
+  class WorkbookError < REOError                # :nodoc: #
+  end
+
+  class FileError < REOError                    # :nodoc: #
+  end
+
+  class NamesError < REOError                   # :nodoc: #
+  end
+
+  class MiscError < REOError                    # :nodoc: #
+  end
+
+  class ExcelDamaged < ExcelError               # :nodoc: #
+  end
+
+  class ExcelWeakRef < ExcelError                # :nodoc: #
+  end
+
+  class UnsavedWorkbooks < ExcelError           # :nodoc: #
+  end
+
+  class WorkbookBlocked < WorkbookError         # :nodoc: #
+  end
+
+  class WorkbookNotSaved < WorkbookError        # :nodoc: #
+  end
+
+  class WorkbookReadOnly < WorkbookError        # :nodoc: #
+  end
+
+  class WorkbookBeingUsed < WorkbookError       # :nodoc: #
+  end
+
+  class FileNotFound < FileError                # :nodoc: #
+  end
+
+  class FileNameNotGiven < FileError            # :nodoc: #
+  end
+
+  class FileAlreadyExists < FileError           # :nodoc: #
+  end
+
+  class NameNotFound < NamesError               # :nodoc: #
+  end
+
+  class NameAlreadyExists < NamesError          # :nodoc: #
+  end
+
+  class RangeNotEvaluatable < MiscError         # :nodoc: #
+  end
+
+  class OptionInvalid < MiscError               # :nodoc: #
+  end
+
+  class ObjectNotAlive < MiscError              # :nodoc: #
+  end
+
+  class TypeErrorREO < REOError                 # :nodoc: #
+  end   
+
+  class TimeOut < REOError                      # :nodoc: #
+  end  
+
+  class UnexpectedError < REOError              # :nodoc: #
+  end
+
+end
+

data/lib/robust_excel_ole/sheet.rb

@@ -34,10 +34,10 @@ module RobustExcelOle
         @worksheet.Name = new_name
       rescue WIN32OLERuntimeError => msg
         if msg.message =~ /800A03EC/ 
-          raise ExcelErrorSheet, "sheet name #{new_name.inspect} already exists"
+          raise NameAlreadyExists, "sheet name #{new_name.inspect} already exists"
         else
           trace "#{msg.message}"
-          raise ExcelErrorSheetUnknown
+          raise UnexpectedError
         end
       end
     end
@@ -54,10 +54,10 @@ module RobustExcelOle
         name = p1
         begin
           nameval(name) 
-        rescue SheetError
+        rescue REOError
           begin
             book_class.new(self.Parent).nameval(name)
-          rescue ExcelError
+          rescue REOError
             rangeval(name)
           end
         end
@@ -74,10 +74,10 @@ module RobustExcelOle
         name, value = p1, p2
         begin
           set_nameval(name, value) 
-        rescue SheetError
+        rescue REOError
           begin
             workbook.set_nameval(name, value)
-          rescue ExcelError
+          rescue REOError
             set_rangeval(name, value)
           end
         end
@@ -136,13 +136,12 @@ module RobustExcelOle
     # @param [String] name  the name of a range
     # @param [Hash]   opts  the options
     # @option opts [Variant] :default default value (default: nil)
-    # @raise SheetError if name is not defined or if value of the range cannot be evaluated  
     def nameval(name, opts = {:default => nil})
       begin
         name_obj = self.Names.Item(name)
       rescue WIN32OLERuntimeError
         return opts[:default] if opts[:default]
-        raise SheetError, "name #{name.inspect} not in #{self.Name}"
+        raise NameNotFound, "name #{name.inspect} not in #{self.Name}"
       end
       begin
         value = name_obj.RefersToRange.Value
@@ -151,12 +150,12 @@ module RobustExcelOle
           value = self.Evaluate(name_obj.Name)
         rescue WIN32OLERuntimeError
           return opts[:default] if opts[:default]
-          raise SheetError, "cannot evaluate name #{name.inspect} in #{self.Name}"
+          raise RangeNotEvaluatable, "cannot evaluate range named #{name.inspect} in #{self.Name}"
         end
       end
       if value == RobustExcelOle::XlErrName  # -2146826259
         return opts[:default] if opts[:default]
-        raise SheetError, "cannot evaluate name #{name.inspect} in #{self.Name}"
+        raise RangeNotEvaluatable, "cannot evaluate range named #{name.inspect} in #{self.Name}"
       end 
       return opts[:default] if (value.nil? && opts[:default])
       value      
@@ -165,17 +164,16 @@ module RobustExcelOle
     # assigns a value to a range
     # @param [String]  name   the name of a range
     # @param [Variant] value  the assigned value
-    # @raise SheetError if name is not in the sheet or the value cannot be assigned
     def set_nameval(name,value)
       begin
         name_obj = self.Names.Item(name)
       rescue WIN32OLERuntimeError
-        raise SheetError, "name #{name.inspect} not in #{self.name}"
+        raise NameNotFound, "name #{name.inspect} not in #{self.name}"
       end
       begin
         name_obj.RefersToRange.Value = value
       rescue  WIN32OLERuntimeError
-        raise SheetError, "cannot assign value to range named #{name.inspect} in #{self.name}"
+        raise RangeNotEvaluatable, "cannot assign value to range named #{name.inspect} in #{self.name}"
       end
     end
 
@@ -185,20 +183,19 @@ module RobustExcelOle
     # @param  [String]      name      the name of a range
     # @param  [Hash]        opts      the options
     # @option opts [Symbol] :default  the default value that is provided if no contents could be returned
-    # @raise  SheetError if range name is not definied in the worksheet or if range value could not be evaluated
     # @return [Variant] the contents of a range with given name   
     def rangeval(name, opts = {:default => nil})
       begin
         range = self.Range(name)
       rescue WIN32OLERuntimeError
         return opts[:default] if opts[:default]
-        raise SheetError, "name #{name.inspect} not in #{self.name}"
+        raise NameNotFound, "name #{name.inspect} not in #{self.name}"
       end
       begin
         value = range.Value
       rescue  WIN32OLERuntimeError
         return opts[:default] if opts[:default]
-        raise SheetError, "cannot determine value of range named #{name.inspect} in #{self.name}"
+        raise RangeNotEvaluatable, "cannot determine value of range named #{name.inspect} in #{self.name}"
       end
       return opts[:default] if (value.nil? && opts[:default])
       value
@@ -207,17 +204,16 @@ module RobustExcelOle
     # assigns a value to a range given a defined local name
     # @param [String]  name   the name of a range
     # @param [Variant] value  the assigned value
-    # @raise SheetError if name is not in the sheet or the value cannot be assigned
     def set_rangeval(name,value)
       begin
         range = self.Range(name)
       rescue WIN32OLERuntimeError
-        raise SheetError, "name #{name.inspect} not in #{self.name}"
+        raise NameNotFound, "name #{name.inspect} not in #{self.name}"
       end
       begin
         range.Value = value
       rescue  WIN32OLERuntimeError
-        raise SheetError, "cannot assign value to range named #{name.inspect} in #{self.name}"
+        raise RangeNotEvaluatable, "cannot assign value to range named #{name.inspect} in #{self.name}"
       end
     end
     
@@ -236,7 +232,7 @@ module RobustExcelOle
         end
       rescue WIN32OLERuntimeError => msg
         trace "WIN32OLERuntimeError: #{msg.message}"
-        raise SheetError, "cannot add name #{name.inspect} to cell with row #{row.inspect} and column #{column.inspect}"
+        raise RangeNotEvaluatable, "cannot add name #{name.inspect} to cell with row #{row.inspect} and column #{column.inspect}"
       end
     end
 
@@ -297,7 +293,4 @@ module RobustExcelOle
 
   public
   
-  class SheetError < RuntimeError    # :nodoc: #
-  end
-
 end

data/lib/robust_excel_ole/version.rb

@@ -1,3 +1,3 @@
 module RobustExcelOle
-  VERSION = "0.6"
+  VERSION = "0.6.1"
 end

data/spec/book_spec.rb

@@ -277,7 +277,7 @@ describe Book do
       it "should raise an error, if :if_unsaved is :raise" do
         expect {
           @new_book = Book.open(@simple_file, :if_unsaved => :raise)
-        }.to raise_error(ExcelErrorOpen, /workbook is already open but not saved: "workbook.xls"/)
+        }.to raise_error(WorkbookNotSaved, /workbook is already open but not saved: "workbook.xls"/)
       end
 
       it "should let the book open, if :if_unsaved is :accept" do
@@ -316,7 +316,7 @@ describe Book do
           @key_sender.puts "{right}{enter}"
           expect{
             Book.open(@simple_file, :if_unsaved => :alert)
-            }.to raise_error(ExcelErrorOpen, "open: user canceled or open error")
+            }.to raise_error(WorkbookError, "open: user canceled or open error")
           @book.should be_alive
         end
 
@@ -338,7 +338,7 @@ describe Book do
           @key_sender.puts "{right}{enter}"
           expect{
             Book.open(@simple_file, :if_unsaved => :excel)
-            }.to raise_error(ExcelErrorOpen, "open: user canceled or open error")
+            }.to raise_error(WorkbookError, "open: user canceled or open error")
           @book.should be_alive
         end
 
@@ -381,7 +381,7 @@ describe Book do
               if :if_obstructed is :close_if_saved" do
             expect{
               @new_book = Book.open(@simple_file1, :if_obstructed => :close_if_saved)
-            }.to raise_error(ExcelErrorOpen, /workbook with the same name in a different path is unsaved/)
+            }.to raise_error(WorkbookNotSaved, /workbook with the same name in a different path is unsaved/)
             @book.save
             @new_book = Book.open(@simple_file1, :if_obstructed => :close_if_saved)
             @book.should_not be_alive
@@ -409,7 +409,7 @@ describe Book do
         File.delete @simple_save_file rescue nil
         expect {
           Book.open(@simple_save_file)
-        }.to raise_error(ExcelErrorOpen, /file "#{@simple_save_file}" not found/)
+        }.to raise_error(NameNotFound, /file "#{@simple_save_file}" not found/)
       end
     end
 
@@ -569,7 +569,7 @@ describe Book do
         begin
           @excel1.close
           @excel2.close 
-        rescue ExcelErrorOpen => msg
+        rescue ExcelError => msg
           puts "ExcelError: #{msg.message}" if msg.message =~ /Excel instance not alive or damaged/
         end
       end
@@ -1025,7 +1025,7 @@ describe Book do
       it "should raise error by default" do
         expect{
           @book.close(:if_unsaved => :raise)
-        }.to raise_error(ExcelErrorClose, /workbook is unsaved: "workbook.xls"/)
+        }.to raise_error(WorkbookNotSaved, /workbook is unsaved: "workbook.xls"/)
       end
 
       it "should save the book before close with option :save" do

data/spec/book_specs/book_close_spec.rb

@@ -82,13 +82,13 @@ describe Book do
       it "should raise error with option :raise" do
         expect{
           @book.close(:if_unsaved => :raise)
-        }.to raise_error(ExcelErrorClose, /workbook is unsaved: "workbook.xls"/)
+        }.to raise_error(WorkbookNotSaved, /workbook is unsaved: "workbook.xls"/)
       end
 
       it "should raise error by default" do
         expect{
           @book.close(:if_unsaved => :raise)
-        }.to raise_error(ExcelErrorClose, /workbook is unsaved: "workbook.xls"/)
+        }.to raise_error(WorkbookNotSaved, /workbook is unsaved: "workbook.xls"/)
       end
 
       it "should keep the book open" do
@@ -118,10 +118,29 @@ describe Book do
         end
       end
 
+      it "should close the book and leave its file untouched with option :forget even with displayalerts true" do
+        ole_workbook = @book.ole_workbook
+        excel = @book.excel
+        excel.displayalerts = true
+        excel.Workbooks.Count.should == 1
+        @book.close(:if_unsaved => :forget)
+        excel.Workbooks.Count.should == 0
+        @book.ole_workbook.should == nil
+        @book.should_not be_alive
+        expect{
+          ole_workbook.Name}.to raise_error(WIN32OLERuntimeError)
+        new_book = Book.open(@simple_file1)
+        begin
+          new_book.ole_workbook.Worksheets.Count.should ==  @sheet_count
+        ensure
+          new_book.close
+        end
+      end
+
       it "should raise an error for invalid option" do
         expect {
           @book.close(:if_unsaved => :invalid_option)
-        }.to raise_error(ExcelErrorClose, ":if_unsaved: invalid option: :invalid_option") 
+        }.to raise_error(OptionInvalid, ":if_unsaved: invalid option: :invalid_option") 
       end
 
 
@@ -163,7 +182,7 @@ describe Book do
             if answer == :cancel then
               expect {
               @book.close(:if_unsaved => :alert)
-              }.to raise_error(ExcelUserCanceled, "close: canceled by user")
+              }.to_not raise_error
               @book.ole_workbook.Saved.should be_false
               @book.ole_workbook.should_not == nil
               @book.should be_alive
@@ -206,7 +225,7 @@ describe Book do
             if answer == :cancel then
               expect {
               @book.close(:if_unsaved => :excel)
-              }.to raise_error(ExcelUserCanceled, "close: canceled by user")
+              }.to_not raise_error
               @book.ole_workbook.Saved.should be_false
               @book.ole_workbook.should_not == nil
               @book.should be_alive