VBA 文本到列读取美国日期格式

Question

在 vba 中运行文本到列时，只要可能，它就会将我的日期视为美国日期，而不是英国日期。例如，31-Aug 保持为 31-Aug，但 01-Sep 更改为 09-Jan!

有什么方法可以在 vba 运行之前指定所有日期均采用英国格式吗？即使只是重新格式化为美国日期以显示美国日期也行不通，因为我们有运行 if date < Today 的代码。 ，这当然会导致更改日期格式的问题。

数据源采用 dd/mm/yyyy 格式，但 Excel 将其读取为 mm/dd/yyyy!

Answer 1

pnuts 评论是解决这个问题最简单的方法。

说明:

运行“记录宏”，选择您的列并启动文本到列向导。

在文本转列向导的第 3 页，“列数据格式”下，“日期”选项自动设置为“MDY”。将其更改为“DMY”。

停止宏，你会发现这段代码

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A:A"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 4), TrailingMinusNumbers:=True

=Array(1,4)中的“4”是决定DMY格式的部分。