макрос на разных машинах

[gsg]

Здравствуйте.

Почему один и тот же макрос на разных компьютерах может давать разные результаты по одинаковым исходным данным?

[аналитика]

опиши вкратце, что макрос делает, откуда данные берет, что на выходе?

[gsg]

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

[аналитика]

в чем различие результатов?

[SAS888]

Как в макросе указывается путь (пути) к файлу (файлам) с данными? Макрос сам формирует имя (имена) файлов?

[gsg]

файл с данными пользователь открывает в диалоге.

макрос не задает имена созданным файлам (если я правильно понял вопрос), они идут по умолчанию - Книга1, Книга2....

проблема в том, что на других компьютерах неправильно считается сумма элементов массива (в массиве считанные исходные данные)

[Hugo121]

Десятичные разделители одинаковые на машинах?

[gsg]

кстати, да. разделители разные. но, как это может влиять?

[Hugo121]

Если разделитель чужой, машина эту цифру понимает неправильно. Как понимает - то ли как текст, то ли без разделителя - сейчас не скажу, смотреть надо.
Исправить - в коде определяем разделитель машины, заменяем в данных разделители (вероятно там всегда одно и тоже, скорее всего точка) на текущие.
Примерно так (кусок из кода, цикл не закончен):

'### определяем системный разделитель дробной части
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")   
strKeyPath = "Control Panel\International"
strValueName = "sDecimal"
oReg.GetExpandedStringValue &H80000001, strKeyPath, strValueName, strValue

Do Until objTextFile.AtEndOfStream 'пока не кончился файл
  strNextLine = objTextFile.Readline 'читаем посторочно
  strNextLine = Replace(strNextLine, ".", strValue)  'меняем "." на системный разделитель дробной части

P.S. Вот как раз на соседнем форуме встретил:

The_Prist
> чтобы узнать какой знак является разделителем целой и дробной части
На мой взгляд, лучше всего использовать что-то типа:
mid$(1/2,2,1)
Так можно точно узнать кто разделитель. А вот лазание в Реестр, не всегда работает. Точнее не везде. Если нет должных прав на компьютере(не обязательно админских) - то попытка получить данные Реестра вызовет ошибку.
Все сугубо лично.

И в самом деле так проще и быстрее.

[gsg]

Спасибо, действительно, проблема оказалась в разделителях. нашел, даже где конкретно:

при разделителе "." выражение
Sum = var(arr(4)), где arr(4)=10,52 равняется "10,52",
а при разделителе "," = "10", т.е. происходит округление, отсюда вопрос - почему?