фигню пишешь ... свойство Saved есть только у Workbook ... у Application его просто нет
пали код.
- Код: Выделить всё
Dim ex As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim ws As Microsoft.Office.Interop.Excel.Worksheet
ex = CreateObject("Excel.Application")
wb = ex.Workbooks.Open ("С:\Книга 1.xls")
ws = ex.Workbooks(wb.Name).Worksheets ("Лист1")
'вводим - читаем данные
MessageBox.Show("Было - " & ws.Range("A1"))
ws.Range("A1").value = "hgbrm"
messagebox.show("Стало - " & ws.Range("A1"))
'Сохраняем книгу
wb.save()
'если не хотим сохранять и не хотим чтоб Excel выдал предупреждение при закрытиии, то
'wb.Saved=True
'Закрываем приложение
ex.quit
