vba - 应用程序.小数分隔符问题

Question

我的地区使用“,”作为小数点分隔符。当我在 Excel 2013 中运行以下代码来导入使用“.”的数字时作为小数点分隔符我没有收到任何错误。

Dim strGetResult As String
strGetResult = httpObject.responseText
strGetResult = Replace(strGetResult, ".", Application.DecimalSeparator)

但是，当我在 Excel 2010 中尝试同样的代码(也使用“,”作为小数点分隔符时)，我没有得到相同的结果。调试显示 Application.DecimalSeparator = "."这是没有意义的，因为在 Excel 中数字是用“,”分隔符输入的。

知道为什么会发生这种情况吗？

Answer 1

我遇到了同样的问题，并设法在 this thread 中找到答案。

Application.DecimalSeparator is only relevant if the user doesn't have the UseSystemSeparators option checked.

例如，如果 Application.UseSystemSeparators = True，则 Application.DecimalSeparator 的值并不反射(reflect) Excel 实际使用的值。如果 MSDN docs for Application.DecimalSeparator 中对此进行了描述，那就太好了，但事实并非如此。

mrexcel 线程还包含一个优雅的解决方案；创建一个函数，而不是调用 Application.DecimalSeparator

Public Function GetDecimalSeparator()

    GetDecimalSeparator = Mid(Format(1000, "#,##0.00"), 6, 1)

End Function

并调用它。我使用了这个方法，看起来效果很好。