Здравствуйте. Вопрос такой: происходит чтение данных из Excel, дозаписывается информация в открытый файл.
При saveas происходит ошибка, что файл уже занят, т.к. он открыт, что естественно: как это обойти?

   Попытка
       Excel = Новый COMОбъект("Excel.Application");
       Excel.WorkBooks.Open(ИмяФайла);
       Состояние("Обработка файла Microsoft Excel...");
       ExcelЛист = Excel.Sheets(НомерЛистаExcel);
   Исключение      
       Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
       Возврат ложь;
       

...

   Для Row = 1 По RowCount Цикл
       
       ФИО = ExcelЛист.Cells(Row,НомерКолонкиФИО).Text;
       НайденнаяСтрока = Задачи.Строки.Найти(ФИО,"ФизЛицо");
       Если НайденнаяСтрока<>Неопределено Тогда
           ExcelЛист.Cells(Row,НомерКолонки).Text = НайденнаяСтрока.Сумма;
       КонецЕсли;
   КонецЦикла;

   ExcelЛист.Saveas(ИмяФайла);
       
   Excel.WorkBooks.Close();

Какие есть варианты?

(0) закрыть файл

(2)+1 ))
+com не кошерно, адо надо

а нет возможности читать из csv?

Стоп. Как я же закрою файл, но у меня будут в файле измененные данные:

       Если НайденнаяСтрока<>Неопределено Тогда
           ExcelЛист.Cells(Row,НомерКолонки).Text = НайденнаяСтрока.Сумма;
       КонецЕсли;

что за ерунда

Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");

----------------------------------

нормально все пишется и читается
укажите версии ПО ос, office , к которому подсключаетесь (visible = true) (help , about)  , 1с

-----------------------------
и полный код

--------------

скорее всего из-за неправильного закрытия ole.excel
в памяти осталась висеть копия, которая и не даёт открыть
файл на чтение.

Офис 2007. Вот полный код:

Процедура КнопкаЗаписатьВФайлНажатие(Элемент)
   ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   
   ДиалогВыбораФайла.Заголовок = "Записать результат из файла";
   //ДиалогВыбораФайла.Фильтр    = "Лист Excel (*.xls,*.xlsx)|*.xls|*.xlsx";
   ДиалогВыбораФайла.Фильтр    = "Лист Excel (*.xlsx)|*.xlsx";
   Если ДиалогВыбораФайла.Выбрать() Тогда
       
       ФайлНаДиске = Новый Файл(ДиалогВыбораФайла.ПолноеИмяФайла);
       ИмяФайла = СтрЗаменить(ДиалогВыбораФайла.ПолноеИмяФайла,ДиалогВыбораФайла.Каталог,"");
       мЗаписатьДанныеExcel(ДиалогВыбораФайла.ПолноеИмяФайла);        
       
   КонецЕсли;
КонецПроцедуры



Функция мЗаписатьДанныеExcel(ИмяФайла, НомерЛистаExcel = 1) Экспорт        
   xlLastCell = 11;
   
   ВыбФайл = Новый Файл(ИмяФайла);
   Если НЕ ВыбФайл.Существует() Тогда
       Сообщить("Файл не существует!");
       Возврат Ложь;
   КонецЕсли;
   
   Попытка
       Excel = Новый COMОбъект("Excel.Application");
       Excel.WorkBooks.Open(ИмяФайла);
       Состояние("Обработка файла Microsoft Excel...");
       ExcelЛист = Excel.Sheets(НомерЛистаExcel);
   Исключение      
       Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
       Возврат ложь;
       
   КонецПопытки;
                         
   
   НомерКолонкиСумма = 3;
   
   
   ActiveCell = Excel.ActiveCell.SpecialCells(xlLastCell);
   RowCount = ActiveCell.Row;
   ColumnCount = ActiveCell.Column;
   
   
   
   Для Row = 1 По RowCount Цикл
       
       ФИО = ExcelЛист.Cells(Row,НомерКолонкиФИО).Text;
       НайденнаяСтрока = Задачи.Строки.Найти(ФИО,"ФизЛицо");
       Если НайденнаяСтрока<>Неопределено Тогда
           ExcelЛист.Cells(Row,НомерКолонкиСумма).Text = НайденнаяСтрока.Сумма;
       КонецЕсли;
   КонецЦикла;
   
   
   Попытка
   ExcelЛист.Close(Истина, ИмяФайла);
Исключение
   Сообщить(ОписаниеОшибки());
КонецПопытки;

   Excel.WorkBooks.Close();
   Excel = 0;

               
   Возврат Истина;
   
КонецФункции // ()

До этого файл открывалая для чтения информации и был закрыт так:

   Excel.WorkBooks.Close();
   Excel = 0;

Вместо  ExcelЛист.Close(Истина, ИмяФайла); писал  ExcelЛист.SaveAs(ИмяФайла);

Что делаю не так?

сделал сам вот так:

СохранениеФайла.Close();
   //Excel.WorkBooks.Close();
    Excel.Application.Quit();

чем бы дитя не тешилось...

вроде все честно

кроме

2 раза

ВыбФайл = Новый Файл(ИмяФайла);
=
ФайлНаДиске = Новый Файл(ДиалогВыбораФайла.ПолноеИмяФайла);