Excel宏仅识别某些日期

Question

我刚刚被指派编辑这个宏，我之前从未使用过。它从文本文件导入数据。一切都已完成，我只需要添加6个左右的列。我只是按照他们添加的内容添加到.TextFileColumnDataTypes和.TextFileFixedColumnWdiths。

.TextFileColumnDataTypes = Array(1, 2, 2, 5, 1, 1, 1, 2, 2, 1, 5, 1, 1, 1, 5, 1, 1, 1, 1,     1, 1, _
    1, 5, 1, 5, 5, 5, 1, 1, 1, 1, 5, 5, 5, 1, 1, 5, 5, 1, 1, 5, 1, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 1, 2, 5, 5, 1, 5, 5, 2, 2)
.TextFileFixedColumnWidths = Array(1, 8, 9, 8, 35, 35, 35, 6, 2, 1, 8, 21, 6, 6, 8, 2, 1, 1, _
    6, 6, 6, 6, 8, 2, 8, 8, 8, 6, 6, 3, 3, 8, 8, 8, 6, 4, 8, 8, 6, 1, 8, 6, 1, 21, 9, 8, 35, 35, 35, 8, 2, 3, 6, 2, 8, 8, 2, 8, 8, 2, 1)

奇怪的是，第三个到最后一个日期字段被识别，而倒数第四个字段不被识别。

输入文件的日期格式为yyyymmdd。例如20140530 For 5/30/2014。所有日期都以这种方式格式化，而且我只添加了3个左右的日期。

让我提供更多信息，我添加的数据行是：

20131103SF081000050122013022620130401HT2013040220131009AD

我希望它看起来像这样：

11/3/2013 SF 81 50 12 02/26/2013 4/1/2013 HT 04/02/2013 10/9/2013 AD

当相反它看起来像这样：

11/3/2013 SF 81 50 12 20130226 4/1/2013 HT 20130402 10/9/2013 AD

Answer 1

可能只是发布错误，但您的两个阵列有不同的 Ubounds

Answer 2

问题是因为数据类型数组的字段数不正确。因此，他们被一个人关闭。我没有注意到它，因为它没有影响他们的结果，因为该列的数据还没有。谢谢你的帮助。