ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос Excel, копирование графика в буффер
11 сообщений из 11, страница 1 из 1
Макрос Excel, копирование графика в буффер
    #37316088
Random2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Random2
Гость
Есть вот такой макрос:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim objEx
Set objEx = CreateObject("Excel.Application")
objEx.DisplayAlerts = False
objEx.Visible = False
objEx.WorkBooks.Open "C:\DM.xls"
objEx.Sheets("ДМ").Select
objEx.Sheets("ДМ").ChartArea.Copy
objEx.WorkBooks.Close
objEx.Quit

Макрос копирует график с листа "ДМ" в буффер и закрывает эксель. Но почему-то после objEx.Sheets("ДМ").ChartArea.Copy эксель выдает ошибку: Runtime error '13': Type mismatch. Ошибка эта портит всю автоматизацию, т.к. все это должно выполняться автоматически в невидимом режиме. А т.к. появляется эта странная ошибка, то и эксель не закрывается. Что ему мешает спокойно закрыться? Пробовал и задержку ставить - все равно ошибка.
...
Рейтинг: 0 / 0
20.06.2011, 15:39
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37316196
Random2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Random2
Гость
Заметил интересную закономерность. Если файл экселевский очень простой, две страницы и простой график, то закрывается без проблем. Но если файл с кучей данных и страниц плюс еще имеет связи с другими документами - получаю ошибку. Может дело в связях с файлами?
...
Рейтинг: 0 / 0
20.06.2011, 16:16
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37316747
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Random2,

Во-первых, открывайте файл в режиме "только для чтения".
При закрытии поставьте флаг - НЕ сохранять изменения.
Не забудьте про set objEx=nothing.
Ну и самое главное — перед копирование напишите objEx.Sheets("ДМ").ChartArea.Activate.
...
Рейтинг: 0 / 0
20.06.2011, 21:04
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37317415
Random2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Random2
Гость
big-duke, а можно немного поподробнее. Как открыть файл в режиме только для чтения? Погуглил - ничего не нашел. Вроде бы у команды Open нету никаких параметров. Я так понял, что ошибка возникает именно при выполнении этой строки:
Код: plaintext
objEx.WorkBooks.Open "C:\DM.xls"
Так как файл DM.xls содержит связи с другими файлами, эксель при запуске спрашивает, обновить ли эти связи (игнорируя свойство DisplayAlerts = False). И все-таки я неправильно написал в 1м сообщении. Ошибка Runtime error '13': Type mismatch. выдается после выполнения команды открытия файла (после вопроса об обновлении связей).
...
Рейтинг: 0 / 0
21.06.2011, 11:07
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37317420
Random2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Random2
Гость
P.S. все сводится к тому, как избежать этой ошибки?
...
Рейтинг: 0 / 0
21.06.2011, 11:08
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37317480
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Random2,

У WorkBooks.Open - куча параметров и в т.ч. про обновление связей :)
...
Рейтинг: 0 / 0
21.06.2011, 11:29
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37317544
Random2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Random2
Гость
KL (XL), спасибо за подсказку. Нашел список параметров, о которых даже не подозревал. Вот как теперь открываю файл:
Код: plaintext
objEx.WorkBooks.Open ("C:\DM.xls"),false,true

Список параметров:
FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended,Origin, Delimiter, Editable, Notify, Converter, AddToMRU

Вопроса об обновлении связей теперь не возникает, но ошибка 13 (Run-time error) все равно появляется, но теперь два раза.
...
Рейтинг: 0 / 0
21.06.2011, 11:57
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37317619
Random2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Random2
Гость
У меня еще есть подозрение, что во всем виновата версия экселя. Может такое быть?
У меня 2003й эксель, у друга 2007. Проверили на 2007 - ошибки нету.
...
Рейтинг: 0 / 0
21.06.2011, 12:27
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37318746
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Random2,

Может. Попробуйте поменять местами две последние строки кода:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim objEx
Set objEx = CreateObject("Excel.Application")
objEx.DisplayAlerts = False
objEx.Visible = False
objEx.WorkBooks.Open FileName:="C:\DM.xls", UpdateLinks:=False, ReadOnly:=True
objEx.Sheets("ДМ").ChartArea.Copy
objEx.Quit
objEx.WorkBooks.Close SaveChanges:=False
...
Рейтинг: 0 / 0
21.06.2011, 20:24
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37318798
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Random2,

objEx.Sheets("ДМ").ChartArea.Activate пробовали ?
...
Рейтинг: 0 / 0
21.06.2011, 21:21
| Ответить | Цитировать | Написать  
Макрос Excel, копирование графика в буффер
    #37318805
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
big-duke,

В этом точно нет необходимости в т.ч. и в активации листа.
...
Рейтинг: 0 / 0
21.06.2011, 21:27
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос Excel, копирование графика в буффер
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=127&tid=2176749]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 45ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 195ms
total:  322ms
созд. / загр.: 322ms
x
x
Закрыть


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