Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / При выполнении макроса формируемый файл случайным образом становится недоступным / 3 сообщений из 3, страница 1 из 1
25.03.2011, 15:00
    #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, 17:21
    #37182976
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При выполнении макроса формируемый файл случайным образом становится недоступным
postrelll,

в Else сохранять не надо ? Тогда закрывайте без сохранения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2011, 20:25
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / При выполнении макроса формируемый файл случайным образом становится недоступным / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 494ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158863]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 376ms
total:  494ms
x
x
Закрыть


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