Всем привет!
Прошу вашего совета. Дано файл эксель xlsx. Построчно надо пройтись и заполнить столбец.
Делаю так:

    Попытка
        Книга = ПолучитьCOMОбъект(ИмяФайла);
    Исключение
        ПоказатьПредупреждение(,ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    Лист = Книга.Worksheets(1);
    Для Сч = НомерСтрНачало по ФайлСтрок Цикл
        Лист.Cells(Сч, НомерСтолбцаКоличество).Value = Количество;
    КонецЦикла;

    Попытка
        Книга.SaveAs(Путь);
        Книга.Application.DisplayAlerts = False;
        Книга.Close(0);
        Исключение
        КонецПопытки;


В результате файл сохраняется, даже заполняется столбец, но открываю его через Excel и там вот так https://www.screencast.com/t/Z4P4rlMFF
Причем файл весит 9мб. Что я пропустил..
Раньше, работа с xls делал через Новый COMОбъект("Excel.Application"), но в силу того что стала возникать проблема с _filterDatabase переписал на ПолучитьCOMОбъект(ИмяФайла)

апну

Создал пустой файл excel. Открываю норм, сетка видна, все команды на месте.

написал 4 строки работы с ним. Выполняю код:

                Книга = ПолучитьCOMОбъект(ИмяФайла);
                Лист = Книга.Worksheets(1);
                Лист.Cells(1, 1).Value = 99;
                Лист.SaveAs(ИмяФайла);
                Книга.Application.Quit();

Открываю заново файл, и там уже пустота. Я так понимаю что то с функцией SAveAs

(2) он его в режиме "только для чтения" не открывает случаем ?

(3) Вот хз. Да даже если в таком режиме - ячейки то я должен увидеть

(4) попробуйте не указывая лист запись сделать

т.е. без изменения листа, просто сделать запись?

(6) угу , была у меня как-то такая несуразица, может поможет

Книга = ПолучитьCOMОбъект(ИмяФайла);
                Лист = Книга.Worksheets(1);
                //Лист.Cells(1, 1).Value = 99;
                Лист.SaveAs(ИмяФайла);
                Книга.Application.Quit();

Все равно, пустой получается после записи.

а если убрать SAveAs и оставить Quit - предложить сохранить сам эксель..

(8)
Книга = ПолучитьCOMОбъект(ИмяФайла);
                //Лист = Книга.Worksheets(1);
                //Лист.Cells(1, 1).Value = 99;
                Книга.Cells(1, 1).Value = 99;
                Книга.SaveAs(ИмяФайла);
                Книга.Application.Quit();

откуда у Книги Cells..

А если вставить Книга.ActiveWindow.DisplayWorkbookTabs = 1;
сколько листов будет? может он кудато не тудать пишет?:)
И у saveas вроде еще второй параметр есть, попробуйте его указать (https://docs.microsoft.com/ru-ru/office/vba/api/excel.xlfileformat)

(12) Ну у SaveAS вагон параметров))

(13) не ну остальные то точно не в тему:)

нет у него ActiveWindow

попробуйте, там по умолчанию в первый лист пишет

(16) пробовал. Книга.Cells не знает

Книга.SaveAs(ИмяФайла, "–4143");
Книга.SaveAs(ИмяФайла, "xlWorkbookNormal");

Оба завершают операию сохранения аварийно

(19) файл на сервере лежит ?

может проблема с правами доступа пользователя к этому файлу

(19) клиент

(21) перекиньте на сервер что ли , может правда дело в доступе

а там нет Эксель

(0) Нельзя делать Save и тут же Close. Нужно все-таки подождать пока файл запишется.
А вот это вот "DisplayAlerts = False;" все равно что набрать разгон перед стеной и закрыть глаза в надежде, что пронесет.

Нельзя делать Save и тут же Close. Нужно все-таки подождать пока файл запишется. >> Откуда инфа? звучит бредово!

У себя переделал так, ексель стал открываться. Попробуйте тоже так
Команда1НаСервере();
     ИмяФАйла = "C:\Users\E.Sknarev\Desktop\1.xlsx";
     НомерСтолбцаКоличество = 1;
    
    Книга=Новый COMОбъект("Excel.Application");
    Книга.Application.Workbooks.Open(ИмяФАйла);
    
    Лист = Книга.Worksheets(1);
    /

    Для Сч = 1 по 10 Цикл
        Лист.Cells(Сч, НомерСтолбцаКоличество).Value = 99;
    КонецЦикла;

    Попытка
        
        Книга.ActiveWorkbook.SaveAs(ИмяФАйла);
        Книга.Application.DisplayAlerts = False;
        Книга.Quit();
    Исключение
        Сообщить(ОписаниеОшибки());
        КонецПопытки;

(23) а подключение к екселю идет на сервере ?

(27) Нет -  все на клиенте делается.

Книга=Новый COMОбъект("Excel.Application"); - вот так SaveAs  то у меня работает

А надо чтобы

Книга = ПолучитьCOMОбъект(ИмяФайла);

(29) может забить тогда и делать как получается :))

(30) для этого нужно пересохранять в excel 2007 или какой то там старый

(31) м.б. с версией екселя что-то связанно

(29) попробуй так:
Книга.Save(0); - если правильно помню, то это записать без выдачи вопросов, возможно без параметра 0. Только нужно учесть, что файл будет один

Книга.Display(1) - если делаешь на клиенте, то, на время отладки, просто покажи заполняемую книгу

Смотри отладчиком процесс заполнения, как минимум, пишешь в каком-то другом формате (например, .XLS вместо .XLSx)

(33)
Вот так?

                Книга = ПолучитьCOMОбъект(ИмяФайла);
                Лист = Книга.Worksheets(1);
                Лист.Cells(1, 1).Value = 99;
                Книга.Save(0);
                Книга.Application.Quit();

Вот так сохраняет, но файл при открытии в эксель опять пустой, книги нет

                Книга = ПолучитьCOMОбъект(ИмяФайла);
                Лист = Книга.Worksheets(1);
                Лист.Cells(1, 1).Value = 99;
                Книга.Save();
                //Книга.SaveAs(ИмяФайла, "–4143");
                Книга.Application.Quit();

здесь вообще SAve указывают что без параметров https://docs.microsoft.com/ru-ru/office/vba/api/excel.workbook.save

(35) тогда включай отображение Exel и смотри как заполняется файл и как записывается

37+ Я правильно понимаю?
Существует (!!!) файл, например, D:\ИмяФайла.XLSx, в нём есть листы
Открываем его кодом, изменяем, записываем, закрываем

При открытии через ексель: листы пропали, файл гнутый?

Посмотри, на всякий случай, есть ли в каталоге скрытый файл с тильдой (символ "~")
dir d:\*ИмяФайла*.* /A

это признак, что файл изменяется и не закрыт

(37) Не нахожу такого метода у COM

(38) При открытии через ексель: листы пропали, файл гнутый? - да

(38) Посмотри, на всякий случай, есть ли в каталоге скрытый файл с тильдой (символ "~") - нет таких.
Появляются только когда непосредственно открываю в excel

(39) Что-то типа:
   Книга.Application.DisplayAlerts = true
   Книга.Visible

Попробуй сравнить в отладчике
    Книга=Новый COMОбъект("Excel.Application");
    Книга.Application.Workbooks.Open(ИмяФАйла);

и
    Книга = ПолучитьCOMОбъект(ИмяФайла); - тут может прихватиться какой-нить просмотрщик файлов, а не ексель

Возможно, что получать объект надо так: ПолучитьCOMОбъект(ИмяФайла, "Excel.Application");

(43) если указать ПолучитьCOMОбъект(ИмяФайла, "Excel.Application") то: Ошибка получения объекта COM: -2147467262(0x80004002): Интерфейс не поддерживается

(43) тут может прихватиться какой-нить просмотрщик файлов, а не ексель - там точно эксель, потому как вижу его свойства и методы

(44) тогда у меня идеи закончились

спс что поделился ими ))

(0) Выложил бы файл. Люди бы глянули и сказали сразу. А так гадать не перегадать.

файл до обработки https://yadi.sk/i/FWu4zCXh4uG-Uw
файл после обработки https://yadi.sk/i/5AOIVq3pLzGQ7w

вот выполняемый код на клиенте

                Книга = ПолучитьCOMОбъект(ИмяФайла); //, "Excel.Application");
                Книга.Application.DisplayAlerts = true;
                Книга.Application.Visible = true;
                Лист = Книга.Worksheets(1);
                Лист.Cells(1, 1).Value = 99;
                Книга.Save();

А попробуй
Лист.Visible = True;
Книга.Save();

Сделай лист видимым перед сохранением

Ну и не забывай

Лист = 0;
Книга = 0;

(52) все равно белый эксель

                Книга = ПолучитьCOMОбъект(ИмяФайла); //, "Excel.Application");
                Книга.Application.DisplayAlerts = true;
                Книга.Application.Visible = true;
                Лист = Книга.Worksheets(1);
                Лист.Cells(1, 1).Value = 99;
                Лист.Visible = true;
                Книга.Save();
                Лист = 0;
                Книга = 0;

Ну как бы суть в том, что лист скрывается. Капать в эту сторону надо.

А так?

Лист.Activate();
Лист.Visible = true;
Книга.Save();

(55) Нет к сожалнию

сожалению

фигня какая то. у меня всё работает

Вот так?

                Книга = ПолучитьCOMОбъект(ИмяФайла); //, "Excel.Application");
                Книга.Application.DisplayAlerts = true;
                Книга.Application.Visible = true;
                Лист = Книга.Worksheets(1);
                Лист.Cells(1, 1).Value = 99;
                Лист.Activate();
                Лист.Visible = true;
                Книга.Save();
                Лист = 0;
                Книга = 0;

вот так

&НаКлиенте
Процедура Команда1(Команда)
ИмяФайла = "c:\temp\99.xlsx";
Книга = ПолучитьCOMОбъект(ИмяФайла);
Лист = Книга.Worksheets(1);
Книга.Windows(1).Visible = True;
Лист.Cells(1, 1).Value = 99;
Книга.Close(True);
Лист = 0;
Книга = 0;
КонецПроцедуры


у тебя Close у меня Save))

не. дело в
Книга.Windows(1).Visible = True;

ну и закрывать книгу тоже надо

Книга.Windows(1).Visible = False; - тоже плохо будет закрыватся7

(64) не знаю. знаю что (60) работает

короче, прятались не листы, а вся книга

отлично, спс!