LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Выгрузка ...
 Тема: Выгрузка в Excel
 
 15.06.2007 21:07:58
All
4316 сообщения
1-ый


Тема: Выгрузка в 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 сообщения
1-ый


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 сообщения
1-ый


RE: Выгрузка в Excel
Обязательно закрывать все книги, вдруг пользователь работает паралельно с другими документами. Опробывал предложенный способ. Не помогло. Всеравно спасибо.


P.S. Общие вопросы по базе данных
Автор: Lucky от 0:00:00 Источник ...
 15.06.2007 21:07:58
All
4316 сообщения
1-ый


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 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Выгрузка ...
ПоискПоиск  Список форумовСписок форумов  
right