将 txt 文件导入到 excel 中，每行分隔成列（对于 ,' 或 ,）答案

【问题标题】：Import a txt file into excel and each line separates into columns (for a ,' or ,)将 txt 文件导入到 excel 中，每行分隔成列（对于 ,' 或 ,）
【发布时间】：2018-07-03 16:39:29
【问题描述】：

请求帮助，我不知道如何在 vb excel 中制作此代码。我需要将一个 txt 文件导入到 excel 中，并且每行分成几列。分隔符是逗号，但是当它找到一个逗号后跟一个 plica (') 时，分隔符就在那里，而不是在逗号中。

在例子中不能分隔“77”，也不能在“88”之间即字段 (cell=C1) 位于 plicas (, '60-77, TEXTO',) 之间

示例：

LINE, '123', '60-77, TEXT', '100', '200', 1, -1,1,

LINE, '456', '60-88, TEXT', '100', '200', 1, -1,1,

LINE, '789', 'TEXT', '100', '200', 1, -1,0,

你能帮帮我吗？

在 excel 中像这样。

【问题讨论】：

标签： excel vba

【解决方案1】：

如果您添加正确的参数，Workbooks.OpenText 可以快速完成这项工作。对您的问题似乎特别重要的两个是逗号：=True 和 textqualifier:=xlTextQualifierSingleQuote。

Sub importTXT()
    Dim wb As Workbook
    Set wb = Workbooks.OpenText(Filename:="c:\test\testcsv.txt", textqualifier:=xlTextQualifierSingleQuote, _
                                comma:=True, Tab:=False, semicolon:=False, Space:=False, other:=False)
    With wb
        'do stuff to the imported workbook here
    End With
End Sub

【讨论】：

在 office 2016 中，我必须进行以下代码更改。但即便如此也不是预料之中的。调用 Workbooks.OpenText 并设置 wb = ActiveWorkbook