Закрыть книгу не сохраняя

[nikh848]

Привет всем! Подскажите пож., написал код:

Set ОткрытаяКнига = Workbooks.Open(Путь, 0, True)
ОткрытаяКнига.Sheets("Лист1").Activate
ЗначениеЯчейки = ОткрытаяКнига.Sheets("Лист1").Range("A1").Value
ОткрытаяКнига.Close

При закрытии выводит сообщение "сохранить изменения?", хотя открыта для чтения.
Как прописать код, чтобы он не спрашивал ничего или нажимал по умолчания "нет"?
При считывании данных из 90 файлов неудобно постоянно сидеть и нажимать.

 

[hosm]

:RTFM:

Close method as it applies to the Workbook object.

Closes the object.

expression.Close(SaveChanges, Filename, RouteWorkbook)
expression Required. An expression that returns one of the above objects.

SaveChanges Optional Variant. If there are no changes to the workbook, this argument is ignored. If there are changes to the workbook and the workbook appears in other open windows, this argument is ignored. If there are changes to the workbook but the workbook doesn't appear in any other open windows, this argument specifies whether changes should be saved, as shown in the following table.

Value Action
True Saves the changes to the workbook. If there is not yet a file name associated with the workbook, then FileName is used. If FileName is omitted, the user is asked to supply a file name.
False Does not save the changes to this file.
Omitted Displays a dialog box asking the user whether or not to save changes.

Close(False) достаточно...