将不规则的制表符分隔的文本文件读入Excel工作表时出现的问题

Question

我正在尝试将制表符分隔的文本文件读入Excel工作表（这是我要做的众多转换的第一步）。 问题在于输入文件不是干净的定界文件。 因此，标头结束于单个单元格，随后是单个单元格中的许多行，但是另一组行被分成多列。 在读取文件并将清理后的版本放入工作表时，是否可以清理定界符？

输入样本（实际文件为更多列）：

    Name    Cost Elem.  Object  Year        Fixed val.      Fixed val.      Fixed val.    

*   RB-001-XXXXXXXXXXX costs    980808  10000003             8,677.89       14,441.99     

*   RB-001-YYYYYYYYYYY costs    980808  10000012            16,116.09       24,757.70     

*   RB-007-ZZZZZZZZZZZ Mgmt &Wrkshop    980204  10000118                 0.03            0.03   

数据和分隔符的notepad ++视图。

在包括堆栈溢出在内的在线论坛的帮助下，我设法汇编了以下代码。

Dim inputfile As String

Sub StartMacro_Click()

inputfile = Range("Sourcepath").Value
MsgBox (inputfile)

Call OpenAndCopyInput

End Sub

Sub OpenAndCopyInput()
    Dim wbI As Workbook, wbO As Workbook
    Dim wsI As Worksheet

    Set wbI = ThisWorkbook
    Set wsI = wbI.Sheets("datasheet") '<~~ Sheet where you want to import

    Set wbO = Workbooks.Open(inputfile)

i = 1
For Each Row In VBA.Split(wbO, vbCrLf)
    j = 1
    For Each Col In VBA.Split(Row, vbTab)
        ActiveSheet.Cells(i, j).Value = Col
        j = j + 1
    Next Col
    i = i + 1
Next Row

End Sub

导入后，数据在工作表中如下所示：

希望有一些投入来解决这一问题。

Answer 1

尝试此功能

Sub OpenAndCopyInput()
  Dim wbI As Workbook, wbO As Workbook
  Dim wsI As Worksheet

  Set wbI = ThisWorkbook
  Set wsI = wbI.Sheets("datasheet") '<~~ Sheet where you want to import

  With wsI.QueryTables.Add(Connection:="TEXT;" & inputfile), _
          Destination:=Range("$A$1"))
    .Name = "NameOfYourFile"  'Just the name without path and file extension
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 1252
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = True
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1) 'For each column you want to import you need a ",1"
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
  End With
End Sub