copy from sheet to array

Hi i have an excel data(mix of strings and integers and doubles) that i copy into a variant as below

Dim arr as variant
arr = Sheets("sheet1").range("A1:I20").value

The problem with the above is that it is rounding up the double values into the array. so if i have something like 1.10..it is it putting the value 1.1 in the array.

I need it to copy the EXACT values without any rounding up etc..

I am happy for it to copy all values as string.

but when i try the below i get the mismatch error


Dim Arr() As String
Arr = ActiveWorkbook.Worksheets("Sheet1").Range("A1:I20").Value

Can someone please advise? Thanks heaps.

Hi,

If you need to use the data exactly as displayed, you will need to loop through the cells and read the Text property rather than the value (because 1.10 is the same number as 1.1 after all).

that will affect the performance though. I have a lot of arrays to work with. Is there a quicker way to loop through each cell. i would prefer avoiding traffic between worksheet and array as much as possible

No there is not.