VBS: не получается сумму с копейками записать в ячейку Excel как число

По ходу дело в разделителе дробной и целой части. Региональные настройки влияют.

nicksh,

1. Не надейтесь на предварительное форматирование xls-шаблона при заполнении из внешнего скрипта - при записи в каждую ячейку из своего скрипта сами гарантируйте тот формат, который хотите видеть.

2.

myWB.Worksheets(1).Cells(i_row,i_col).NumberFormat = "#,##0.00"
myWB.Worksheets(1).Cells(i_row,i_col).Value = 2.7

Гарантировано представит с 2-мя знаками после запятой, да еще и на разряды разделит.

В эксельных форматах есть одна особенность, которая меня поначалу удивляла - они имеют фиксированные разделители, независимо от региональных настроек.

Пока не помогло.
Пытаюсь выделить из всего большого (одновременная обработка четырёх файлов Excel) скрипта маленький кусочек, иллюстрирующий ошибку - пока не получается.
Пока маленький скрипт работает правильно - то есть оба числа - и целое, и с копейками пишутся как числа.

Так вот, в этом скрипте всё сработало так, как надо: в 4 столбце число с запятой выровнено как текст и перед ним есть предупреждение (восклицательный знак), в 5 столбце число с точкой записалось в ячейку как число и перед ним нет предупреждения.

А вот в реальном файле получается не так: число с копейками выглядит как число (и выровнено вправо), но перед ним есть предупреждение, а целое число - без предупреждения.
Оба числа пишутся в ячейку как строки с точкой ("2.70" и "2.00").

nicksh,

ход Ваших мыслей для меня загадка.

Возвращаемся к исходной задаче - Вы переписываете из источника в приемник ("из БД в Excel").
В источнике Ваша "сумма с копейками" в каком формате хранится?
В числовом (float, double, ...) или строковом (string, varchar, ...)?
Всякое бывает, но я предположу что в числовом.

В приемнике Вы также хотите увидеть числовой формат - если я правильно понял.

Внимание вопрос: а зачем выполняя элементарное переписывание из числа в число Вы затеваете какие-то манипуляции на тему "как строки"?
Вступая на этот тернистый путь Вы действительно должны строго контролировать региональные настройки - причем с двух сторон: на сервере БД (источник) и в локальном Excel (приемник).
Более того - перейдя на соседний компьютер (где элементарно другие региональные настройки) Вы обнаружите что скрипт опять перестал работать.

Не проще брать число и писать число?

Попробовал -  действительно проще ;-)
Здравствуйте все!
Прошу прощения за перерыв в сообщениях - сначала неделю готовился к отпуску, потом отпуск, потом неделю разгребал после отпуска накопившиеся дела. А тут подошло время отчёта за ноябрь - хочешь-не хочешь, а пришлось вернуться к теме ;-)
Нашёл, как решить проблему (пока "пытался выделить из всего большого скрипта маленький кусочек" ;-).
После того, как происходит заполнение листа книги числами, в скрипте ещё проходит замена шаблонных значений в строках на реальные значения (например, в шаблоне листа была строка "Отчёт за %mmmm_gggg%", и надо было в этой строке заменить "%mmmm_gggg%" на "ноябрь 2014").
Скрипт был написан в спешке и эта операция замены проделывалась над всеми ячейками листа:

   strWhat = "%" + CStr(Sheet1.Cells(constNomerZagolovka, jz).Value) + "%"    ' строка, которую заменяем
   strReplacement = CStr(Sheet1.Cells(i, jz).Value)                ' строка, на которую заменяем
   For iSvoInf = 1 To Sheet1SvoInf.UsedRange.Rows.Count
      For jSvoInf = 1 To Sheet1SvoInf.UsedRange.Columns.Count
         Sheet1SvoInf.Cells(iSvoInf, jSvoInf).Value = Replace(Sheet1SvoInf.Cells(iSvoInf, jSvoInf).Value, strWhat, strReplacement)        ' меняем 
      Next
   Next

Если же ограничить замену текста только ячейками, в которых действительно есть строка strWhat - то проблема решена - числа остаются числами - и целые, и с копейками.
Но загадка всё-таки осталась нерешённой - почему после замены текста целые числа остаются числами, а числа с копейками становятся текстом?
Прилагаю результат модифицированного (добавлена замена текста на текст по всем ячейкам листа, и шаг значения не 0.01, а 0.1) скрипта коллеги Slav.

    strWhat = "%mmmm_gggg%"    ' строка, которую заменяем
    strReplacement = "ноябрь 2014"    ' строка, на которую заменяем
    For iSvoInf = 1 To myWB.Worksheets(1).UsedRange.Rows.Count
       For jSvoInf = 1 To myWB.Worksheets(1).UsedRange.Columns.Count
          myWB.Worksheets(1).Cells(iSvoInf, jSvoInf).Value = Replace(myWB.Worksheets(1).Cells(iSvoInf, jSvoInf).Value, strWhat, strReplacement)        ' меняем 
       Next
    Next