我不能让 excel vba 在 Windows 10 中使用应用程序分隔符，而我可以在 Windows 7 中使用

Question

我一直在寻找两天来解决我的问题，但到目前为止一无所获。

在我工作的地方开发了许多（非常多）vba excel 工具，我们在 PC-s 中的区域设置将逗号确定为小数分隔符，但从我们的系统下载的报告和数据以点作为小数分隔符。在这些工具中，我们只需要在需要时设置 UseSystemSeparators = False 然后设置 DecimalSeparators = "." 并在宏的末尾恢复。

现在新人已经获得了 Windows 10 电脑，并且一些工具遇到了错误。我从 IT 部门获得了一台 Win10 电脑进行测试，发现无论我如何在 Excel 设置中设置 VBA 宏都使用 PC 区域设置，而在工作表上它仍然使用 Excel 设置中确定的内容。相同的文件，在我的 win7 电脑中进行相同的测试，如果设置，则工作表和 vba 宏都使用本地应用程序设置。

有谁知道是什么原因以及如何解决？我可以想出很多变通办法，但所有这些都意味着这些工具需要重新编码，而且这些工具太多了，我仍然在不断地寻找新工具的使用以及在我 3 月份加入公司之前开发的工具。更改所有 ~300 PC-s 区域设置不是一个选项，因为它通常需要以逗号作为小数分隔符。

编辑：为了更清楚，我将添加一些代码：

Sub test()
    Application.UseSystemSeparators = False
    Application.DecimalSeparator = "."
    variable = "10.1"
    MsgBox CDbl(variable)
End Sub

在 Windows 7 下 - 没问题。可以转换包含字符串的变量。 在 Windows 10 - 运行时错误下，类型不匹配。两台电脑都有“，”作为系统分隔符。有趣的是，当我将“10.1”更改为“10,1”时，这对两台 PC 都有效。两台 PC 的设置相同。系统使用“,”作为分隔符，Excel设置使用“.”。

Answer 1

此答案基于您的系统（默认）DecimalSeparator 为逗号 (,) 和 ThousandsSeparator 为点 (.) - 使用 Windows 10

说明：

我做了一点测试，发现以下函数只在Excel中改变DecimalSeparator，而不是在VBA中：

Application.UseSystemSeparators = False
Application.DecimalSeparator = "."
Application.ThousandsSeparator = ","

这意味着当您使用这些代码行更改DecimalSeparator 时，它只会更新工作簿中的值，以便以您指定的格式显示。例如，如果您的系统格式是：

100.000.000,99

然后上面的代码行会将值转换为：

100,000,000.99

但是，当您运行上面的代码并尝试对DecimalSeparator 使用使用非系统格式的字符串时，VBA 将无法识别它。

示例：

（在Application.DecimalSeparator = "," 时Application.UseSystemSeparators = True）

Sub TestSeparator()

Application.UseSystemSeparators = False
Application.DecimalSeparator = "."
Application.ThousandsSeparator = ","

Debug.Print CDbl("100.99")

End Sub

此代码将返回10099，而不是100,99 的预期双精度（以您的系统格式），因为VBA 看不到“。”的DecimalSeparator。作为DecimalSeparator。

解决方案：

在 VBA 中引用双精度时，您需要始终使用计算机的系统分隔符来表示千位和小数。如果将双打作为字符串导入，则需要使用 Replace 将字符串转换为使用系统分隔符的格式。

解决方案示例：

(Application.DecimalSeparator = ","Application.UseSystemSeparators = True)

如果您在单元格A1 中有"100,000,000.99" 的字符串并使用以下代码：

CDbl(Range("A1").Value)

它将产生“类型不匹配”错误。但是，如果您将其转换为使用系统分隔符的字符串，则不会出现错误。您将需要使用两个Replace 函数，一个用于删除ThousandsSeparators，另一个用于将DecimalSeparators 转换为您的系统：

CDbl(Replace(Replace(Range("A1").Value, ",", ""), ".", ",")

Answer 2

也许是这样的：

Set ws = ThisWorkbook.Worksheets("Name of Worksheet")
ws.Cells.Replace What:="", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
Set ws = Nothing