robust_excel_ole 1.15 → 1.18.2

data/lib/robust_excel_ole/cell.rb

@@ -1,11 +1,15 @@
 # -*- coding: utf-8 -*-
 
+require File.join(File.dirname(__FILE__), './range')
+
 module RobustExcelOle
-  class Cell < REOCommon
-    attr_reader :cell
 
-    def initialize(win32_cell)
-      @cell = win32_cell.MergeCells ? win32_cell.MergeArea.Item(1,1) : win32_cell
+  class Cell < Range
+    #attr_reader :ole_cell    
+
+    def initialize(win32_cell, worksheet)      
+      super
+      ole_cell
     end
 
     def v
@@ -16,25 +20,33 @@ module RobustExcelOle
       self.Value = value
     end
 
+    def ole_cell
+      @ole_range = @ole_range.MergeArea.Item(1,1) if @ole_range.MergeCells
+    end
+
+  private
+
     # @private
     def method_missing(name, *args) 
-      #if name.to_s[0,1] =~ /[A-Z]/
-      if ::JRUBY_BUG_ERRORMESSAGE
-        begin
-          @cell.send(name, *args)
-        rescue Java::OrgRacobCom::ComFailException 
-          raise VBAMethodMissingError, "unknown VBA property or method #{name.inspect}"
+      if name.to_s[0,1] =~ /[A-Z]/
+        if ::ERRORMESSAGE_JRUBY_BUG
+          begin
+            #@ole_cell.send(name, *args)
+            @ole_range.send(name, *args)
+          rescue Java::OrgRacobCom::ComFailException 
+            raise VBAMethodMissingError, "unknown VBA property or method #{name.inspect}"
+          end
+        else
+          begin
+            #@ole_cell.send(name, *args)
+            @ole_range.send(name, *args)
+          rescue NoMethodError 
+            raise VBAMethodMissingError, "unknown VBA property or method #{name.inspect}"
+          end
         end
       else
-        begin
-          @cell.send(name, *args)
-        rescue NoMethodError 
-          raise VBAMethodMissingError, "unknown VBA property or method #{name.inspect}"
-        end
+        super
       end
-     # else
-     #   super
-     # end
     end
   end
 end

data/lib/robust_excel_ole/excel.rb

@@ -3,8 +3,6 @@
 require 'weakref'
 require 'Win32API'
 
-
-
 def ka
   Excel.kill_all
 end
@@ -16,9 +14,10 @@ module RobustExcelOle
   # that you would apply for an Application object. 
   # See https://docs.microsoft.com/en-us/office/vba/api/excel.application(object)#methods
 
-  class Excel < RangeOwners
-    attr_accessor :ole_excel
+  class Excel < VbaObjects
+    attr_reader :ole_excel
     attr_reader :properties
+    attr_reader :address_tool
 
     alias ole_object ole_excel
 
@@ -111,10 +110,8 @@ module RobustExcelOle
     # @return [Excel] an Excel instance
     def recreate(opts = {})
       unless alive?
-        opts = {
-          :visible => @properties[:visible] || false,
-          :displayalerts => @properties[:displayalerts] || :if_visible
-        }.merge(opts)
+        opts = {:visible => false, :displayalerts => :if_visible}.merge(
+               {:visible => @properties[:visible], :displayalerts => @properties[:displayalerts]}).merge(opts)        
         @ole_excel = WIN32OLE.new('Excel.Application')
         set_options(opts)
         if opts[:reopen_workbooks]
@@ -127,10 +124,18 @@ module RobustExcelOle
       self
     end
 
+    # @private
+    def address_tool
+      raise(ExcelREOError, "Excel contains no workbook") unless @ole_excel.Workbooks.Count > 0
+      @address_tool ||= begin
+        address_string = @ole_excel.Workbooks.Item(1).Worksheets.Item(1).Cells.Item(1,1).Address(true,true,XlR1C1)
+        address_tool_class.new(address_string)
+      end
+    end
+
   private
 
     # retain the saved status of all workbooks
-    # @private
     def retain_saved_workbooks
       saved_stati = @ole_excel.Workbooks.map { |w| w.Saved }
       begin
@@ -140,7 +145,6 @@ module RobustExcelOle
       end
     end
 
-    # @private
     def ole_workbooks
       ole_workbooks = begin
         @ole_excel.Workbooks
@@ -155,11 +159,13 @@ module RobustExcelOle
 
   public
 
+    # @private
     def self.contains_unsaved_workbooks?
       !Excel.current.unsaved_workbooks.empty?
     end
 
     # returns unsaved workbooks (win32ole objects)
+    # @private
     def unsaved_workbooks
       unsaved_workbooks = []
       begin
@@ -177,6 +183,7 @@ module RobustExcelOle
     #                      :forget          -> closes the Excel instance without saving the workbooks
     #                      :save            -> saves the workbooks before closing
     #                      :alert           -> let Excel do it
+    # @private
     def close_workbooks(options = { :if_unsaved => :raise })
       return unless alive?
 
@@ -384,14 +391,13 @@ module RobustExcelOle
       @@hwnd2excel.size
     end
 
-  #private
+  private
 
     # returns a Win32OLE object that represents a Excel instance to which Excel connects
     # connects to the first opened Excel instance
     # if this Excel instance is being closed, then Excel creates a new Excel instance
-    # @private
     def self.current_ole_excel   
-      if ::JRUBY_BUG_CONNECT
+      if ::CONNECT_EXCEL_JRUBY_BUG
         result = known_excel_instance
         if result.nil?
           if excels_number > 0
@@ -432,6 +438,25 @@ module RobustExcelOle
       nil
     end
 
+    def self.hwnd2excel(hwnd)
+      excel_weakref = @@hwnd2excel[hwnd]
+      if excel_weakref
+        if excel_weakref.weakref_alive?
+          excel_weakref.__getobj__
+        else
+          trace 'dead reference to an Excel'
+          begin
+            @@hwnd2excel.delete(hwnd)
+            nil
+          rescue
+            trace "Warning: deleting dead reference failed! (hwnd: #{hwnd.inspect})"
+          end
+        end
+      end
+    end
+
+  public
+
     # returns all Excel objects for all Excel instances opened with RobustExcelOle
     def self.known_excel_instances
       pid2excel = {}
@@ -466,24 +491,6 @@ module RobustExcelOle
       self
     end
 
-    # @private
-    def self.hwnd2excel(hwnd)
-      excel_weakref = @@hwnd2excel[hwnd]
-      if excel_weakref
-        if excel_weakref.weakref_alive?
-          excel_weakref.__getobj__
-        else
-          trace 'dead reference to an Excel'
-          begin
-            @@hwnd2excel.delete(hwnd)
-            nil
-          rescue
-            trace "Warning: deleting dead reference failed! (hwnd: #{hwnd.inspect})"
-          end
-        end
-      end
-    end
-
     # @private
     def hwnd 
       self.Hwnd
@@ -694,18 +701,16 @@ module RobustExcelOle
     # @param [String]  name  the name of the range
     # @param [Variant] value the contents of the range
     def []=(name, value)
-      old_color_if_modified = workbook.color_if_modified
-      workbook.color_if_modified = 42  unless workbook.nil? # aqua-marin
-      set_namevalue_glob(name,value)
-      workbook.color_if_modified = old_color_if_modified
+      set_namevalue_glob(name, value, :color => 42)
     end
 
     # @private
     # returns active workbook
     def workbook
-      return @workbook unless @workbook.nil?
-      @workbook = workbook_class.new(@ole_excel.ActiveWorkbook)
-    end
+      @workbook ||= workbook_class.new(@ole_excel.ActiveWorkbook) if @ole_excel.Workbooks.Count > 0
+    end    
+
+    alias_method :active_workbook, :workbook
 
     # @private
     def to_s            
@@ -732,15 +737,30 @@ module RobustExcelOle
       self.class.workbook_class
     end
 
+    # @private
+    def self.address_tool_class  
+      @address_tool_class ||= begin
+        module_name = parent_name
+        "#{module_name}::AddressTool".constantize
+      rescue NameError => e
+        AddressTool
+      end
+    end
+
+    # @private
+    def address_tool_class       
+      self.class.address_tool_class
+    end
+
+
     include MethodHelpers
 
   private
 
-    # @private
     def method_missing(name, *args) 
       if name.to_s[0,1] =~ /[A-Z]/
         raise ObjectNotAlive, 'method missing: Excel not alive' unless alive?
-        if ::JRUBY_BUG_ERRORMESSAGE
+        if ::ERRORMESSAGE_JRUBY_BUG
           begin
             @ole_excel.send(name, *args)
           rescue Java::OrgRacobCom::ComFailException => msg
@@ -759,7 +779,16 @@ module RobustExcelOle
     end
   end
 
-  public
+public
+
+  # @private
+  class ExcelDamaged < ExcelREOError               
+  end
+
+  # @private
+  class UnsavedWorkbooks < ExcelREOError           
+  end
+
 
   Application = Excel
 
@@ -768,3 +797,4 @@ end
 class WIN32OLE
   include Enumerable
 end
+

data/lib/robust_excel_ole/general.rb

@@ -3,24 +3,47 @@
 module General
 
   IS_JRUBY_PLATFORM = (RUBY_PLATFORM =~ /java/)
-  ::JRUBY_BUG_CONNECT      = IS_JRUBY_PLATFORM && true
-  ::JRUBY_BUG_COPYSHEETS   = IS_JRUBY_PLATFORM && true
-  ::JRUBY_BUG_ERRORMESSAGE = IS_JRUBY_PLATFORM && true
-  ::JRUBY_BUG_CONNECTEXCEL = IS_JRUBY_PLATFORM && true
-  ::JRUBY_BUG_RANGES       = IS_JRUBY_PLATFORM && true
-
+  ::EXPANDPATH_JRUBY_BUG   = IS_JRUBY_PLATFORM && true
+  ::CONNECT_JRUBY_BUG      = IS_JRUBY_PLATFORM && true
+  ::COPYSHEETS_JRUBY_BUG   = IS_JRUBY_PLATFORM && true
+  ::ERRORMESSAGE_JRUBY_BUG = IS_JRUBY_PLATFORM && true
+  ::CONNECT_EXCEL_JRUBY_BUG      = IS_JRUBY_PLATFORM && true
+  ::RANGES_JRUBY_BUG       = IS_JRUBY_PLATFORM && true
+
+  @private
+  def network2hostnamesharepath(filename)
+    network = WIN32OLE.new('WScript.Network')
+    drives = network.enumnetworkdrives
+    drive_letter, filename_after_drive_letter = filename.split(':') 
+    # if filename starts with a drive letter not c and this drive exists,
+    # then determine the corresponding host_share_path
+    default_drive = File.absolute_path(".")[0]
+    if drive_letter != default_drive && drive_letter != filename  
+      for i in 0 .. drives.Count-1
+        next if i % 2 == 1
+        if drives.Item(i).gsub(':','') == drive_letter
+          hostname_share = drives.Item(i+1)  #.gsub('\\','/').gsub('//','')
+          break
+        end
+      end
+      hostname_share + filename_after_drive_letter if hostname_share
+    else
+      return filename
+    end
+  end
 
   # @private
-  def absolute_path(file) 
+  def absolute_path(file)     
+    file[0,2] = './' if ::EXPANDPATH_JRUBY_BUG && file  =~ /[A-Z]:[^\/]/
     file = File.expand_path(file)
     file = RobustExcelOle::Cygwin.cygpath('-w', file) if RUBY_PLATFORM =~ /cygwin/
     WIN32OLE.new('Scripting.FileSystemObject').GetAbsolutePathName(file).tr('/','\\')
   end
 
   # @private
-  def canonize(filename)   
+  def canonize(filename)
     raise TypeREOError, "No string given to canonize, but #{filename.inspect}" unless filename.is_a?(String)
-
+    filename = network2hostnamesharepath(filename)
     normalize(filename).downcase
   end
 
@@ -72,26 +95,28 @@ end
 
 # @private
 class WIN32OLE
-
-  include RobustExcelOle
   
   # type-lifting WIN32OLE objects to RobustExcelOle objects
   def to_reo
-    class2method = [{Excel => :Hwnd}, {Workbook => :FullName}, {Worksheet => :Copy}, {Range => :Address}]
+    class2method = [{Excel => :Hwnd}, {Workbook => :FullName}, {Worksheet => :Copy}, {RobustExcelOle::Range => :Row}]
     class2method.each do |element|
       classname = element.first.first
       method = element.first.last
       begin
         self.send(method)
-        return classname.new(self)
+        if classname == RobustExcelOle::Range && self.Rows.Count == 1 && self.Columns.Count == 1
+          return Cell.new(self)
+        else
+          return classname.new(self)
+        end
       rescue
         next
       end
     end
+    raise TypeREOError, "given object cannot be type-lifted to a RobustExcelOle object"
   end
 end
 
-
 # @private
 class ::String 
   def / path_part

data/lib/robust_excel_ole/range.rb

@@ -1,4 +1,5 @@
 # -*- coding: utf-8 -*-
+
 module RobustExcelOle
 
   # This class essentially wraps a Win32Ole Range object. 
@@ -6,28 +7,44 @@ module RobustExcelOle
   # that you would apply for a Range object. 
   # See https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet#methods
 
-  class Range < REOCommon
+  class Range < VbaObjects
     include Enumerable
     attr_reader :ole_range
     attr_reader :worksheet
 
-    def initialize(win32_range)
+    def initialize(win32_range, worksheet = nil)
       @ole_range = win32_range
-      @worksheet = worksheet_class.new(self.Parent)
+      @worksheet = worksheet ? worksheet : worksheet_class.new(self.Parent)
+      #@worksheet = worksheet_class.new(self.Parent)
     end
 
     def each
-      @ole_range.each do |row_or_column|
-        yield RobustExcelOle::Cell.new(row_or_column)
+      @ole_range.each_with_index do |ole_cell, index|
+        yield cell(index){ole_cell}
       end
     end
 
+    def [] index
+      cell(index) {
+        @ole_range.Cells.Item(index + 1)
+      }
+    end
+
+  private
+
+    def cell(index)
+      @cells ||= []
+      @cells[index + 1] ||= RobustExcelOle::Cell.new(yield,@worksheet)
+    end
+
+  public
+
     # returns flat array of the values of a given range
     # @params [Range] a range
     # @returns [Array] the values
     def values(range = nil)
       #result = map { |x| x.Value }.flatten
-      result_unflatten = if !::JRUBY_BUG_RANGES
+      result_unflatten = if !::RANGES_JRUBY_BUG
         map { |x| x.v }
       else
         self.v
@@ -44,11 +61,11 @@ module RobustExcelOle
 
     def v
       begin
-        if !::JRUBY_BUG_RANGES
+        if !::RANGES_JRUBY_BUG
           self.Value
         else
           address_r1c1 = self.AddressLocal(true,true,XlR1C1)
-          row, col = Address.int_range(address_r1c1)
+          row, col = address_tool.as_integer_ranges(address_r1c1)
           values = []
           row.each do |r|
             values_col = []
@@ -65,11 +82,11 @@ module RobustExcelOle
 
     def v=(value)
       begin
-        if !::JRUBY_BUG_RANGES
+        if !::RANGES_JRUBY_BUG
           ole_range.Value = value
         else
           address_r1c1 = ole_range.AddressLocal(true,true,XlR1C1)
-          row, col = Address.int_range(address_r1c1)
+          row, col = address_tool.as_integer_ranges(address_r1c1)
           row.each_with_index do |r,i|
             col.each_with_index do |c,j|
               ole_range.Cells(i+1,j+1).Value = (value.respond_to?(:first) ? value[i][j] : value)
@@ -82,10 +99,8 @@ module RobustExcelOle
       end
     end
 
-    def [] index
-      @cells = []
-      @cells[index + 1] = RobustExcelOle::Cell.new(@ole_range.Cells.Item(index + 1))
-    end
+    alias_method :value, :v
+    alias_method :value=, :v=
 
     # copies a range
     # @params [Address or Address-Array] address or upper left position of the destination range
@@ -115,8 +130,7 @@ module RobustExcelOle
           { }
         end
       end
-      rows, columns = Address.int_range(dest_address)
-      #dest_sheet = @worksheet if dest_sheet == :__not_provided
+      rows, columns = address_tool.as_integer_ranges(dest_address)
       dest_address_is_position = (rows.min == rows.max && columns.min == columns.max)
       dest_range_address = if (not dest_address_is_position) 
           [rows.min..rows.max,columns.min..columns.max]
@@ -168,7 +182,7 @@ module RobustExcelOle
     # @options [Worksheet] the destination worksheet
     # @options [Hash] options: :transpose, :values_only
     def copy_special(dest_address, dest_sheet = :__not_provided, options = { })
-      rows, columns = Address.int_range(dest_address)
+      rows, columns = address_tool.as_integer_ranges(dest_address)
       dest_sheet = @worksheet if dest_sheet == :__not_provided
       dest_address_is_position = (rows.min == rows.max && columns.min == columns.max)
       dest_range_address = if (not dest_address_is_position) 
@@ -220,6 +234,11 @@ module RobustExcelOle
         self.Address == other_range.Address 
     end
 
+    # @private
+    def excel
+      @worksheet.workbook.excel
+    end
+
     # @private
     def self.worksheet_class   
       @worksheet_class ||= begin
@@ -237,10 +256,9 @@ module RobustExcelOle
 
   private
 
-    # @private
     def method_missing(name, *args) 
       if name.to_s[0,1] =~ /[A-Z]/
-        if ::JRUBY_BUG_ERRORMESSAGE
+        if ::ERRORMESSAGE_JRUBY_BUG
           begin
             @ole_range.send(name, *args)
           rescue Java::OrgRacobCom::ComFailException 
@@ -258,4 +276,9 @@ module RobustExcelOle
       end
     end
   end
+
+  # @private
+  class RangeNotCopied < MiscREOError              
+  end
+
 end