excel - 获取系统的日期分隔符

Question

我需要将各种 Excel 文件导入 Access 数据库。有两个日期列使用所有可能的格式，如 01.05.2020或 01,05,2020或 01/05/2020取决于它们是如何创建的。有时它是有效日期，有时它只是一个字符串。
Access 应用程序也将在不同的系统上运行，因此它们可能使用不同的分隔符。这意味着我不能只替换所有 .或 ,与 / .我将创建一个替换函数，该函数将为它运行的任何系统规范化字符串，但我不知道如何获取 当前系统的日期分隔符 .
VBA 能够给我这些信息吗？

Answer 1

使用 XlApplicationInternational带有 Application.International 的枚举属性来检索此配置。
这将返回 /在我的系统上:

Excel.Application.International(xlApplicationInternational.xlDateSeparator)

如果您在 Access 主机中，则需要避免使用全局 Excel.Application对象，并使用您拥有并且可以 Quit 的实例完成后:

Dim app As Excel.Application
Set app = New Excel.Application
Debug.Print app.International(xlApplicationInternational.xlDateSeparator)
'...
app.Quit