excel - 将文本文件数据提取到工作表

Question

我想将此文本文件的列粘贴到我的工作簿中。

USAF-WBAN_ID STATION NAME                   COUNTRY                                            STATE                          LATITUDE LONGITUDE ELEVATION
------------ ------------------------------ -------------------------------------------------- ------------------------------ -------- --------- ---------
404200 99999 AL AHSA                        SAUDI ARABIA                                                                       +25.285  +049.485   +0179.2

我想提取 7 个变量(7 列)

美国空军-WBAN_ID；站名;国家;状态;纬度;经度;海拔

以下是我尝试过的几种变体，结果并不可靠。

Sub A1_StationID()

Dim vFile As Variant
Dim wbCopyTo As Workbook
Dim wsCopyTo As Worksheet
Dim wbCopyFrom As Workbook
Dim wsCopyFrom As Worksheet

Set wbCopyTo = ActiveWorkbook
Set wsCopyTo = ActiveSheet

MsgBox "Please select weather stn.txt document"

Dim vFileName

vFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")

Application.ScreenUpdating = False

Workbooks.OpenText Filename:=vFileName, _
    Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(44, 1), _
    Array(127, 1), Array(136, 1), Array(147, 1), Array(154, 1)), _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=False, _
    Other:=False, TrailingMinusNumbers:=True

Set wbCopyFrom = Workbooks.Open(vFileName)

End Sub

我得到的一些输出:

如果我在倒数第二行代码中添加断点，我会更接近我想要的输出(列困惑)。

Answer 1

首先 - 出色的职位发布工作代码和可用的示例数据。

您缺少状态的数组/字段信息指定，并且最后 3 列相差约 1/2 个字符。我删除了分隔符选项，因为如果您使用的是 xlFixedWidth，它们并不重要。

改变

Workbooks.OpenText Filename:=vFileName, _
    Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(44, 1), _
    Array(127, 1), Array(136, 1), Array(147, 1), Array(154, 1)), _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=False, _
    Other:=False, TrailingMinusNumbers:=True

到

Workbooks.OpenText Filename:=vFileName, _
    Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(44, 1), _
    Array(95, 1), Array(126, 1), Array(135, 1), Array(144, 1), Array(154, 1)), _
    TextQualifier:=xlDoubleQuote, TrailingMinusNumbers:=True

作为旁注，Excel 不太容易记住文本到列 设置，因此如果您之前搞乱了这些设置，请确保将它们设置为标准设置。