ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Сохранение книги с запросом (SaveAs)
8 сообщений из 8, страница 1 из 1
Excel. Сохранение книги с запросом (SaveAs)
    #33047835
Sigizmund-8
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sigizmund-8
Гость
Всем привет! Подскажите плиз. У меня есть открытый шаблон, в нём произошла определённая работа, я пытаюсь сохранить его с новым именем, как "SaveAs":
Код: plaintext
1.
2.
Workbooks("Шаблон.xls").SaveAs Filename:= _
"c:\tmp\Отчёт1.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:= _
"", ReadOnlyRecommended:=False, CreateBackup:=False
Когда макрос доходит до данных строк кода, появляется сообщение о том, что данный файл есть, заменить? Если нажать "Да", то всё нормально, но если нажать "Нет", то выдаётся сообщение об ошибке:
Код: plaintext
Method 'SaveAs' of object '_Workbook' failed
Кто нить знает, как это обойти?
Заранее спасибо за ответ!
...
Рейтинг: 0 / 0
04.05.2005, 12:26:09
| Ответить | Цитировать | Написать  
Excel. Сохранение книги с запросом (SaveAs)
    #33048343
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
application.displayalerts=false
потом не забыть включить

...
Рейтинг: 0 / 0
04.05.2005, 15:16:02
| Ответить | Цитировать | Написать  
Excel. Сохранение книги с запросом (SaveAs)
    #33048369
Sigizmund-8
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sigizmund-8
Гость
Дело в том, что я отключал прорисовку экрана и displayalerts , существующий файл затирается новым, но как быть, если файл существует с таким именем и затирать новым не надо?
...
Рейтинг: 0 / 0
04.05.2005, 15:21:51
| Ответить | Цитировать | Написать  
Excel. Сохранение книги с запросом (SaveAs)
    #33048960
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Включи перехват ошибок
Код: plaintext
1.
2.
3.
4.
On Error Resume Next
' твой код который может дать ошибку
' потом выключаешь перехват
On Error Goto  0
...
Рейтинг: 0 / 0
04.05.2005, 18:47:14
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Excel. Сохранение книги с запросом (SaveAs)
    #33733508
Фотография Desil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Desil
Участник
Перехват ошибок ничего не дает... А проблему решить как-то нужно!
...
Рейтинг: 0 / 0
17.05.2006, 17:42:53
| Ответить | Цитировать | Написать  
Excel. Сохранение книги с запросом (SaveAs)
    #33733540
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Sigizmund-8Дело в том, что я отключал прорисовку экрана и displayalerts , существующий файл затирается новым, но как быть, если файл существует с таким именем и затирать новым не надо?

перед SaveAs проверь наличие файла
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function FileExists3(Fname) As Boolean
    'проверка существования файла
    Set filesys = CreateObject("scripting.filesystemobject")
    FileExists3 = filesys.fileexists(Fname)
End Function
вызов
Sub v()
    Fname = "C:\test.xls"
    If FileExists3(Fname) = False Then MsgBox "Файл" & Fname & " существует"
End Sub
...
Рейтинг: 0 / 0
17.05.2006, 17:50:36
| Ответить | Цитировать | Написать  
Excel. Сохранение книги с запросом (SaveAs)
    #33733751
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
vkodor 'проверка существования файла
Set filesys = CreateObject("scripting.filesystemobject")
FileExists3 = filesys.fileexists(Fname)

Намного проще и быстрее использовать родной VBA-шный объект Application.FileSearch
...
Рейтинг: 0 / 0
17.05.2006, 18:51:49
| Ответить | Цитировать | Написать  
Excel. Сохранение книги с запросом (SaveAs)
    #33734272
dbf97
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dbf97
Гость
посмотри в сторону GetSaveAsFilename

чой нибудь типа

НоваяФайл = Application.GetSaveAsFilename(InitialFileName:="Отчет1", fileFilter:="Файлы Excel (*.xls), *.xls", Title:="Создание нового отчета")

If НовыйФайл = False Then Exit Sub 'Если пользователь отказался от ввода
потом можно проверить существование этого файла
If GetAttr(НовыйФайл)<>0 Then
и обработать ответ пользователя
Ответ = MsgBox("Такой файл существует, заменить?", vbYesNo)
ну и потом собственно скопировать
Шаблон=ActiveWorkbook.Path & "Шаблон.xls"
FileCopy Шаблон, НовыйФайл
...
Рейтинг: 0 / 0
18.05.2006, 06:23:14
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Сохранение книги с запросом (SaveAs)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33048960&tid=2184854]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 214ms
total:  339ms
созд. / загр.: 339ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]