[se] changenames s1

Test/Applications/ParseExcelNumberFormatLocales/test/run-Set_Culture_and_run-macros-data.ps1

@@ -0,0 +1,23 @@
+$Lcids = ([System.Globalization.CultureInfo]::GetCultures( [System.Globalization.CultureTypes]::AllCultures ) | Select-Object -ExpandProperty Name)
+
+ foreach($i in $Lcids) {
+
+echo Set-Culture $i
+ Set-Culture $i
+  Start-Sleep -Seconds 1
+
+  $pathMacro = $(pwd).Path + "\macros-locale-data.xlsm"
+  $pathOutput = $(pwd).Path + "\" + $i + ".txt"
+ echo .\run-macros-data.vbs $i
+ 
+  .\run-macros-data.vbs $i
+  Start-Sleep -Seconds 7
+ 
+}
+
+Set-Culture ru-Ru
+ 
+ 
+
+
+

Test/Applications/ParseExcelNumberFormatLocales/test/run-macros-data.vbs

@@ -0,0 +1,6 @@
+Set objExcel = CreateObject("Excel.Application")
+objExcel.Application.Run "'" & WScript.Arguments(0) & "'!Module1.numformatlocale", WScript.Arguments(1)
+objExcel.DisplayAlerts = False
+
+objExcel.Application.Quit
+Set objExcel = Nothing