Проблема с CSV

[Estilla]

При ручном открытии файла всё нормально, данные разнесены по столбцам, но когда открываю кодом, то данные заносятся в один столбец разделенные двоеточием. Как сделать, чтобы данные не оставались на своих местах?
Код открытия:

Код: Выделить всё

Workbooks.Open Filename:="G:\EXCEL\work\test4.csv"

[GSerg]

Opentext посмотри со всеми его параметрами, а то это не "код", это уход от кода...

[Estilla]

Opentext посмотри со всеми его параметрами, а то это не "код", это уход от кода...

opentext также открывает

[GSerg]

С тем же единственным параметром? Ещё бы.

[Estilla]

С тем же единственным параметром? Ещё бы.

Код: Выделить всё


Workbooks.OpenText Filename:="G:\EXCEL\work\test4.csv", _
Origin:=1251, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=False


[GSerg]

И где же здесь те самые двоеточия, которые, как следует из первого поста, являются реальным разделителем?

[Estilla]

И где же здесь те самые двоеточия, которые, как следует из первого поста, являются реальным разделителем?

я ошибся, не двоеточие , а точка с запятой.
Так мне нужно, что бы файл открывался таким образом, чтобы текст был разнесен по разным колонкам, а не в одной как дает мне программа.
(ручное открытие дает нужный результат. Проблема с кодом)

[GSerg]

Ну в коде стоит, к примеру, Tab:=True, Semicolon:=False, так чего же мы хотим?

[Estilla]

Ну в коде стоит, к примеру, Tab:=True, Semicolon:=False, так чего же мы хотим?

а что нужно-то? Подскажите пожалуйста. Я уже всё перебрал.

[Estilla]

Ну в коде стоит, к примеру, Tab:=True, Semicolon:=False, так чего же мы хотим?

Я не могу добиться результат через запись макроса, поскольку запись выдает мне код с обычным Open без каких либо параметров.

[GSerg]

а что нужно-то?

Нужно открыть словарь английского языка и посмотреть значения слов tab и semicolon...

[Estilla]

вот исходный файл

[Estilla]

а что нужно-то?

Нужно открыть словарь английского языка и посмотреть значения слов tab и semicolon...

при чем здесь словарь?
Вы знаете как помочь или нет? Если нет, то зачем флудить?

[alibek]

Словарь при том, что "tab" переводится как "символ табуляции", а "semicolon" переводится как "точка с запятой".

[Estilla]

Словарь при том, что "tab" переводится как "символ табуляции", а "semicolon" переводится как "точка с запятой".

Но это не решает проблемы.

[alibek]

А это решает проблему?
РабочаяКнига.ОткрытьТекст ИмяФайла:="G:\EXCEL\work\test4.csv", КодоваяСтраница:=1251, НачальнаяСтрока:=1, ТипДанных:=СРазделителями, ОграничителиТекста:=ДвойныеКавычки, СливатьРазделители:=Да, Табуляторы:=Да, ТочкаСЗапятой:=Нет, Запятая:=Нет, Пробел:=Нет, Прочее:=Нет

[Estilla]

А это решает проблему?
РабочаяКнига.ОткрытьТекст ИмяФайла:="G:\EXCEL\work\test4.csv", КодоваяСтраница:=1251, НачальнаяСтрока:=1, ТипДанных:=СРазделителями, ОграничителиТекста:=ДвойныеКавычки, СливатьРазделители:=Да, Табуляторы:=Да, ТочкаСЗапятой:=Нет, Запятая:=Нет, Пробел:=Нет, Прочее:=Нет

нет, поскольку вы написали тоже самое что и я. Я не знаю какие параметры нужно выставить чтобы работало как надо.

[alibek]

Блин.
Прочее (Other) выставить в True. Задать OtherChar:="::".
Табулятор, точку с запятой, запятую, пробел выставить в False.

[alibek]

я ошибся, не двоеточие , а точка с запятой.

Other:=False, Semicolon:=True

[Estilla]

я ошибся, не двоеточие , а точка с запятой.

Other:=False, Semicolon:=True

не пашет.

[Estilla]

я ошибся, не двоеточие , а точка с запятой.

Other:=False, Semicolon:=True

ну не работает это (((
Посомтрите пожалуйста файл. Он простой.

код открытия этого файла из другой книги:

Код: Выделить всё


Workbooks.OpenText Filename:="G:\EXCEL\work\test8.csv", _
StartRow:=1, _
DataType:=xlDelimited, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=True, _
Comma:=False, _
Space:=False, _
Other:=False


[Estilla]

я так понял никто из вышеответивших не смог решить эту задачу. Может еще кто-нибудь помочь?

[VVitafresh]

Estilla, действительно твой файл не открывается как ты хочешь. Но если его переименовать, изменив расширение на *.txt, то все работает. Попробуй.

[KL]

Насколько мне известно, csv означает Comma Separated Values т.е. Значения Разделенные Запятыми. В зависимости от конфигурации системы, Excel может сохранять и открывать csv с др. разделителем, в т.ч. с точкой запятой. Однако это не распространяется на VBA. Т.е. как ни старайся, если указываешь рассширение csv, VBA автоматически предполагает, что разделитель - запятая. Думаю, что следующее могло бы быть одним из возможных решений:

Код: Выделить всё

Sub Macro4()
    Filename = "G:\EXCEL\work\test4.csv"
    FileCopy Filename, Filename & ".txt"
    Workbooks.Open Filename:=Filename & ".txt", Format:=4
End Sub

[VVitafresh]

Вот. KL обосновал почему так просходит.

[Estilla]

единственное решение, которое я нашел пока, это открытие не csv файла , а txt.

p.s. Хотелось бы узнать, кто-нибудь попробовал открыть кодом csv на тех условиях, что я описал вначале?

[Estilla]

Estilla, действительно твой файл не открывается как ты хочешь. Но если его переименовать, изменив расширение на *.txt, то все работает. Попробуй.

пока я писАл , появились ответы, спасибо.

[Estilla]

Код: Выделить всё

Sub Macro4()
    Filename = "G:\EXCEL\work\test4.csv"
    FileCopy Filename, Filename & ".txt"
    Workbooks.Open Filename:=Filename & ".txt", Format:=4
End Sub

Ок. Спасибо, пригодится. В моем случае без разницы, какое расширение. Выходит лучше сразу в TXT загонять вместо CSV

[KL]

Еще вариант (без изменения файла):

Код: Выделить всё

Sub Macro1()
    With ActiveSheet.QueryTables.Add(Connection:= "TEXT;G:\EXCEL\work\test4.csv", Destination:=[A1])
        .TextFileParseType = xlDelimited
        .TextFileSemicolonDelimiter = True
        .Refresh BackgroundQuery:=False
        .Delete
    End With
End Sub

[Nicky]

А у меня работает

Код открытия:

Код: Выделить всё

Workbooks.Open Filename:="G:\EXCEL\work\test4.csv"

И запись макроса дает то же самое