Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Сохранение в CSV (разделители-запятые) макросом
 
#1
18.08.2012 19:06:02
Люди добрые перерыл всё, но так и не нашел ответа на свой вопрос. Проблема в том, что при сохранении вручную в формат CSV файла в котором есть предположим 2 столбца с данными, файл так и остаётся разбитым по столбцам (как и требуется мне). Но при сохранении этого же файла в CSV с помощью макроса, все столбцы объеденяются в 1 с разделителем запятая, что мне совершенно не нужно!!! Вот и вопрос заключается в том, как сохранить файл макросом, именно в таком же виде как и ручками!!!???  
Сохранение происходит так:  
 
ActiveWorkbook.SaveAs Filename:= _  
       "H:\Test\ " & Range("D1").Value & ".csv", _  
       FileFormat:=xlCSV, CreateBackup:=False
 
 
 
#2
18.08.2012 21:18:52
Попробуйте такой вариант:  
 
Sub SaveCopyAs_()  
   With Workbooks.Add  
       ThisWorkbook.Activate  
       ActiveSheet.Copy Before:=.Sheets(1)  
       .SaveAs Filename:=ThisWorkbook.Path & "\Export " & Date & ".csv" _  
       , FileFormat:=xlCSV, CreateBackup:=False  
   End With  
   Application.SendKeys "^w~~~"  
End Sub
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#3
18.08.2012 21:33:10
Может это покажется странным, но сохраняется пустой файл...
 
 
 
#4
18.08.2012 21:37:35
Выложите файл
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#5
18.08.2012 21:50:42
Мля, задолбали кроссеры! Ответил здесь:  
http://www.programmersforum.ru/showthread.php?t=209824  
И удалил.
Я сам - дурнее всякого примера! ...
 
 
 
#6
18.08.2012 21:52:25
Уупс...!!! Прошу прощения, но как я понял макрос работает только если он находится в книге с которой работаешь. Но дело в том, что данная операция должна проходить с вновь созданными файлами из Личной книги макросов.
 
 
 
#7
18.08.2012 21:53:44
{quote}{login=KukLP}{date=18.08.2012 09:50}{thema=}{post}...задолбали кроссеры!{/post}{/quote}  
Я конечно прошу прощения, но я торопился, и что бы наверняка... )
 
 
 
#8
18.08.2012 22:02:54
Попробуйте  
FileFormat:=xlCSVMSDOS  
У меня сохраняет с разделителями ";"
 
 
 
#9
18.08.2012 22:13:25
Уважаемый Hugo, дело в том что мне разделители как раз и не нужны!!!  
 
LightZ  
Ваш макрос работает, но проблема в том, что у меня есть определённый файл из которого я копирую нужные мне данные в новый файл и сохраняю в *.csv , а ваш макрос работает только если он находится в сохраняемой книге.
 
 
 
#10
18.08.2012 22:26:22
{quote}{login=bibir}{date=18.08.2012 10:13}{thema=}{post}Уважаемый Hugo, дело в том что мне разделители как раз и не нужны!!!  
{/post}{/quote}  
 
CSV (от англ. Comma-Separated Values — значения, разделённые запятыми) — текстовый формат, предназначенный для представления табличных данных. Каждая строка файла — это одна строка таблицы. Значения отдельных колонок разделяются разделительным символом (delimiter) — запятой (,). Однако, большинство программ вольно трактует стандарт CSV и допускают использование иных символов в качестве разделителя. В частности в локалях, где десятичным разделителем является запятая, в качестве табличного разделителя, как правило, используется точка с запятой.  
 
http://ru.wikipedia.org/wiki/CSV
 
 
 
#11
18.08.2012 22:28:29
У Вас хромают азы - csv это по сути текстовый файл.  
Вы свои файлы примера попробуйте открыть блокнотом - вся разница только в разделителях.
 
 
 
#12
18.08.2012 22:49:45
Уважаемый, я же не зря писал про сохранение в *.csv вручную. Попробуйте создать новый файл в Excel и добавить туда данные, после чего сохранить его в *.csv.    
Откройте файл и Вы увидите, что никаких разделителей Excel Вам не покажет и всё будет так же разбито по столбцам.Но при сохранении макросом всё встаёт в первый столбец с разделителем.  
Я понимаю и знаю, что разделитель есть и при сохранении вручную, но именно вариант, что всё остаётся на своих местах меня интересует!
 
 
 
#13
18.08.2012 22:58:21
Повторюсь - вся разница в показанных Вами файлах в разделителях. Т.е. они есть в обоих файлах.  
И вообще-то Вам бы нужно выяснить, какие разделители Вам нужны - т.к. то, как с этими файлами обращается Ваш конкретный Эксель, может быть совершенно не важно.  
Скажите, для чего вы сохраняете именно в csv? Почему не в xls? Что будет далее с этими файлами?
 
 
 
#14
18.08.2012 23:08:28
{quote}{login=bibir}{date=18.08.2012 10:13}{thema=}{post}Уважаемый Hugo, дело в а ваш макрос работает только если он находится в сохраняемой книге.{/post}{/quote} Пробовали его переделать под свои нужды?
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#15
18.08.2012 23:10:27
Разделители я ставил и ; и сохранение всё равно шло в 1 столбец.  
Поясняю в первом столбце находится штрихкод, во втором количество.  
В программе 1С этот файл открывается определённой обработкой в которой указывается что и в каком столбце находится.После чего она на основании предоставленных данных создаёт заказ. Вот и всё.Но работает она только с *.csv файлами - это я уже не знаю почему :)  
 
KukLP  
Application.SendKeys "^w~~~"  
подставил это в свой макрос и вроде бы всё работает! Жаль не могу проверить результат в 1С , но вроде бы всё должно сработать.  
Огромное спасибо Вам!!!
 
 
 
#16
18.08.2012 23:12:14
Прошу прщения ))))  
LightZ Вам Огромное Спасибо!!! )))) Попутался )
 
 
 
#17
18.08.2012 23:19:27
Та не за что ;)
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#18
18.08.2012 23:31:06
Да нет :) Ещё как есть за что!!! Часто приходиться огромное количество времени тратить на это, руки и глаза болеть начинают через час нудной работы этой ))) Но теперь благодоря Вам ... ))) Ещё раз Спасибо!!! :)
 
 
 
Страницы: 1
Читают тему
Loading...