Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Excel-файл в Delphi 5?

977
25 июля 2001 года
ANDREQ
3 / / 20.04.2000
Как к Delphi 5 подключить Excel-файл?
Приложение должно читать Excel-файл и работать с его полями.
611
04 августа 2001 года
Viktor
9 / / 20.01.2000
Если я правильно понял задачу то возможен такой вариант

Uses ComObj;

procedure ExcelFileOpen(FileNameString);
Var
Excel, WorkBook, Sheet Variant;
begin
Excel = CreateOleObject('Excel.Application');
try
Excel.WorkBooks.Open(FileName);
WorkBook = Excel.WorkBooks.Item[1];
Sheet = Excel.Application.Worksheets.Item[1];

//Далее идет пример работы с Excel-евской таблицей
Sheet.Cells[2, 1]='Дата отгр';
Sheet.Cells[2, 2]='№ налог. Накл.';
Sheet.Cells[2, 3]='Дата опл';
Sheet.Cells[2, 4]='№ с/ф';
Sheet.Cells[2, 5]='Покупатель';
Sheet.Cells[2, 6]='Товар';
Sheet.Cells[2, 7]='Кол-во';
Sheet.Cells[2, 8]='Закупочная цена без НДС';
Sheet.Cells[2, 9]='Цена продажи без НДС';
Sheet.Cells[2, 10]='Всего с НДС';
Sheet.Cells[2, 11]='Оплачено покупателем';
Sheet.Cells[2, 12]='Примечания';

Sheet.Columns[1].ColumnWidth= 7;
Sheet.Columns[2].ColumnWidth= 9;
Sheet.Columns[3].ColumnWidth= 9;
Sheet.Columns[4].ColumnWidth= 9;
Sheet.Columns[5].ColumnWidth= 35;
Sheet.Columns[6].ColumnWidth= 32;
Sheet.Columns[7].ColumnWidth= 10;
Sheet.Columns[8].ColumnWidth= 12;
Sheet.Columns[9].ColumnWidth= 13;
Sheet.Columns[10].ColumnWidth= 13;
Sheet.Columns[11].ColumnWidth= 13;
Sheet.Columns[12].ColumnWidth= 27;
Sheet.Rows[2].WrapText= True;
Sheet.Rows[2].Font.Size= 12;
finally
Excel.Visible = True;
end;

end;

Все эти функции можно посмотреть в Visual Basic-e в Excel-e.
977
16 ноября 2001 года
ANDREQ
3 / / 20.04.2000
Многоуважаемый Vicktor, у меня вот ещё какой вопрос. Когда я много раз запускаю эту программу, то комп начинает слегка тормозить, а в Ctrl+Alt+Del`е появляется много-много 'Excel'. Я их выкуриваю и всё в поряде. А, как убрать их за собой программно? Пробовал писать : Excel:=Unassigned, но это не помогло...
Аноним
А, я понял. Надо, всего лишь, при закрытии формы написать:

Excel.WorkBooks.Close;

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог