Импортируйте текстовый файл в Excel, и каждая строка разделяется на столбцы (для a, 'или,)

Question

Запросите помощь, я не знаю, как сделать этот код в VB Excel. Мне нужно импортировать текстовый файл в Excel, и каждая строка разделяется на столбцы. Разделитель - это запятая, но когда он находит запятую, за которой следует plica ('), разделитель присутствует, а не запятая.

В данном примере нельзя разделять ни «77», ни «88» то есть поле (ячейка = C1) находится между плицами (, '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