Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Получить короткий путь файла (изменив русские буквы) если есть длинный и на оборот
Категория: Файловая система
Delphi - База Знаний: Числовой формат ячейки в Excel
var
i,j :integer;
xl:variant;
....
xl:=CreateOleObject('Excel.Application');
xl.WorkBooks.open('D:\a.xls');
xl.range[xl.Cells[i,j], xl.Cells[i+1,j+1] ].select;
xl.selection.numberformat:='0.00';
или
xx := xl.range[xl.Cells[i,j], xl.Cells[i+1,j+1] ];
xl.range[xl.Cells[i,j], xl.Cells[i+1,j+1] ].numberformat:='0.00';
xl.range[xl.Cells[i,j], xl.Cells[i+1,j+1] ] := xx;
