powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / .CSV - MS не перестает меня удивлять
2 сообщений из 2, страница 1 из 1
.CSV - MS не перестает меня удивлять
    #32921328
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Создаю новый файл:
ABC123456
Сохраняю его как текстовый (*.csv)

1. Пытаюсь этот файл открыть програмно:
Код: plaintext
WorkBooks.Open FileName:="c:\1.csv"
Получаю:
ABC1;2;34;5;6

2. Ладно - записываю макрос, т.е. проделываю все действия вручную (нормально открылся)
Смотрю полученный макрос - ничем не отличается от моего варианта:
Код: plaintext
WorkBooks.Open FileName:="c:\1.csv"
Ладно - запускаю, упс - опять все в первой колонке через ;

3. Ну мы же не глупые, смотрю хелп - ага, надо ему сказать, что у него разделителем является:
Код: plaintext
WorkBooks.Open FileName:="c:\1.csv", Format:= 4 
Опа - опять не помогло :(

4. И это еще не все:
Пеименовываю файл в файл с расширением txt (1.txt)
Код: plaintext
WorkBooks.Open FileName:="c:\1.txt", Format:= 4 
Опа - работает.

Ну и где тут правда?
...
Рейтинг: 0 / 0
.CSV - MS не перестает меня удивлять
    #32922099
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В дополнение к вышесказанному. Проделал все операции - такая же фигня. У меня Office XP. Тогда изменил у файла расширение на txt и записал макрос его открытия, смотрю его код:

Workbooks.OpenText Filename:= _
"C:\1.txt", Origin:=1251, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=True, Comma:=False, Space:=False, _
Other:=True, OtherChar:=";", FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True

Переименовал файл опять в cvs. Изменил имя файла в макросе. Запускаю его... опять двадцать пять.;)))
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / .CSV - MS не перестает меня удивлять
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]