Estilla » 20.10.2006 (Пт) 9:30
Nicky писал(а):А у меня работаетEstilla писал(а):Код открытия:
- Код: Выделить всё
Workbooks.Open Filename:="G:\EXCEL\work\test4.csv"
И запись макроса дает то же самое
Estilla » 20.10.2006 (Пт) 9:52
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 » 20.10.2006 (Пт) 10:39
Estilla писал(а):...что именно работает?...
Workbooks.Open Filename:="G:\EXCEL\work\test4.csv" Estilla » 20.10.2006 (Пт) 10:50
Nicky писал(а):Estilla писал(а):...что именно работает?...
Прекрасно работает код
- Код: Выделить всё
Workbooks.Open Filename:="G:\EXCEL\work\test4.csv"
GSerg » 20.10.2006 (Пт) 10:54
Estilla » 20.10.2006 (Пт) 11:09
GSerg писал(а):Excel действительно немного чудит, причём очень и очень давно, версии с 97 точно...
В одних случаях автоматически берёт разделителем запятую, в других - то, что прописано в системе как запятая (т.е. точка с запятой на русской локали). Я расцениваю это как баг и забиваю на него...
Nicky » 20.10.2006 (Пт) 11:22
Estilla писал(а):...и при открытии этим кодом, в приложенном мною файле данные разбиваются по разным колонкам?...
Estilla » 20.10.2006 (Пт) 11:50
Nicky писал(а):Estilla писал(а):...и при открытии этим кодом, в приложенном мною файле данные разбиваются по разным колонкам?...
Да. Я читаю топики, прежде чем отвечать
а у меня нихочет и не только у меня. Выход тот, который указал GSerg: "ЗАБИТЬ", использовать другие возможности, в частности перейти на TXT или воспользоваться модулями от KLСейчас этот форум просматривают: Google-бот и гости: 90