Как правильно выгрузить Excel?

29.06.2009, 13:29. **Показов** 1547. **Ответов** 5

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim oExcel As Object
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set oExcel = CreateObject('Excel.Application')
    Set xlBook = oExcel.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
' ...
 
    xlBook.SaveAs FileName
    xlBook.Saved = True
    xlBook.Close
    oExcel.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set oExcel = Nothing

Не работает :`((

Остается в памяти и исчезает только после закрытия проги.

Заранее огромное спасибо за помощь

29.06.2009, 21:22

Странно... у меня ваш код работает корректно: Win98SE (Rus.) + Office 2000 (Rus.) + VS6.0 w/SP2.

29.06.2009, 21:25

В принципе, особой разницы нет, но попробуй вместо Dim oExcel As Object написать Dim oExcel As Excel.Application, и вместо Set oExcel = CreateObject('Excel.Application') написать Set oExcel = New Excel.Application.
Раз уж используешь раннее связывание - CreateObject не нужен.

29.06.2009, 21:28

И у меня работает ... Сорри
Забыл одну деталь

Все хорошо пока с селлсам не обращаешься.

xlSheet.Cells(1,1).Value = 'AAA'

и все...

Моя конфигурация Win2000(Eng) Office 2000(Eng)

29.06.2009, 22:02

Знакомые грабли ;-))

Откажись от использования коллекции Cells. Работай с Range, адресуя ячейки как A1, AD5 и т.д. Не удобно, но заработать должно.

PS: Правда, у меня и с «xlSheet.Cells(1,1).Value = 'AAA'» всё прекрасно выгружается... Однако, помнится, на эти грабли я наступал.

@Banzoy · 09.07.2009, 15:45

Раз уж решили затронуть эту проблему... А ведь и правда Excel не выгружается... и выгружается только вместе с прогой, которая его вызвала... на эти грабли я тоже наступал года два тому назад. И дело тут вовсе не в использовании Cell или Range. Вроде жить это особо сильно не мешает. Только до тех пор, пока висящий в памяти, а точнее в процессах EXCEL.EXE не даст нормально работать с excel'овскими документами, которые будут стремиться по умолчанию загрузиться именно в этот процесс, не открывая новый, за это отдельное спасибо тов.Биллу... грабли мои тогда закончились тем, что я писал отдельный exe-шник для работы с Excel... который при окончании работы с ним благополучно выгружался, унося с собой в небытие этот самый невыгружаемый Excel... но господа профессионалы VB... неужели это единственное решение проблемы и с этим больше ничего нельзя сделать???

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

Comanche
	29.06.2009, 21:22
	Странно... у меня ваш код работает корректно: Win98SE (Rus.) + Office 2000 (Rus.) + VS6.0 w/SP2.

Comanche
	29.06.2009, 21:25
	В принципе, особой разницы нет, но попробуй вместо Dim oExcel As Object написать Dim oExcel As Excel.Application, и вместо Set oExcel = CreateObject('Excel.Application') написать Set oExcel = New Excel.Application. Раз уж используешь раннее связывание - CreateObject не нужен.

Newbie
	29.06.2009, 21:28
	И у меня работает ... Сорри Забыл одну деталь Все хорошо пока с селлсам не обращаешься. xlSheet.Cells(1,1).Value = 'AAA' и все... Моя конфигурация Win2000(Eng) Office 2000(Eng)

Comanche
	29.06.2009, 22:02
	Знакомые грабли ;-)) Откажись от использования коллекции Cells. Работай с Range, адресуя ячейки как A1, AD5 и т.д. Не удобно, но заработать должно. PS: Правда, у меня и с «xlSheet.Cells(1,1).Value = 'AAA'» всё прекрасно выгружается... Однако, помнится, на эти грабли я наступал.

@Banzoy 0 / 0 / 0 Регистрация: 29.08.2007 Сообщений: 12
	09.07.2009, 15:45
	Раз уж решили затронуть эту проблему... А ведь и правда Excel не выгружается... и выгружается только вместе с прогой, которая его вызвала... на эти грабли я тоже наступал года два тому назад. И дело тут вовсе не в использовании Cell или Range. Вроде жить это особо сильно не мешает. Только до тех пор, пока висящий в памяти, а точнее в процессах EXCEL.EXE не даст нормально работать с excel'овскими документами, которые будут стремиться по умолчанию загрузиться именно в этот процесс, не открывая новый, за это отдельное спасибо тов.Биллу... грабли мои тогда закончились тем, что я писал отдельный exe-шник для работы с Excel... который при окончании работы с ним благополучно выгружался, унося с собой в небытие этот самый невыгружаемый Excel... но господа профессионалы VB... неужели это единственное решение проблемы и с этим больше ничего нельзя сделать??? 0