Сохранить лист как файл в формате CSV(Macintosh) макросом

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сохранить лист как файл в формате CSV(Macintosh) макросом (Макросы/Sub)

Krollissa

Дата: Среда, 06.09.2017, 14:47 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый день. Есть задача сохранить лист книги отдельным файлом в папку, где располагается данная книга, с именем листа в формате CSV(Macintosh). Поскольку листов много, возникают неудобства каждый раз вписывать необходимое имя и выбирать формат файла. Попробовала записать эти действия макросом. Проблема в том, что файл, сохраненный с помощью макроса, отличается от файла, который сохранен обычным способом (данные вписываются не по колонкам, а через запятую, что в моем случае - неприемлемо).

Прикрепляю 2 файла:
файл "трафик" содержит лист для сохранения с макросом, который выполняется при нажатии кнопки Save
файл "6_1 необходимый формат" (именно в таком виде должен сохранятся лист после нажатия кнопки Save).

Сам код макроса ниже. Заранее спасибо за участие!

[vba]

Код

Sub Save_CSV()
Range("A1", Range("E1").End(xlDown)).Select
Range("C1").Activate
Application.ScreenUpdating = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".csv", xlCSVMac, CreateBackup:=False
Application.ScreenUpdating = True
Range("C1").Select
End Sub

[/vba]

К сообщению приложен файл: traffic.xlsm (21.0 Kb) · 6_1_n_format.csv (0.8 Kb)

Сообщение отредактировал Krollissa - Среда, 06.09.2017, 16:22

Ответить

iMrTidy

Дата: Среда, 06.09.2017, 15:25 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 85

Репутация: 14 ±

Замечаний: 0% ±

NO

Krollissa, к сожалению, пока Вы не ознакомитесь с правилами форума и не оформите свое сообщение надлежащим образом, Вам не помогут.

Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.

Ответить

Krollissa

Дата: Среда, 06.09.2017, 15:39 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

iMrTidy, учла Ваше замечание и конкретизировала тему. Спасибо.

Ответить

_Boroda_

Дата: Среда, 06.09.2017, 15:50 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16912

Репутация: 6616 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Krollissa, а в Правилах по ссылке про оформление которая ходили? http://www.excelworld.ru/forum/13-2708-1

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Krollissa

Дата: Среда, 06.09.2017, 16:02 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

_Boroda_, да, исправления внесла. Спасибо.

Ответить

Фомулист

Дата: Среда, 06.09.2017, 16:11 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 400

Репутация: 9 ±

Замечаний: 80% ±

Excel 2003

Цитата Krollissa, 06.09.2017 в 16:02, в сообщении № 5 ()

исправления внесла

Не все внесли

. Пройдите в правила ещё раз и поасмотрите, как нужно оформлять код (начинающийся с Sub который).

Терпение и труд всё перетрут!

Сообщение отредактировал Фомулист - Среда, 06.09.2017, 16:12

Ответить

Manyasha

Дата: Среда, 06.09.2017, 16:14 | Сообщение № 7

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Krollissa,

Цитата Krollissa, 06.09.2017 в 16:02, в сообщении № 5 ()

исправления внесла

видимо не все. Код нужно оформлять тегами. Для VBA - кнопка #. Войдите в режим правки поста, выделите код и нажмите кнопку #.

Дублировать темы не нужно, об этом тоже есть в Правилах!
Вторую тему закрываю, эту переношу в раздел VBA.