Как выгрузить Excel без сохранения ?

[MItya]

Проблема в том что он (Excel) предлагает сохранить изменения.
Вопрос: как можно обнулить лист, либо автоматически закрыть без сохранения ?
код такой:

Код: Выделить всё

with createobject("excel.application")
   with .workbooks.open("c:\123.xlt").worksheets(1)
       .cells(2,1).value=userproperties("z")
   end with
  '   .visible=true
   .worksheets.PrintOut
   .quit
end with


ICQ 99597865

[GSerg]

rtfm

.close false


И юноша, не создавайте больше трёх топиков в двух разделах. Это чревато.

[MItya]

пишет:

.close false
Объект не поддерживает это свойство или метод: 'close'

Я выгружаю данные из Outlook на VBs.
Хочу чтобы на шаблоне Excel они распечатались и Excel выгрузился без сохранения.

[GSerg]

Это метод книги. А не приложения и не листа.

[MItya]

и что ?
есть ли решение ?

.workbooks.close false - не катит

.workbooks.close - задает вопрос

[GSerg]

MItya
Из отрывка кода можно было предположить, что ты разбираешься в иерархии объектов, или что ты как минимум умеешь пользоваться клавишей F2. Тогда ты смог бы сам воспользоваться советом смотреть в направлении .close false. Но раз код просто откуда-то взят и не понят, ладно.

Код: Выделить всё

with createobject("excel.application")
   with .workbooks.open("c:\123.xlt")
      .worksheets(1).cells(2,1).value=userproperties("z")
      .PrintOut
      .close false
   end with
  '   .visible=true
   .quit
end with

[RayShade]

MItya

Что, не судьба голову включить?

Код: Выделить всё

.parent.close false

[MItya]

спасибо, помогло

Код: Выделить всё

with createobject("excel.application")
   with .workbooks.open("c:\123.xlt")
      .worksheets(1).cells(2,1).value=userproperties("z")
      .PrintOut
      .close false
   end with
  '   .visible=true
   .quit
end with


В общем то я так раньше пробовал, но не получалось. Оказался глюк с кнопкой. Я ее переименовал и все заработало.