Question

早上好

我有一个宏，可将目录中的所有文本文件导入到工作簿中。效果很好，没有任何格式或相关问题。

我遇到了似乎会自动格式化的文本文件，并且遇到了麻烦。试图将其与列中的文本一起使用。

文本文件中的数据：

#
#
#
# CELL : RESULT
#
0:0
1:0
2:0
3:0
4:0
5:0
6:0
7:0
8:0
9:0
10:0
11:0
12:0
13:0
14:0
15:0
16:0
17:0
18:0
19:0
20:0
21:0
22:0
23:0
24:0
25:

导入后：

# CELL : RESULT
#
0:00
1:00
2:00
3:00
4:00
5:00
6:00
7:00
8:00
9:00
10:00
11:00
12:00
13:00
14:00
15:00
16:00
17:00
18:00
19:00
20:00
21:00
22:00
23:00
24:00:00

在文本列之后：

#       
#       
#       
# CELL   RESULT 
#       
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 AM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
0:00    0   12:00 PM
1/1/1900  12    0   12:00 AM

复制和粘贴后，数据看起来很好。

我曾尝试将数据转换为常规或文本，但这会将数据转换为小数。我也尝试过修剪掉最后一个":*"，但也失败了。

如果有人对正在发生的事情有任何指导，我将不胜感激。我用来导入文本文件的代码是：

Sub Import_Text_Files()

    Dim fPath   As String
    Dim fCSV    As String
    Dim wbCSV   As Workbook
    Dim wbMST   As Workbook

    Set wbMST = ThisWorkbook
    'this is to set the directory in which the text files are
    fPath = Sheets("Console").Cells(16, 12).Value

    'turn off screen updating for speed
    Application.ScreenUpdating = False

    'start the text file listing
    fCSV = Dir(fPath & "*.txt")
    On Error Resume Next
    Do While Len(fCSV)      0
        'open a CSV file
        Set wbCSV = Workbooks.Open(fPath & fCSV)
        'delete sheet if it exists
        wbMST.Sheets(ActiveSheet.Name).Delete
        'move new sheet into workbook
        ActiveSheet.Move After:=wbMST.Sheets(wbMST.Sheets.Count)
        'ready next CSV
        fCSV = Dir
    Loop

    Set wbCSV = Nothing

End Sub

很抱歉，我没有声誉，并且多年未使用此网站，因此无法在该帐户上发布图像。但是，我要忍受它们。

Answer 1

您可以使用Workbooks.Open代替Workbooks.OpenText

如果这样做，则可以将冒号指定为定界符，并在Excel有机会将其更改为您认为首选的分隔符之前进行分隔（在这种情况下为时间）。

在文本文件上使用Workbooks.Open并不是一个好主意。

检查VBA帮助以获取有关`Workbooks.OpenText

的更多信息

示例代码：

Workbooks.OpenText Filename:=fullPathofTextFile, _
    Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
    xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
    Comma:=False, Space:=False, Other:=True, OtherChar:=":", FieldInfo:= _
    Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

如果需要，您还可以使用Power Query（又名Get&Transform）使用可以刷新的数据连接来完成同样的事情。

如果文本文件为UTF-8，则注释中提到的ADO选项特别有用。

Excel文本到列格式至今已发行

1 个答案: