将txt文件导入excel，每行分成几列（对于“，”或“）

Question

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

在示例情况下，不能将“ 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中是这样的。

Answer 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