Галактика в вопросах и ответах

упорно формируются в рублях...
Хотя обычный не Excel Отчет рассчитывается в базовой валюте, после того как постаить галку НДЕ- валюта отчетов
во второе... (Настр: Валюта отчетов - доллар США, 5.82 )
Выручайте!
???

Вроде пока вышел -
заменил в макро-функции вычисления суммы в НДЕ константу на валютную
-------------------------
Function GetPATVar(ByVal sPATId As String, ByVal sPATVariable As String) As String
' GetPATVar = GetPATVarCol(sPATId, sPATVariable, iValueCol) // было
GetPATVar = GetPATVarCol(sPATId, sPATVariable, iCurrencyValueCol) //стало
End Function 'GetPATVar
'
???

Окончательный:) вариант
Function GetPATVar(ByVal sPATId As String, ByVal sPATVariable As String) As String
' GetPATVar = GetPATVarCol(sPATId, sPATVariable, iValueCol)
GetPATVar = GetPATVarCol(sPATId, sPATVariable, iCurrencyValueCol)
GetPATVar = Replace(GetPATVar, ".", ",")
GetPATVar = Replace(GetPATVar, "'", "")
End Function 'GetPATVar

ЕЩЕ ПРОБЛЕМА БЫЛА -
ЧИСЛА ВЫВОДИМЫЕ ЭТОЙ ФУНКЦИЕЙ НЕ ОБРАБАТЫВАЛИСЬ ОПЕРАЦИЯМИ ГРУППОВОГО СЛОЖЕНИЯ ПРИШЛОСЬ ПОМЕНЯТЬ ТИП возвращаемого функцией значения получилось так:

Function GetPATVar(ByVal sPATId As String, ByVal sPATVariable As String) As Double
GetPATVar = Val(GetPATVarCol(sPATId, sPATVariable, iCurrencyValueCol))
End Function 'GetPATVar

"Тихо сам с собою я веду беседу..."

Ну мож кому пригодиться...