Store date as string

[YasserKhalil]

Hello everyone
I am dealing with an array of data and there is a date in it like that '01 May 2007'
When dealing with it and populating the data it comes as dates .. and I want to keep it as string
so I put apostrophe so as to overcome this problem ..

But I am wondering if there is a better way or approach for that .. I tried using CStr but the same problem of being dates not string
Thanks advanced for help

[Phuocam]

Like this?

Arr = Range("B1:B10").Text

[YasserKhalil]

Thanks a lot for reply
The array doesn't come from range directly .. it is output of results

[jindon]

I don't understand why it doesn't work. 01 May 2007 is already a string.

Please Login or Register  to view this content.

and Arr = Range("B1:B10").Text will never work anyway.

[YasserKhalil]

Thanks a lot Mr. Jindon for reply
I encountered an error 'Type mismatch' at this line

Please Login or Register  to view this content.

I think that because my regional settings are not English

[jindon]

That's a irrelevant issue here, adjust it for yourself.

[YasserKhalil]

The date is extracted from a string if that is relevant

Please Login or Register  to view this content.

So it appears as text and while the result in array it is a string but when populated it is populated as date (Arabic date) and that means it is converted to date ..
Another point that may be the cause is that the array is pouplated next to column A and column A is designed as Table so the results turned to columns in that table ..

[YasserKhalil]

Also I checked the type as you did while in the loop and it is already String type
The problem occurs only when the dates in the array populated

[jindon]

That's also irrelevant.

When you dump the data into the RANGE, cell in Excel have AUTOCASTING functionality, so if it recognized as date, it automatically put the data as date.
You will need to change the cell format as TEXT, before dump the data.

[YasserKhalil]

Thank you very much Mr. Jidnon
That did the trick you are awesome.
Best and Kind Regards