Автосохранение excel в CSV определенно заданное время

[Costa_man]

Не силен в VBA, хелп.
Нужна програмка которая бы каждый день в 21.00 автоматически сохраняла фал Экселя со значениями формулы которая в ней, даже без открытия самого файла(то что бы перед сохранением обновились данные по формуле.)
В примере рабочий файл. Необходимо что бы сохранялся лист "СВОДКА" в формате CSV или TXT каждый день в 21.00, даже если я сам файл не открываю.

[Serge_Bliznykov]

настраивайте планировщик Windows, в нём в 21:00 открывайте нужный файл с макросом на открытие книги (в системе должно быть автоматически разрешено выполнение макросов).

Сообщение от Costa_man

даже без открытия самого файла(то что бы перед сохранением обновились данные по формуле.)

что значит - "без открытия самого файла"?! С открытием, макрос откроет ваш файл и выполнит нужные действия. Без открытия можно только целиком XLS файл куда-нибудь скопировать. Ну или запустить какую-то программу для доступа к XLS напрямую, без MS EXCEL. Но это уже совсем другая история.

[Costa_man]

Сообщение от Serge_Bliznykov

настраивайте планировщик Windows, в нём в 21:00 открывайте нужный файл с макросом на открытие книги (в системе должно быть автоматически разрешено выполнение макросов).



что значит - "без открытия самого файла"?! С открытием, макрос откроет ваш файл и выполнит нужные действия. Без открытия можно только целиком XLS файл куда-нибудь скопировать. Ну или запустить какую-то программу для доступа к XLS напрямую, без MS EXCEL. Но это уже совсем другая история.

Ок, упростим, просто сохранение файла ексель автоматически в 21.00. Это возможно?

[Serge_Bliznykov]

Сообщение от Costa_man

Ок, упростим

в чём упрощение то? Открыть XLSX файл и сохранить его?

Сообщение от Costa_man

Это возможно?

да. назначить планировщик в Windows, который откроет файл с нужным макросом, макрос выполнит нужное действие.

http://www.programmersforum.ru/showthread.php?t=187040

http://visualbasicexcel.blogspot.com...og-post_6.html

[Costa_man]

Сообщение от Serge_Bliznykov

в чём упрощение то? Открыть XLSX файл и сохранить его?



да. назначить планировщик в Windows, который откроет файл с нужным макросом, макрос выполнит нужное действие.

http://www.programmersforum.ru/showthread.php?t=187040

http://visualbasicexcel.blogspot.com...og-post_6.html

Нужен сам макрос который автоматически сохранит файл.

[Serge_Bliznykov]

Сообщение от Costa_man

Нужен сам макрос который автоматически сохранит файл.

текущий файл сохранить?

дык:

Sub SaveActiveFile()
  ActiveWorkbook.Save
End Sub

а так можно сохранить с другим именем:

Sub Active_SaveAs()
  ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\КнигаXXX.xls", _
                            FileFormat:=xlExcel8
  ActiveWorkbook.Close
End Sub

p.s. какой вопрос - такой и ответ. Уже извините, если что не так...

[Costa_man]

Сообщение от Serge_Bliznykov

текущий файл сохранить?

дык:

Sub SaveActiveFile()
  ActiveWorkbook.Save
End Sub

а так можно сохранить с другим именем:

Sub Active_SaveAs()
  ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\КнигаXXX.xls", _
                            FileFormat:=xlExcel8
  ActiveWorkbook.Close
End Sub

p.s. какой вопрос - такой и ответ. Уже извините, если что не так...

Все правильно. А можно в этом коде добавить время что бы в 21.00 он сохранил этот файл?

[Serge_Bliznykov]

Сообщение от Costa_man

А можно в этом коде добавить время что бы в 21.00 он сохранил этот файл?

теоретически - можно. гуглите VBA Application.onTime
но это решение будет работать только если Ваш файл открыт.
Если его закроют, то макрос прекратит свою работу.

а чем Вас решение через планировщик заданий Windows не устраивает?

[Costa_man]

Сообщение от Serge_Bliznykov

теоретически - можно. гуглите VBA Application.onTime
но это решение будет работать только если Ваш файл открыт.
Если его закроют, то макрос прекратит свою работу.

а чем Вас решение через планировщик заданий Windows не устраивает?

Ок, если через планировщик, мне не понятно куда он сохраняет файл?

[p51x]

Куда пропишите. В данном случае:

ThisWorkbook.Path & "\КнигаXXX.xls"