LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
08 февраля 2005
Форумы
Поиск
Список форумов
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Выгрузка ...
Тема: Выгрузка в Excel
15.06.2007 21:07:58
All
4316 сообщения
Тема: Выгрузка в Excel
В чем проблема не могу понять. Из Access пытаюсь прочитать имена листов Excel. Win2000 Office 2002.
1) Пытаюс прочитать название листов в Excel файле.
Dim xlapp as Object
Dim ws as Worksheet
Set Xlapp=CreateObiect (Excel.Aplication)
with xlapp
.workbooks.open File:="путь + имя файла"
For Each ws in Worksheets
ws.Name
Next
.Quit
End with
Иногда все работает хорошо. Результат получаю, а иногда нет. В чем дело не пойму.
2)После того как отработала выше описанная процедура Excel не работает. Смотрю в деспетчер задач Win и вижу - Excel как приложение снято, а в процесах Excel присутствует.
Объясните что не правильно делаю. Зарание благодарен.
P.S. Общие вопросы по базе данных
Автор:
Lucky
от 0:00:00
Источник ...
15.06.2007 21:07:58
All
4316 сообщения
RE: Выгрузка в Excel
Set exl = CreateObject("Excel.Application")
exl.Visible = False 'невидимый
exl.DisplayAlerts = False 'отключаем сообщения Excel-я
exl.Workbooks.Open ИмяФайла, False, True
'без обновления ссылок, только для чтения
.....
If exl Is Nothing = False Then
While exl.Workbooks.Count > 0
exl.Workbooks(1).Close False
'закрываем все открытые книги без сохранения
Wend
exl.Quit 'закрываем приложения
End If
Set exl=Nothing
Не выполнение чего-либо может привести к тому, что excel пытается вывести свои предупреждения (типа "сохранить?"), а приложение невидимо - вот и остается в памяти, ожидая ответа на свой вопрос.
Т.е. надо обязательно закрыть все открытые книги, а затем приложение. Необходимо предугадывать возможные вопросы приложения и нейтрализовать их заранее.
Когда Excel был открыт в какой-либо программе невидимым, и после отработки программы остался в памяти, то часто возникает ситуация: при открытии книги excel запускается, но окно, где должна быть книга - пустое.
Необходимо также помнить, что по умолчани при открытии книги используется экземпляр уже запущенного Excel-я
P.S. Общие вопросы по базе данных
Автор:
Anonymous
от 0:00:00
Источник ...
15.06.2007 21:07:58
All
4316 сообщения
RE: Выгрузка в Excel
Обязательно закрывать все книги, вдруг пользователь работает паралельно с другими документами. Опробывал предложенный способ. Не помогло. Всеравно спасибо.
P.S. Общие вопросы по базе данных
Автор:
Lucky
от 0:00:00
Источник ...
15.06.2007 21:07:58
All
4316 сообщения
RE: Выгрузка в Excel
Может надо указать объекты явно:
Dim app As Excel.Application 'Приложение программы
' Управление документом
Set app = New Excel.Application 'Новое приложение
app.Visible = True 'Отображаем документ
app.Workbooks.Add "a.xlt"'Добавляем шаблон
app.Worksheets("p1").Activate ' Устанавливаем фокус
P.S. Общие вопросы по базе данных
Автор:
Admin
от 0:00:00
Источник ...
Страница 1 из 1
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Выгрузка ...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования