Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Не могу избавиться от сообщения при сохранении файла dbf
 
#1
17.06.2010 12:36:52
Добрый день,  
 
помогите пожта, макрос открывает файл dbf, удаляет ненужное, далее мне его нужно сохранить и закрыть, файл сохраняется (видно сохрнение в строке), но при закрытии вылазит сообщение с вопросом "сохранить изменения?"  
обрыскала форум, нашла вот такую команду Application.DisplayAlerts = True  
но изменений нет,  
и еще т.к. файл dbf открыт с помощью xls, после "сохранить изменения" он обязательно выдаст еще сообщение "sklient.dbf может содержать возможности, несовместимые с форматом dbf... сохранить в этом формате?  
извините, если вопрос элементарный, я совсем чайник пока(  
 
Sub www()  
 
Application.Workbooks.Open ("C:\DBF\SKLIENT.DBF")  
ActiveWorkbook.Activate  
' далее удаление лишнего  
ActiveWorkbook.Save  
ActiveWorkbook.Close  
Application.DisplayAlerts = True  
 
End Sub
 
 
 
#2
17.06.2010 12:53:17
А если в первых строках попробовать сначала Application.DisplayAlerts = False? И зачем активировать активную книгу?
 
 
 
#3
17.06.2010 14:14:28
Вставляю эту строку по разным местам,  
но сообщение про сохранение файла все равно появляется(  
обидно, настроила все: автоматом копирует файлы с сервера,  
проводит все нужные действия, а закрыть не могу без нажатия руками на "да"    
 
пошла гуглить еще..  
 
Application.Workbooks.Open ("C:\DBF\SKLIENT.DBF")  
ActiveWorkbook.Save  
Application.DisplayAlerts = True  
ActiveWorkbook.Close  
Application.DisplayAlerts = True
 
 
 
#4
17.06.2010 14:20:38
{quote}{login=Nucy}{date=17.06.2010 02:14}{thema=}{post}Вставляю эту строку по разным местам,  
но сообщение про сохранение файла все равно появляется(  
обидно, настроила все: автоматом копирует файлы с сервера,  
проводит все нужные действия, а закрыть не могу без нажатия руками на "да"    
 
пошла гуглить еще..  
 
Application.Workbooks.Open ("C:\DBF\SKLIENT.DBF")  
ActiveWorkbook.Save  
Application.DisplayAlerts = True  
ActiveWorkbook.Close  
Application.DisplayAlerts = True{/post}{/quote}  
 
{quote}{login=Nucy}{date=17.06.2010 02:14}{thema=}{post}Application.DisplayAlerts = True {/post}{/quote}  
зачем эта строка 2 раза?  
Почему перед строкой  
{quote}{login=Nucy}{date=17.06.2010 02:14}{thema=}{post}  
ActiveWorkbook.Save{/post}{/quote}  
не попробовали поставить (по совету Юрия М)  
Application.DisplayAlerts = False  
 
ммм?
Кому решение нужно - тот пример и рисует.
 
 
 
#5
17.06.2010 14:21:38
Все получилось, тему можно закрывать  
 
поменяла true  на false  
методом тыка))))
 
 
 
#6
17.06.2010 14:25:15
Вы бы читали свою же тему. Юрий Вам об этом 2 часа назад сказал. "Методом тыка"...
Я сам - дурнее всякого примера! ...
 
 
 
#7
17.06.2010 14:26:44
Можно так, если убрать все лишнее  
 
Sub www()  
 
Application.Workbooks.Open ("C:\DBF\SKLIENT.DBF")  
' далее удаление лишнего  
ActiveWorkbook.Close True  
 
End Sub
 
 
 
#8
17.06.2010 14:28:15
спасибо за помощь,  в ответе Юрия не заметила false, увидела что строчку переставить в начало только, в процесе догадалась поменять на false сама (ура), поэтому и написала про метод тыка)) вообщем семён семёныч... спасибо всем!
 
 
 
Страницы: 1
Читают тему
Loading...