Сохранение книги в известную папку

[romale_80]

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

Попробуйте этот вариант
Пришлось макросом повторить принудительное сохранение копии, после чего безобразие кончилось. Но и прога сильно изменилась - см. комментарии в тексте

спасибо, проверю в воскресенье и отпишусь.
роман

[Adeletto]

Все, разобрался

[Дмитрий Фукс]

Сообщение от Дмитрий Фукс

Здравствуйте, подскажите макрос.
Нужно сохранить выделенный диапазон A1:F13(диапазон выделения каждый раз другой) в листе Эксель на диск С: . Имя файла это ячейка F3+ имя листа.

Sub лист1()
'
' Макрос записан 16.04.2010
Dim myPath As String, fName As String: Application.ScreenUpdating = False
myPath = "C:\"
fName = myPath & Format(Now, "dd_mm_yy") & "Макита" & ".xls"
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").ColumnWidth = 15.75
    Columns("C:C").ColumnWidth = 38
    Columns("D:D").ColumnWidth = 10.25
    Columns("E:E").ColumnWidth = 3.63
    Rows("3:3").EntireRow.AutoFit
    Rows("2:2").RowHeight = 115.5
    Range("A1").Select
    
    ActiveWorkbook.SaveAs Filename:=fName: ActiveWorkbook.Close False
    
End Sub

Почему ругается в этой строчке ?
ActiveWorkbook.SaveAs Filename:=fName: ActiveWorkbook.Close False

[EducatedFool]

Почему ругается в этой строчке ?

У меня не ругается - макрос успешно создал файл C:\19_04_10Макита.xls

Ошибка может возникать в том случае, если файл с именем 19_04_10Макита.xls открыт на момент запуска макроса.
В этом случае могу посоветовать добавить в имя файла помимо даты ещё и время:

fName = myPath & Format(Now, "dd_mm_yy__hh_nn_ss") & "Макита" & ".xls"

Тогда вероятность наличия одноименного файла значительно снизится.

[Дмитрий Фукс]

EducatedFool
Спасибо за отклик, в том то и дело, что файла с именем 19_04_10Макита.xls нет на момент запуска макроса . Книга создается и не сохраняется.
На работе все работает!

Есть еще вопросы:

Как сделать, в место этого?

Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").ColumnWidth = 15.75
    Columns("C:C").ColumnWidth = 38
    Columns("D:D").ColumnWidth = 10.25
    Columns("E:E").ColumnWidth = 3.63

Что бы при вставке таблицы в новую книгу ширина столбцов осталась прежней.
И ячейка А2 была бы размером по тексту.

Как вместо "Макита" вставить имя листа в этой строке?

fName = myPath & Format(Now, "dd_mm_yy") & "Макита" & ".xls"

?

[Дмитрий Фукс]

Мож ктонить ссылку сбросит, где почитать?

[romale_80]

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

Попробуйте этот вариант
Пришлось макросом повторить принудительное сохранение копии, после чего безобразие кончилось. Но и прога сильно изменилась - см. комментарии в тексте

сделал по твоему коду, не работает. прикрепляю свой файл посмотри может есть допущенная ошибка?
у меня он сохраняет только 1 диаграмму, а у меня там их 2. и не стирает макросы. я работаю с ОФИС 2003.

потом там же есть макрос, который посылает на почту, все проходит успешно, может можно от туда взять некоторые заметки? я уже много перепробывал, но почему то ни в какую...

[kanodap]

у меня опен офис 2.4 и почему то не работают ваши макросы, а проблема точно такая же. надо кнопку которая сохраняет файл с добавлением даты-времени. может поможет кто обьяснить. экселя нет , только openoffice.org 2.4 calc

помогиииитеееееееее!!!!!!!

[EducatedFool]

Макросы Excel и макросы openoffice.org несовместимы
(точнее, совместимы, но не полностью)

Обратитесь за помощью на форумы по openoffice.org calc