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

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

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

Krollissa

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

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

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

Сообщений: 6

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

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

Excel 2007

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

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

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

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

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

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

Ответить

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

Страница 1 из 1
1