сохранение файла excel

1С v8

26.10.12

✎

11:39

ФайлЭксель = ПолучитьCOMОбъект("D:\d.XLS");
Лист = ФайлЭксель.Worksheets(1);
Лист.Cells(1,1).Value="б";
//Книга = ФайлЭксель.WorkBooks.Open();
ФайлЭксель.SaveAs();

далее выдается запрос о перезаписи существующего файла, но изменения не сохраняются. что не так?

1 Alexander Shevchuck

26.10.12

✎

12:40

Делай так:

Перем Док, Екс, ПутьКФайлу;

Процедура КнопкаВыполнитьНажатие(Кнопка)

ПутьКФайлу = "D:\d.xls";

Сообщить(ПутьКФайлу, СтатусСообщения.ОченьВажное);
Екс = Новый COMОбъект("Excel.Application");
Попытка
Док = Екс.Workbooks.Open(ПутьКФайлу);
Исключение
Док = Екс.Workbooks.add();
КонецПопытки;
КоличествоСтраниц = 1;
НачальнаяСтрока = 1;

счСтроки = НачальнаяСтрока;
Для ТекНомер = 1 По КоличествоСтраниц Цикл

Пока счСтроки < 10 Цикл

Док.Sheets(ТекНомер).Cells(СчСтроки,1).Value = "Нужное значение";

счСтроки = счСтроки + 1;

КонецЦикла;

КонецЦикла;
Док.SaveAs(ПутьКФайлу);
Док.Close();
Екс.Quit();
Предупреждение("Обработка завершена");

КонецПроцедуры

2 Alexander Shevchuck

26.10.12

✎

13:10

Фрагмент статьи "1С 8.х и Excel"

Выгрузка данных в Excel

Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных.
Для создания новой книги можно использовать следующий код:
Попытка
Эксель = СоздатьОбъект("Excel.Application");
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
Книга = Эксель.WorkBooks.Add();

При создании книги автоматически создаются листы (по умолчанию 3). Нам остается только выбрать нужный:
Лист = Книга.WorkSheets(НомерЛиста);

Или добавить в книгу новый лист:
Лист = Книга.Sheets.Add();

Добавим в ячейку на листе значение:
Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;

Запишем книгу:
Попытка
Книга.SaveAs(ПутьКФайлу);
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
КонецПопытки;

Где ПутьКФайлу - полный путь к файлу книги Excel (включая имя).

После выполнения действий необходимо закрыть книгу:
Эксель.Application.Quit();

3 3Jl0

26.10.12

✎

13:12

(0) а чего не катит. сохранить как 1с ?

4 3Jl0

26.10.12

✎

13:13

адо если надо спид

5 agusikdeon

26.10.12