时间戳

首页 > 解决方案 > 将 txt 文件导入到 excel 中，每行分隔成列（对于 ,' 或 ,）

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

问题描述

请求帮助，我不知道如何在 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中。

在此处输入图像描述

标签： excelvba

解决方案

如果您添加正确的参数，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

推荐阅读