Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.08.2012, 17:09   #1
BiBiR
 
Регистрация: 18.08.2012
Сообщений: 3
Сообщение Сохранение в CSV (разделители-запятые) макросом)

Люди добрые перерыл всё, но так и не нашел ответа на свой вопрос. Проблема в том, что при сохранении вручную в формат CSV файла в котором есть предположим 2 столбца с данными, файл так и остаётся разбитым по столбцам (как и требуется мне) Архангельск Де Люкс (hands).rar. Но при сохранении этого же файла в CSV с помощью макроса, все столбцы объеденяются в 1 с разделителем запятая, что мне совершенно не нужно Архангельск Де Люкс.rar!!! Вот и вопрос заключается в том, как сохранить файл макросом, именно в таком же виде как и ручками!!!???
Сохранение происходит так:
Код:
ActiveWorkbook.SaveAs Filename:= _
        "H:\Test\ " & Range("D1").Value & ".csv", _
        FileFormat:=xlCSV, CreateBackup:=False
BiBiR вне форума Ответить с цитированием
Старый 18.08.2012, 21:33   #2
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Удалил пост. Кросс.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728

Последний раз редактировалось kuklp; 18.08.2012 в 21:50.
kuklp вне форума Ответить с цитированием
Старый 18.08.2012, 21:56   #3
BiBiR
 
Регистрация: 18.08.2012
Сообщений: 3
По умолчанию

Цитата:
Сообщение от kuklp Посмотреть сообщение
Удалил пост. Кросс.
Извиняюсь!!! Прошу понять и простить!!! Может всё же вернёте ответ?
BiBiR вне форума Ответить с цитированием
Старый 18.08.2012, 23:17   #4
BiBiR
 
Регистрация: 18.08.2012
Сообщений: 3
По умолчанию

Код:
ActiveWorkbook.SaveAs Filename:= _
"H:\Test\ " & Range("D1").Value & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
Application.SendKeys "^w~~~"
Вопрос закрыт!!
BiBiR вне форума Ответить с цитированием
Старый 30.08.2017, 12:17   #5
xavikz
Новичок
Джуниор
 
Регистрация: 09.09.2015
Сообщений: 2
По умолчанию

Сори за некропост, но как то возможно сделать так, чтобы сохранилось 2 файла?

Грубо говоря есть БД со странами, и городами, и макрос обрабатывает ее, и сохраняет 2 файла - отдельно с городами, отдельно с таблицами.
Т.е. сохранение городов происходит где-то в середине кода, дальше макрос продолжает работать и затем сохраняет страны в другой уже файл.

Application.SendKeys "^w~~~"
таким методом не получается.
И еще ради эксперимента сделал в конце :

Код:
ActiveWorkbook.SaveAs Filename:= _
"H:\Test\321.csv", _
FileFormat:=xlCSV, CreateBackup:=False
Application.SendKeys "^w~~~"

ActiveWorkbook.SaveAs Filename:= _
"H:\Test\123.csv", _
FileFormat:=xlCSV, CreateBackup:=False
Application.SendKeys "^w~~~"
- коррекнто сохраняется только последний , т.е. 123.csv.

1ый же сохраняется так же , в 1 столбец..
xavikz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сохранение данных из *.xls в *.csv re5pect Microsoft Office Excel 1 12.08.2012 22:07
Сохранение в нужном формате макросом sasha_prof Microsoft Office Excel 8 09.03.2011 14:15
Автоматическое сохранение листа в файл Csv flylive Microsoft Office Excel 13 02.04.2009 10:50
Экспорт в csv и импорт из csv cent Microsoft Office Excel 12 28.12.2008 19:50
Разделители в csv Aimo Microsoft Office Excel 13 09.10.2008 17:20