Проблема с CSV

[Estilla]

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

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

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

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

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

что именно работает? Речь уже идет об открытии с помощью OpenText и не просто открытии, а на тех условиях , что я перечислил вначале.

[Estilla]

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

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

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"

[Estilla]

...что именно работает?...

Прекрасно работает код

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

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

и при открытии этим кодом, в приложенном мною файле данные разбиваются по разным колонкам?

[GSerg]

Excel действительно немного чудит, причём очень и очень давно, версии с 97 точно...

В одних случаях автоматически берёт разделителем запятую, в других - то, что прописано в системе как запятая (т.е. точка с запятой на русской локали). Я расцениваю это как баг и забиваю на него...

[Estilla]

Excel действительно немного чудит, причём очень и очень давно, версии с 97 точно...

В одних случаях автоматически берёт разделителем запятую, в других - то, что прописано в системе как запятая (т.е. точка с запятой на русской локали). Я расцениваю это как баг и забиваю на него...

Пока .TXT нормально себя ведет. Спасибо за OpenText.

[Nicky]

...и при открытии этим кодом, в приложенном мною файле данные разбиваются по разным колонкам?...

Да. Я читаю топики, прежде чем отвечать

[Estilla]

...и при открытии этим кодом, в приложенном мною файле данные разбиваются по разным колонкам?...

Да. Я читаю топики, прежде чем отвечать

значит вам повезло, что открылось как надо а у меня нихочет и не только у меня. Выход тот, который указал GSerg: "ЗАБИТЬ", использовать другие возможности, в частности перейти на TXT или воспользоваться модулями от KL