После закрытия Excel процесс остается - VB

Узнай цену своей работы

Формулировка задачи:

Я сразу извеняюсь перед теми, кому покажется этот вопрос ламерским. Формирую в одной процедуре(клик на кнопку)отчёт в Excel. В этой же процедуре пишу такие строки Dim oExcel As Excel.Application Set oExcel = CreateObject('Excel.Application') ... тут идёт заполнение ячеек цифрами и словами и рисование рамок Set oExcel = Nothing ' последняя строчка Данные, которые заношу в таблицу Excel забираю из базы Access. НО!!! При первой оброботке этого события (нажатия на кнопку и формирования отчёта) всё формируется так как надо: и данные где надо центрируються, и у ячеек рамочки рисуются. А когда нажимаешь на кнопку следуюший раз, то получаеться такая фигня: 1. Если я не закрываю окно с Excel от предыдущего отчёта, то отчет формтруеться, но ничего где надо не центрируется и рамки ячеек не рисуються. 2. Если я закрываю окно с Excel то VB пишет ошибку на таком месте
Листинг программы
  1. oExcel.Range('A6:H6').Select
  2. oExcel.ActiveCell.FormulaR1C1 = 'Смета'
  3. With oExcel.Selection
  4. .HorizontalAlignment = xlCenter ' ВОТ ЗДЕСЬ ОСТАНАВЛИВАЕТСЯ
  5. .VerticalAlignment = xlVAlignCenter
  6. .WrapText = True
  7. .Orientation = 0
  8. .ShrinkToFit = False
  9. .MergeCells = True
  10. End With 'Selection
Я посмотрел что в момент остановки Selection = Nothing, хотя я строчкой выше я явно выделил область. И ещё непонятно почему после закрытия Excel с отчётом в памяти висит oExcel(по Ctrl+Alt+Del, на панеле задач его нет). Я ж явно обнуляю объект oExcel в конце процедуры???????? Заранее благодарен кто откликнется на мой вопрос!!! :-)))

Решение задачи: «После закрытия Excel процесс остается»

textual
Листинг программы
  1. .Workbooks.Add App.Path & 'XltTimeTable.xlt'

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы