Файл = ПолучитьИмяВременногоФайла(".xls");
ТабличныйДокумент.Записать(Файл, ТипФайлаТабличногоДокумента.XLS);

Попытка;
Эксель = Новый COMОбъект("Excel.Application");
Исключение
Сообщить("Не удалось инициализировать Excel, ошибка: " + ОписаниеОшибки() + "");
Возврат;
КонецПопытки;

РабочаяКнига = Эксель.Workbooks.Open(Файл);
// Страница = РабочаяКнига.Worksheets(1);

// (?) немного сузит диапазон поиска
Диапазон = РабочаяКнига.Worksheets(1).UsedRange;

// Порядок = 0;
// Пока Истина Цикл
// Порядок = Порядок + 1;
// Состояние("Преобразование имен: " + Порядок + "");
//
// Ячейка = Страница.Cells.Find("_name_");
//
// Если Ячейка = Неопределено Тогда
// Прервать;
// КонецЕсли;
//
// Ячейка.Name = СтрЗаменить(Ячейка.Value, "_name_", "");
// Ячейка.Value = "";
//
// КонецЦикла;

Ячейка = Диапазон.Find("_name_");

Если (Ячейка <> Неопределено) Тогда
  АдресПервой = Ячейка.Address;

  Порядок = 0;
  Пока Истина Цикл
    Порядок = Порядок + 1;
    Состояние("Преобразование имен: " + Порядок + "");
  
    // отработает быстрее, чем СтрЗаменить()
    Ячейка.Name = Сред(Ячейка.Value, 7);
    Ячейка.Value = "";
  
    // не создается новый контекст Find, поиск продолжается после Ячейка
    Ячейка = Диапазон.FindNext(Ячейка); 
  
    Если (Ячейка = Неопределено) или (Ячейка.Address = АдресПервой) Тогда
    Прервать;
    КонецЕсли;

  КонецЦикла; 
КонецЕсли;