ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / При выполнении макроса формируемый файл случайным образом становится недоступным
3 сообщений из 3, страница 1 из 1
При выполнении макроса формируемый файл случайным образом становится недоступным
    #37182692
postrelll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
postrelll
Гость
Дорогие форумчане, есть следующая проблема:
- написанный мною макрос перебирает определенные, заранее заданные книги, из всех данных на всех страницах по этим исходным данным формируется что-то вроде отчета - заполняется несколько форм в новой книге, создаваемой по определенному шаблону. Есть проблема - в некоторый произвольный момент наполнения этого отчета он может стать по каким-то неведомым причинам недоступным , и когда макрос автоматом сохраняет этот файл отчета (а он автоматически сохраняется и закрывается после того как из источника передадутся все данные из i-ой книги) выводится табличка - "файл анализ.xms уже существует. Заменить его?" Закономерности никакой нет.
Привожу код процедуры, которая производит сохранение:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub file_saver(doc_name As String, _
                       directory As String)
                       
    If doc_name = result_file Then
            ActiveWorkbook.RemoveDocumentInformation (Excel.XlRemoveDocInfoType.xlRDIDocumentProperties)
            ActiveWorkbook.Save
            ActiveWorkbook.Close
    Else
            ActiveWorkbook.RemoveDocumentInformation (Excel.XlRemoveDocInfoType.xlRDIDocumentProperties)
            ActiveWorkbook.SaveAs Filename:=directory & "\" & result_file, _
            FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

            ActiveWorkbook.Close
    End If
   
End Sub
...
Рейтинг: 0 / 0
25.03.2011, 15:00
| Ответить | Цитировать | Написать  
При выполнении макроса формируемый файл случайным образом становится недоступным
    #37182976
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
postrelll,

в Else сохранять не надо ? Тогда закрывайте без сохранения.
...
Рейтинг: 0 / 0
25.03.2011, 17:21
| Ответить | Цитировать | Написать  
При выполнении макроса формируемый файл случайным образом становится недоступным
    #37183156
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
big-dukeв Else сохранять не надо ? Тогда закрывайте без сохранения.Так оно вроде там и так сохраняется до закрытия через SaveAs...
Только мне еще интересно: а почему применена такая конструкция?
Код: plaintext
ActiveWorkbook.RemoveDocumentInformation (Excel.XlRemoveDocInfoType.xlRDIDocumentProperties)
Почему не так?
Код: plaintext
ActiveWorkbook.RemoveDocumentInformation (xlRDIDocumentProperties)
Ведь Вы же из активного документа это делаете и к нему же применяете.

Да и сократить можно Вашу процедуру:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub file_saver(doc_name As String, _
                       directory As String)
    ActiveWorkbook.RemoveDocumentInformation ( 8 )                    
    If doc_name = result_file Then
            ActiveWorkbook.Save
    Else
            ActiveWorkbook.SaveAs Filename:=directory & "\" & result_file, FileFormat:=xlExcel8
    End If
    ActiveWorkbook.Close
End Sub
Я думаю проблема не в этом куске кода - проблема где-то в другом куске.
...
Рейтинг: 0 / 0
25.03.2011, 20:25
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / При выполнении макроса формируемый файл случайным образом становится недоступным
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2158863]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 9ms
get first new msg:
 7ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 323ms
total:  470ms
созд. / загр.: 470ms
x
x
Закрыть


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