Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Неправильное сохранение книги макросом в формате CSV
 
#1
11.06.2018 18:32:08

Добрый вечер.
Хочу сохранить книгу эксель в формате CSV.
Такой код:
Код
ActiveWorkbook.SaveAs Filename:="D:\1\123.csv", FileFormat:=xlCSV
портит книгу (см.скрин)

Что я делаю не так?
Изменено: Бахтиёр - 11.06.2018 18:34:00
 
 
 
#2
11.06.2018 18:34:28
Если считаете, что строки в сообщении достаточно для решения вопроса - зачем файл?
Если уж показываете файл, да еще .xlsm - что мешало выложить пример с макросом?
 
 
 
#3
11.06.2018 18:47:59
Недостача
Код
local:=True
 
 
 
#4
11.06.2018 20:20:12
Бахтиёр, да и не портит как бэ...
 
 
 
#5
12.06.2018 13:08:28
Цитата
RAN: local:=True
Не помогло. ПОМОГЛО

Почему-то при сохранении вручную - всё нормально.
А при сохранении макросом - всё в один столбец.

Помог Application.Sendkeys отсюда - https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=41212
То есть, через WorkbookSaveAs сохраняем книгу макросом, потом, книгу НЕ закрываем методами объекта Workbook, А закрываем через Sendkeys.
За это спасибо LightZ

Спасибо всем.
 
Изменено: Бахтиёр - 12.06.2018 19:04:05
 
 
 
#6
12.06.2018 18:57:11
Цитата
Бахтиёр:  НЕ закрываем методами объекта Workbook
Нет, можно решить и методами Workbook'a

Чтобы сохранить активную книгу как CSV и закрыть эту книгу, нужно:

Код
Sub dddd()
ActiveWorkbook.SaveAs "D:\1\1.csv", xlCSV, , , , , , , , , , True
ActiveWorkbook.Close False
End Sub
А я делал:
ActiveWorkbook.Close True
Поэтому и «портилась» книга.
 
 
 
#7
12.06.2018 18:59:07
Код
ActiveWorkbook.SaveAs "D:\1\1.csv", xlCSV, local:=True
 :D
 
 
 
#8
12.06.2018 19:05:17
Да, Андрей, спасибо, помогло. Я исправил свой пост №5.
 
 
 
Страницы: 1
Наверх