Доброго дня, коллеги! Столкнулся с проблемой, к которой даже не понимаю как подступиться. Может у кого есть опыт в решении данной проблемы? Суть в следующем: Программа собирает данные с разных файлов в один. Делаю вроде все стандартно: открываю файл, заношу данные одной колонки в массив
и вот тут возникает магия. В файле сидят данные в виде "2.2015", формат ячейки общий. При переносе они становятся "2,2015". Если заменить потом все запятые на точку, то ячейки становятся "01.02.2015" с форматом даты и отображаются как "фев.15". В общем мне надо получить "2.2015" а как это сделать? я в ступоре. Менять принцип переноса данных? че-то не хочется.
Johny, спасибо, это помогло в целом. Но если смотреть глобально, то я изначально не знаю где будет колонка с такими данными. А если все столбцы задать текстовыми, то колонки с числами остаются текстовыми.
ber$erk, счас попробовал сначала ставить целевому диапазону текстовый формат, присваивать значение, потом ставить формат Общий. Числа становятся числами, а "2.2015" остается текстом!
Код
Sub bb()
Dim v()
With Selection
v = .Value
With .Offset(, 3) 'целевой диапазон
.NumberFormat = "@"
.Value = v
.NumberFormat = "General"
End With
End With
End Sub
Виноват. Не обратил внимание, что в исходном файле числа в виде строки сохранены. Поэтому и в своде они показывались текстом. Всем спасибо! Решение найдено.