Excel VBA Макросы: Как скопировать данные из экселя в переменную с сохранением числового формата?

[Rengame113]

Как скопировать данные из экселя в переменную с сохранением числового формата?

Пример
В ячейке А1 находится дата в виде 13 июля 2018 г.
При копировании в переменную и вставке в ворд, дата отображается в виде 13.07.2018. А надо чтобы отображалась в виде 13 июля 2018 г.

[Администратор]

Чтобы сохранить числовые форматы, используйте свойство "Range.Text".
Но при этом текст в столбце должен быть полностью отображён. Кроме того, иногда бывают ситуации, когда юзер видит, что текст умещается в столбце, а эксель не видит. Поэтому ширина должна быть не впритык, а с запасом.

Этот макрос копирует данные из активной ячейки в переменную "var":

Sub макрос()

    Dim var
   
    var = ActiveCell.text

End Sub

[Rengame113]

Спасибо. Все работает.