Как скопировать данные из экселя в переменную с сохранением числового формата?
Пример
В ячейке А1 находится дата в виде 13 июля 2018 г.
При копировании в переменную и вставке в ворд, дата отображается в виде 13.07.2018. А надо чтобы отображалась в виде 13 июля 2018 г.
Чтобы сохранить числовые форматы, используйте свойство "Range.Text".
Но при этом текст в столбце должен быть полностью отображён. Кроме того, иногда бывают ситуации, когда юзер видит, что текст умещается в столбце, а эксель не видит. Поэтому ширина должна быть не впритык, а с запасом.
Этот макрос копирует данные из активной ячейки в переменную "var":
Sub макрос()
Dim var
var = ActiveCell.text
End Sub
Спасибо. Все работает.