ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение файла макросом
9 сообщений из 9, страница 1 из 1
Сохранение файла макросом
    #39361332
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Здравствуйте!

Макрос создает файл, вставляет таблицы, формирует сводные таблицы и диаграммы. Потом сохраняет и закрывает файл.

Если открыть сохраненный файл макросом, то выдает сообщение "Ошибка в части содержимого в книге. Выполнить попытку восстановления? Если Вы доверяете источнику, из которого получена книга, нажмите кнопку "Да"." Если нажать на "Да", то вместо таблиц как ListObject и вместо сводных таблиц отображаются простые таблицы без форматирования на всех вкладках, отсутствуют диаграммы.

Если приостановить макрос в точке сохранения и сохранить вручную, то файл открывается нормально.

Почему так происходит? Как правильно сохранять?
...
Рейтинг: 0 / 0
06.12.2016, 16:05
| Ответить | Цитировать | Написать  
Сохранение файла макросом
    #39361336
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Попробуй по уму - присвоить книге имя и закрыть с сохранением.
...
Рейтинг: 0 / 0
06.12.2016, 16:07
| Ответить | Цитировать | Написать  
Сохранение файла макросом
    #39361572
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
интересно то, что с таким же кодом, но в других файлах с макросом, которые также создают отдельные файлы, формируют таблицы, сохраняет и закрывает, то без проблем открываются файлы.
...
Рейтинг: 0 / 0
07.12.2016, 07:27
| Ответить | Цитировать | Написать  
Сохранение файла макросом
    #39361862
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
AkinaПопробуй по уму - присвоить книге имя и закрыть с сохранением.
Код: vbnet
1.
Thisworkbook.Name = "ИмяФайла"


Так не получается
...
Рейтинг: 0 / 0
07.12.2016, 14:50
| Ответить | Цитировать | Написать  
Сохранение файла макросом
    #39362019
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Теперь вручную сохраняю, закрываю и потом нормально не открывается. На что нужно обратить внимание?
...
Рейтинг: 0 / 0
07.12.2016, 17:26
| Ответить | Цитировать | Написать  
Сохранение файла макросом
    #39362544
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Если останавливать макрос, то excel подвисает, будто какие то завершающие процессы проходит еще. Если сохраняет макросом, то не подвисает, будто не проходит завершающие процессы. И наверно потом из за этого не открываются файлы.
...
Рейтинг: 0 / 0
08.12.2016, 13:58
| Ответить | Цитировать | Написать  
Сохранение файла макросом
    #39363572
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
В общем если восстанавливать файл при открытии, то удаляется выпадающий список.

Вот код создания списка
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
    With Диапазон.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:="Да,Нет"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Может выпадающий список на объекте ObjectList Таблица надо как то по другому задавать? Я уже замучался с этой проблемой
...
Рейтинг: 0 / 0
09.12.2016, 15:50
| Ответить | Цитировать | Написать  
Сохранение файла макросом
    #39364014
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Нашел. Из за этого кода файл потом нормально не открывается.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
For i = 1 To МаксимальноеКоличествоДней
        ДляСписка1 = ДляСписка1 & Format(DateAdd("d", i - 1, НачалоОтсчета), " dd mmmm yyyy")
        If i <> МаксимальноеКоличествоДней Then ДляСписка1 = ДляСписка1 & ","
Next i
    
Set Диапазон = ТекущийЛист.Range(Cells(НачальнаяСтрокаВывода, Колонка), Cells(КонечнаяСтрокаВывода,Колонка))
With Диапазон.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:=ДляСписка1
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
End With

Получается в выпадающем списке 60 элементов.

После формирования макросом и до сохранения в столбце присутствует выпадающий список. А если сохранить, закрыть и потом заново открыть, то выпадающего списка уже нету.

Вообще у выпадающего списка есть ограничения?
...
Рейтинг: 0 / 0
10.12.2016, 11:44
| Ответить | Цитировать | Написать  
Сохранение файла макросом
    #39364030
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
ferzmikkВообще у выпадающего списка есть ограничения?да. Длина строки формулы, формируемой макросом не должна превышать 255 символов(включая запятые).
...
Рейтинг: 0 / 0
10.12.2016, 12:43
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение файла макросом
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39361862&tid=2172839]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 10ms
total:  141ms
созд. / загр.: 141ms
x
x
Закрыть


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