robust_excel_ole 1.5 → 1.6

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 1d86cf14a83a7f64c9c81e1a5473a13e66ac8be2
-  data.tar.gz: d7f78aba06eac6432722f36b4d753ed1b1cc94a7
+  metadata.gz: ba0c2ac25839e255753b710f0cf2d976742783f4
+  data.tar.gz: 21ed0ca20bf5ed9adce93c1c5530112be0ce4572
 SHA512:
-  metadata.gz: 5c97c2fe5da0196f6021ad6a4bf1f62b1a1b7b1dd7c35df1699fd6f61894b5f1394ef8950cc2f1588775188a2909afe341400d1b7574c461b6990abb06c9ed4d
-  data.tar.gz: e639929ed6031c0c4e041350a95d5b95aca527b956a917b4cad5ee578d301925599927d4c532dd80958a5306dce543fd4b27dbd2a0a6e36280484a3bd43ab23b
+  metadata.gz: eef30c124f4f9f6512617081f9c26bf8b6e82125bd9b6409d11aed50b96d5aa65c9a443c67233cc095f6062bfc53f6a709eb5b55f1c2b4c38a5e1e4408fe8a43
+  data.tar.gz: 533ce4e2e78f7a3ddcb248f998b0fa78e632bf29cbfb56c552c075f0dcd48797454be4c3a89b8f2d0eb48229718e14fa5532e4187f8121815215a80786862448

data/.rubocop.yml

@@ -0,0 +1,74 @@
+AllCops:
+  TargetRubyVersion: 2.2
+  RubyInterpreters:
+    - ruby
+    - macruby
+    - rake
+    - jruby
+    - rbx
+  Include:
+    - '**/*.rb'
+  Exclude:
+    - doc/**/*
+    - docs/**/*
+    - examples/**/*
+    - rcov/**/*
+    - spec/**/*
+    - Changelog
+    - Guardfile
+    - Gemfile
+    - LICENSE
+    - Rakefile
+    - README.rdoc
+    - '**/*.bat'
+    - '**/*.gem'
+    - '**/*.md'
+    - '**/*.yml'
+    - '.gitignore/**/*'
+    - '.yardoc/**/*'
+    - '.yardopts/**/*'
+
+Style/Encoding:
+  Enabled: false
+Style/HashSyntax:
+  Enabled: false
+Style/SymbolProc:
+  Enabled: false
+Style/MethodDefParentheses:
+  Enabled: false
+Style/RescueStandardError:
+  Enabled: false
+Style/RescueModifier:
+  Enabled: false
+Style/WordArray:
+  Enabled: false
+Style/NumericLiterals:
+  Enabled: false
+Style/RedundantSelf:
+  Enabled: false
+Style/ParallelAssignment:
+  Enabled: false
+Style/SymbolArray:
+  Enabled: false
+Style/UnneededCondition:
+  Enabled: false
+Style/BracesAroundHashParameters:
+  Enabled: false
+Layout/SpaceAfterComma:
+  Enabled: false
+Layout/EmptyLinesAroundModuleBody:
+  Enabled: false
+Layout/EmptyLinesAroundClassBody:
+  Enabled: false
+Layout/ExtraSpacing:
+  Enabled: false
+Layout/EmptyLineAfterGuardClause:
+  Enabled: false
+Layout/SpaceInsideHashLiteralBraces:
+  Enabled: false
+Layout/SpaceAfterMethodName:
+  Enabled: false
+Layout/AlignParameters:
+  Enabled: false
+Layout/AccessModifierIndentation:
+  Enabled: false

data/Changelog

@@ -1,6 +1,17 @@
 # Change Log
 All notable changes to this project will be documented in this file.
 
+## [1.6]
+
+### Added
+  - Range#copy: options values_only, transpose
+
+## [1.5]
+
+### Changed
+  - Range,Cell#v
+  - Range,Cell: lower-letter VBA methods allowed
+
 ## [1.4.1]
 
 ### Changed
@@ -11,6 +22,7 @@ All notable changes to this project will be documented in this file.
 ### Changed
   - renamed Book to Workbook, Sheet to Worksheet
   - General#to_reo
+  - Range,Cell: lower-letter VBA methods not allowed
 
 ## [1.3.1]
 

data/docs/README_ranges.rdoc

@@ -45,23 +45,30 @@ or
 You can read the values by 
 
   range.Value
+  => [["foo", "workbook", "sheet1", nil], ["foo", nil, "foobaaa", nil], ["matz", "is", "nice", nil]]
+
+or
+
+  range.v
+  => [["foo", "workbook", "sheet1", nil], ["foo", nil, "foobaaa", nil], ["matz", "is", "nice", nil]]
 
 or as flat array
   
   range.values
+  =>  ["foo", "workbook", "sheet1", nil, "foo", nil, "foobaaa", nil, "matz", "is", "nice", nil]
 
-Now we copy and paste a range. With help of VBA methods you would do
+Now we copy the range. With help of VBA methods you would do
 
-  range.Copy(:destination => sheet.range([6,2]).ole_range)
+  range.Copy(:destination => sheet.range([4..6,5..8]).ole_range)
 
 or with help of RobustExcelOle
 
-  range.copy([6,2])
+  range.copy([4,5])
 
 You can also copy a range into another worksheet in another workbook.
 
   book2 = Workbook.open('spec/data/another_workbook.xls', :excel => :new, :visible => true)
-  range.copy([5,8],book2.sheet(3))
+  range.copy([4,5],book2.sheet(3))
 
 Now we define a name that refers to a range consisting of only the first cell, i.e. the 1st row and 1st column. Using VBA methods, you can use
 
@@ -112,6 +119,11 @@ or with RobustExcelOle
   sheet[1,1].Value  
   => "foo
 
+or
+
+  sheet[1,1].v
+  => "foo"
+
 Similarly, you can write a cell.
 
   sheet.Cells.Item(1,1).Value = "new_value"
@@ -156,14 +168,31 @@ You can access a range via its defined name with
 
 === Copying a range
 
-You can copy and paste a range. 
+Let's assume, you have a source range
 
-  range.copy([6,2])
+  range = sheet.range(1..2,3..5)
 
-You can also copy a range into another worksheet in another workbook, and even another Excel instance. When copying into another Excel instance the destination shall be a cell (a rectangular range destination is not being considered)
+or, in A1-format,
 
-  book2 = Workbook.open('spec/data/another_workbook.xls', :excel => :new, :visible => true)
-  range.copy([5,8],book2.sheet(3))
+  range = sheet.range("C1:E2")
+
+To copy it to the destination range (3..4,6..8), you can use 
+
+  range.copy([3..4,6..8])
+
+or, providing the upper left position only,
+
+  range.copy([3,6])
+
+You can copy the range into another worksheet of the same or another workbook, even in another Excel instance.
+
+  range.copy([3,6], destination_sheet)
+
+Moreover, you can state, whether you want to copy the values only, and whether you want to transpose the destination range.
+
+  range.copy([3,6], destination_range, :values_only => true, :transpose => true)
+  
+Note that when you don't copy the values only but all formating as well, and you either copy into another Excel instance or transpose the range, the clipboard is being used. 
 
 === Naming a cell
 

data/lib/robust_excel_ole/cell.rb

@@ -12,6 +12,10 @@ module RobustExcelOle
               end
     end
 
+    def v
+      self.Value
+    end
+
     def method_missing(name, *args) # :nodoc: #
       #if name.to_s[0,1] =~ /[A-Z]/
         begin

data/lib/robust_excel_ole/excel.rb

@@ -9,7 +9,10 @@ end
 
 module RobustExcelOle
 
-  # see https://docs.microsoft.com/en-us/office/vba/api/excel.application(object)#methods
+  # This class essentially wraps a Win32Ole Application object. 
+  # You can apply all VBA methods (starting with a capital letter) 
+  # 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
@@ -244,6 +247,56 @@ module RobustExcelOle
     #                      :forget          -> closes the excel instance without saving the workbooks
     #                      :alert           -> give control to Excel
     # @option options [Proc] block
+    def self.close_all(options = { :if_unsaved => :raise }, &blk)
+      options[:if_unsaved] = blk if blk
+      finished_number = error_number = overall_number = 0
+      first_error = nil
+      finishing_action = proc do |excel|
+        if excel
+          begin
+            overall_number += 1
+            finished_number += excel.close(:if_unsaved => options[:if_unsaved])
+          rescue
+            first_error = $!
+            #trace "error when finishing #{$!}"
+            error_number += 1
+          end
+        end
+      end
+
+      # known Excel-instances
+      @@hwnd2excel.each do |hwnd, wr_excel|
+        if wr_excel.weakref_alive?
+          excel = wr_excel.__getobj__
+          if excel.alive?
+            excel.displayalerts = false
+            finishing_action.call(excel)
+          end
+        else
+          @@hwnd2excel.delete(hwnd)
+        end
+      end
+
+      # unknown Excel-instances
+      old_error_number = error_number
+      9.times do |_index|
+        sleep 0.1
+        excel = begin
+                  new(WIN32OLE.connect('Excel.Application'))
+                rescue
+                  nil
+                end
+        finishing_action.call(excel) if excel
+        free_all_ole_objects unless (error_number > 0) && (options[:if_unsaved] == :raise)
+        break unless excel
+        break if error_number > old_error_number # + 3
+      end
+
+      raise first_error if ((options[:if_unsaved] == :raise) && first_error) || (first_error.class == OptionInvalid)
+
+      [finished_number, error_number]
+    end
+=begin    
     def self.close_all(options = { :if_unsaved => :raise }, &blk)
       options[:if_unsaved] = blk if blk
       finished_number = error_number = overall_number = 0
@@ -293,7 +346,7 @@ module RobustExcelOle
 
       [finished_number, error_number]
     end
-
+=end
     # closes the Excel
     # @param [Hash] options the options
     # @option options [Symbol] :if_unsaved :raise, :save, :forget, :alert

data/lib/robust_excel_ole/range.rb

@@ -1,6 +1,10 @@
 # -*- coding: utf-8 -*-
 module RobustExcelOle
-  # see https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet#methods
+
+  # This class essentially wraps a Win32Ole Range object. 
+  # You can apply all VBA methods (starting with a capital letter) 
+  # that you would apply for a Range object. 
+  # See https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet#methods
 
   class Range < REOCommon
     include Enumerable
@@ -32,13 +36,138 @@ module RobustExcelOle
       end
     end
 
+    def v
+      self.Value
+    end
+
     def [] index
       @cells = []
       @cells[index + 1] = RobustExcelOle::Cell.new(@ole_range.Cells.Item(index + 1))
     end
 
     # copies a range
-    # @params [Address] address of a range
+    # @params [Address or Address-Array] address or upper left position of the destination range
+    # @options [Worksheet] the destination worksheet
+    # @options [Hash] options: :transpose, :values_only
+    def copy(dest_address1, sheet_or_dest_address2 = :__not_provided, options_or_sheet = :__not_provided, not_provided_or_options = :__not_provided)
+      dest_address = if sheet_or_dest_address2.is_a?(Object::Range) or sheet_or_dest_address2.is_a?(Integer)
+        [dest_address1,sheet_or_dest_address2] 
+      else
+        dest_address1
+      end
+      dest_sheet = if sheet_or_dest_address2.is_a?(Worksheet)
+        sheet_or_dest_address2
+      else
+        if options_or_sheet.is_a?(Worksheet)
+          options_or_sheet
+        else
+          @worksheet
+        end
+      end
+      options = if options_or_sheet.is_a?(Hash)
+        options_or_sheet 
+      else
+        if not_provided_or_options.is_a?(Hash)
+          not_provided_or_options
+        else
+          { }
+        end
+      end
+      address = Address.new(dest_address)
+      dest_sheet = @worksheet if dest_sheet == :__not_provided
+      dest_address_is_position = (address.rows.min == address.rows.max && address.columns.min == address.columns.max)
+      dest_range_address = if (not dest_address_is_position) 
+          [address.rows.min..address.rows.max,address.columns.min..address.columns.max]
+        else
+          if (not options[:transpose])
+            [address.rows.min..address.rows.min+self.Rows.Count-1,
+             address.columns.min..address.columns.min+self.Columns.Count-1]
+          else
+            [address.rows.min..address.rows.min+self.Columns.Count-1,
+             address.columns.min..address.columns.min+self.Rows.Count-1]
+          end
+        end
+      dest_range = dest_sheet.range(dest_range_address)
+      begin
+        if options[:values_only]
+          dest_range.Value = options[:transpose] ? self.Value.transpose : self.Value
+        else
+          if dest_range.worksheet.workbook.excel == @worksheet.workbook.excel 
+            if options[:transpose]
+              self.Copy
+              dest_range.PasteSpecial(:transpose => true) 
+            else
+              self.Copy(:destination => dest_range.ole_range)
+            end            
+          else
+            if options[:transpose]
+              added_sheet = @worksheet.workbook.add_sheet
+              self.copy_special(dest_address, added_sheet, :transpose => true)
+              added_sheet.range(dest_range_address).copy_special(dest_address,dest_sheet)
+              @worksheet.workbook.excel.with_displayalerts(false) {added_sheet.Delete}
+            else
+              self.Copy
+              dest_sheet.Paste(:destination => dest_range.ole_range)
+            end
+          end
+        end
+      rescue WIN32OLERuntimeError
+        raise RangeNotCopied, 'cannot copy range'
+      end
+    end
+
+    # becomes copy
+    # copies a range
+    # @params [Address or Address-Array] address or upper left position of the destination range
+    # @options [Worksheet] the destination worksheet
+    # @options [Hash] options: :transpose, :values_only
+    def copy_special(dest_address, dest_sheet = :__not_provided, options = { })
+      address = Address.new(dest_address)
+      dest_sheet = @worksheet if dest_sheet == :__not_provided
+      dest_address_is_position = (address.rows.min == address.rows.max && address.columns.min == address.columns.max)
+      dest_range_address = if (not dest_address_is_position) 
+          [address.rows.min..address.rows.max,address.columns.min..address.columns.max]
+        else
+          if (not options[:transpose])
+            [address.rows.min..address.rows.min+self.Rows.Count-1,
+             address.columns.min..address.columns.min+self.Columns.Count-1]
+          else
+            [address.rows.min..address.rows.min+self.Columns.Count-1,
+             address.columns.min..address.columns.min+self.Rows.Count-1]
+          end
+        end
+      dest_range = dest_sheet.range(dest_range_address)
+      begin
+        if options[:values_only]
+          dest_range.Value = options[:transpose] ? self.Value.transpose : self.Value
+        else
+          if dest_range.worksheet.workbook.excel == @worksheet.workbook.excel     
+            if options[:transpose]
+              self.Copy
+              dest_range.PasteSpecial(:transpose => true) 
+            else
+              self.Copy(:destination => dest_range.ole_range)
+            end            
+          else
+            if options[:transpose]
+              added_sheet = @worksheet.workbook.add_sheet
+              self.copy_special(dest_address, added_sheet, :transpose => true)
+              added_sheet.range(dest_range_address).copy_special(dest_address,dest_sheet)
+              @worksheet.workbook.excel.with_displayalerts(false) {added_sheet.Delete}
+            else
+              self.Copy
+              dest_sheet.Paste(:destination => dest_range.ole_range)
+            end
+          end
+        end
+      rescue WIN32OLERuntimeError
+        raise RangeNotCopied, 'cannot copy range'
+      end
+    end
+
+=begin
+    # copies a range
+    # @params [Address] address of the destination range
     # @options [Worksheet] the worksheet in which to copy
     def copy(address, sheet = :__not_provided, third_argument_deprecated = :__not_provided)
       if third_argument_deprecated != :__not_provided
@@ -56,11 +185,12 @@ module RobustExcelOle
           raise RangeNotCopied, 'cannot copy range'
         end
       else
-        self.Select
+        #self.Select
         self.Copy
-        sheet.Paste(destination_range)
+        sheet.Paste(:destination => destination_range) 
       end
     end
+=end
 
     def self.worksheet_class # :nodoc: #
       @worksheet_class ||= begin

data/lib/robust_excel_ole/reo_common.rb

@@ -171,7 +171,7 @@ module RobustExcelOle
         @rows = address_comp1.min.to_i..address_comp1.max.to_i
         if address_comp2.min.to_i == 0
           raise AddressInvalid, "address (#{address_comp1.inspect}, #{address_comp2.inspect}) not in A1-format" if address_comp1.min.to_i == 0
-          @columns = str2num(address_comp2.min)..str2num(address_comp2.max)
+          @columns = str2num(address_comp2.begin)..str2num(address_comp2.end)
         else
           @columns = address_comp2.min.to_i..address_comp2.max.to_i
         end
@@ -330,9 +330,9 @@ module RobustExcelOle
                                             ))
         end
       rescue WIN32OLERuntimeError
-        raise RangeNotCreated, "cannot create range (#{name_or_address.inspect},#{address2.inspect})"
-      end
-      raise RangeNotCreated, "cannot create range (#{name_or_address.inspect},#{address2.inspect})" if range.nil?
+        address2_string = address2.nil? ? "" : ", #{address2.inspect}"
+        raise RangeNotCreated, "cannot create range (#{name_or_address.inspect}#{address2_string})"
+      end      
       range
     end
 

data/lib/robust_excel_ole/version.rb

@@ -1,3 +1,3 @@
 module RobustExcelOle
-  VERSION = "1.5"
+  VERSION = "1.6"
 end

data/lib/robust_excel_ole/workbook.rb

@@ -4,7 +4,10 @@ require 'weakref'
 
 module RobustExcelOle
 
-  # see https://docs.microsoft.com/en-us/office/vba/api/excel.workbook#methods
+  # This class essentially wraps a Win32Ole Workbook object. 
+  # You can apply all VBA methods (starting with a capital letter) 
+  # that you would apply for a Workbook object. 
+  # See https://docs.microsoft.com/en-us/office/vba/api/excel.workbook#methods
 
   class Workbook < RangeOwners
 

data/lib/robust_excel_ole/worksheet.rb

@@ -2,6 +2,9 @@
 
 module RobustExcelOle
 
+  # This class essentially wraps a Win32Ole Worksheet object. 
+  # You can apply all VBA methods (starting with a capital letter) 
+  # that you would apply for a Worksheet object. 
   # see https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet#methods
 
   class Worksheet < RangeOwners

data/spec/range_spec.rb

@@ -119,53 +119,175 @@ describe RobustExcelOle::Range do
     end
   end
 
+  describe "#v" do
+
+    context "v" do
+
+      it "should return value" do
+        @sheet[1,1].v.should == 'simple'
+        @sheet.range(1..2,3..4).v.should == [["sheet2", nil], [nil, nil]] 
+      end 
+    end
+
+  end
+
   describe "#copy" do
     
     before do
+      @book1 = Workbook.open(@dir + '/workbook.xls')
+      @sheet1 = @book1.sheet(1)
+      @range1 = @sheet1.range([1..2,1..3])
+      @sheet1[1,1].Interior.ColorIndex = 4
+      @book2 = Workbook.open(@dir + '/different_workbook.xls')
+      @sheet2 = @book2.sheet(2)
+      @book3 = Workbook.open(@dir + '/another_workbook.xls', :force => {:excel => :new})
+      @sheet3 = @book3.sheet(3)
+    end
+
+    after do
+      @book1.close(:if_unsaved => :forget)
+      @book2.close(:if_unsaved => :forget)
+      @book3.close(:if_unsaved => :forget)
+    end
+
+    it "should copy range" do
+      @range1.copy([4,2])
+      @sheet1.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == 4
+    end
+
+    it "should copy range when giving an address" do
+      @range1.copy([4..5,2..4])
+      @sheet1.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == 4
+    end
+
+    it "should copy range to another worksheet of another workbook" do
+      @range1.copy([4,2], @sheet2)
+      @sheet2.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet2[4,2].Interior.ColorIndex.should == 4
+    end
+
+    it "should copy range to another worksheet of another workbook of another Excel instance" do
+      @range1.copy([4,2], @sheet3)
+      @sheet3.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet3[4,2].Interior.ColorIndex.should == 4
+    end
+
+    it "should copy values only" do
+      @range1.copy([4,2], @sheet1, :values_only => true)
+      @sheet1.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == -4142
+    end
+
+    it "should copy values only to another worksheet of another Excel instance" do
+      @range1.copy([4,2], @sheet3, :values_only => true)
+      @sheet3.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet3[4,2].Interior.ColorIndex.should == -4142
+    end
+
+    it "should copy and transpose with values only" do
+      @range1.copy([4,2], @sheet1, :values_only => true, :transpose => true)
+      @sheet1.range([4..6,2..3]).Value.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == -4142
+    end
+
+    it "should copy and transpose with values only into another Excel instance" do
+      @range1.copy([4,2], @sheet3, :values_only => true, :transpose => true)
+      @sheet3.range([4..6,2..3]).Value.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
+      @sheet3[4,2].Interior.ColorIndex.should == -4142
+    end
+
+    it "should copy and transpose" do
+      @range1.copy([4,2], @sheet1, :transpose => true)
+      @sheet1.range([4..6,2..3]).Value.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == 4
+    end
+
+    it "should copy and transpose into another Excel instance" do
+      @range1.copy([4,2], @sheet3, :transpose => true)
+      @sheet3.range([4..6,2..3]).Value.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
+      @sheet3[4,2].Interior.ColorIndex.should == 4
+    end
+  end
+
+  describe "#copy with deprecated interface" do
+
+    before do
+      @book1 = Workbook.open(@dir + '/workbook.xls')
+      @sheet1 = @book1.sheet(1)
+      @range1 = @sheet1.range([1..2,1..3])
+      @sheet1[1,1].Interior.ColorIndex = 4
       @book2 = Workbook.open(@dir + '/different_workbook.xls')
-      @sheet2 = @book.sheet(1)
-      @range2 = @sheet2.range([1..2,1..3])
+      @sheet2 = @book2.sheet(2)
       @book3 = Workbook.open(@dir + '/another_workbook.xls', :force => {:excel => :new})
+      @sheet3 = @book3.sheet(3)
     end
 
     after do
-      @book.close(:if_unsaved => :forget)
+      @book1.close(:if_unsaved => :forget)
+      @book2.close(:if_unsaved => :forget)
+      @book3.close(:if_unsaved => :forget)
+    end
+
+    it "should copy range" do
+      @range1.copy(4,2)
+      @sheet1.range(4..5,2..4).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == 4
+    end
+
+    it "should copy range when giving an address" do
+      @range1.copy(4..5,2..4)
+      @sheet1.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == 4
+    end
+
+    it "should copy range to another worksheet of another workbook" do
+      @range1.copy(4,2, @sheet2)
+      @sheet2.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet2[4,2].Interior.ColorIndex.should == 4
+    end
+
+    it "should copy range to another worksheet of another workbook of another Excel instance" do
+      @range1.copy(4,2, @sheet3)
+      @sheet3.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet3[4,2].Interior.ColorIndex.should == 4
     end
 
-    it "should copy range at a cell" do
-      @range2.copy([4,4])
-      @sheet2.range([4..5,4..6]).values.should == ["foo", "workbook", "sheet1", "foo", nil, "foobaaa"]
+    it "should copy values only" do
+      @range1.copy(4,2, @sheet1, :values_only => true)
+      @sheet1.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == -4142
     end
 
-    it "should copy range at a cell" do
-      @range2.copy(["D4"])
-      @sheet2.range([4..5,4..6]).values.should == ["foo", "workbook", "sheet1", "foo", nil, "foobaaa"]
+    it "should copy values only to another worksheet of another Excel instance" do
+      @range1.copy(4,2, @sheet3, :values_only => true)
+      @sheet3.range([4..5,2..4]).Value.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
+      @sheet3[4,2].Interior.ColorIndex.should == -4142
     end
 
-    it "should copy range at a cell" do
-      @range2.copy("D4")
-      @sheet2.range([4..5,4..6]).values.should == ["foo", "workbook", "sheet1", "foo", nil, "foobaaa"]
+    it "should copy and transpose with values only" do
+      @range1.copy(4,2, @sheet1, :values_only => true, :transpose => true)
+      @sheet1.range([4..6,2..3]).Value.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == -4142
     end
 
-    it "should copy range into a certain worksheet of another workbook" do
-      @range2.copy([4,4],@book2.sheet(3))
-      @book2.sheet(3).range([4..5,4..6]).values.should == ["foo", "workbook", "sheet1", "foo", nil, "foobaaa"]
+    it "should copy and transpose with values only into another Excel instance" do
+      @range1.copy(4,2, @sheet3, :values_only => true, :transpose => true)
+      @sheet3.range([4..6,2..3]).Value.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
+      @sheet3[4,2].Interior.ColorIndex.should == -4142
     end
 
-    it "should accept old interface" do
-      @range2.copy(4,4,@book2.sheet(3))
-      @book2.sheet(3).range([4..5,4..6]).values.should == ["foo", "workbook", "sheet1", "foo", nil, "foobaaa"]
+    it "should copy and transpose" do
+      @range1.copy(4,2, @sheet1, :transpose => true)
+      @sheet1.range([4..6,2..3]).Value.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
+      @sheet1[4,2].Interior.ColorIndex.should == 4
     end
 
-    it "should copy range at a cell into a worksheet in another Excel instance" do
-      Excel.kill_all
-      sleep 1
-      book1 = Workbook.open(@dir + '/workbook.xls', :force_excel => :new)
-      book2 = Workbook.open(@dir + '/different_workbook.xls', :force_excel => :new)
-      sheet1 = book1.sheet(1)
-      range1 = sheet1.range([1..2,1..3])
-      range1.copy([4,4],book2.sheet(1))
-      book2.sheet(1).range([4..5,4..6]).values.should == ["foo", "workbook", "sheet1", "foo", nil, "foobaaa"]
+    it "should copy and transpose into another Excel instance" do
+      @range1.copy(4,2, @sheet3, :transpose => true)
+      @sheet3.range([4..6,2..3]).Value.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
+      @sheet3[4,2].Interior.ColorIndex.should == 4
     end
 
   end

data/spec/reo_common_spec.rb

@@ -116,6 +116,12 @@ module RobustExcelOle
         address.columns == (1..2)
       end
 
+      it "should read a1-format for a rectangular range with several letters" do
+        address = Address.new(["S1:DP2"])
+        address.rows.should == (1..2)
+        address.columns.should == (19..120)
+      end
+
       it "should raise an error" do
         expect{
           Address.new("1A")

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: robust_excel_ole
 version: !ruby/object:Gem::Version
-  version: '1.5'
+  version: '1.6'
 platform: ruby
 authors:
 - traths
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2018-10-19 00:00:00.000000000 Z
+date: 2018-11-13 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rspec
@@ -39,6 +39,7 @@ extra_rdoc_files:
 - LICENSE
 files:
 - ".gitignore"
+- ".rubocop.yml"
 - ".yardopts"
 - Changelog
 - Gemfile